编程处理数据！来挑战下吧

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

2012-Export.xls (2.23 MB)

2014-11-11 19:57:53 上传

如题，现在处理的是比较大的数据，所以人工的不算哈。求教，谢谢大神！
我想要做的是使得行名和列名相同，在这个表里，列名的元素多于行名，也就是说删除多余的列，大神们来挑战下吧。
PS，不要把它看的很简单哦，涉及到数据清理，格式转换。转化成为矩阵后，列名要保持为国家的名字，不能多加。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：处理数据 格式转换 数据清理 国家的 国家 格式转换 清理 元素

list里面是什么格式呢？

unclass and matrix maybe help

hubifeng？ 发表于 2014-11-11 19:55
unclass and matrix maybe help

yep,but this list cannot work when procede further.can u help me settle the last problem down?

树袋熊2 发表于 2014-11-11 19:47
list里面是什么格式呢？

文件传上去了，你看看，谢谢！

cherishlife123 发表于 2014-11-11 20:04
yep,but this list cannot work when procede further.can u help me settle the last problem down?

unlist it, then using matrix

hubifeng？ 发表于 2014-11-11 20:13
unlist it, then using matrix

I try

hubifeng？ 发表于 2014-11-11 20:13
unlist it, then using matrix

not work,其实我最终想要做的是使得行名和列名相同，在这个表里，列名的元素多于行名,能帮忙解决么？

已经看过楼主给的数据。我的方法是这样：

（1）在EXCEL软件中，先动用VBA工具在该数据表的空白处添加一个按钮，并在调试状态下将鼠标移到该按钮控件处，点击右键，选”查看代码“，并在其中录入如下代码：

1. Private Sub CommandButton1_Click()
   
2. 
   
3.   Dim colRange(1 To 1000) As Integer, rowRange(1 To 1000) As Integer, s As String
   
4.   
   
5.   For i = 1 To 1000
   
6.     colRange(i) = -1
   
7.     rowRange(i) = -1
   
8.   Next i
   
9.   
   
10.   colBegin = 2
    
11.   rowBegin = 2
    
12.   
    
13.   For i = 1 To 1000
    
14.   
    
15.     a = Cells(6, 1 + i)
    
16.    
    
17.     If Trim(a) = "" Then Exit For
    
18.    
    
19.     For j = 8 To 1000
    
20.    
    
21.       b = Cells(j, 1)
    
22.       
    
23.       If Trim(b) = "" Then Exit For
    
24.       If Trim(b) = Trim(a) Then
    
25.         colRange(colBegin) = i + 1
    
26.         colBegin = colBegin + 1
    
27.         Exit For
    
28.       End If
    
29.       
    
30.     Next j
    
31.    
    
32.   Next i
    
33.   
    
34.   colEnd = colBegin - 1
    
35.   colRange(1) = 1
    
36.   
    
37.   For i = 1 To 1000
    
38.   
    
39.     a = Cells(7 + i, 1)
    
40.    
    
41.     If Trim(a) = "" Then Exit For
    
42.    
    
43.     For j = 2 To 1000
    
44.    
    
45.       b = Cells(6, j)
    
46.       
    
47.       If Trim(b) = "" Then Exit For
    
48.       If Trim(b) = Trim(a) Then
    
49.         rowRange(rowBegin) = i + 7
    
50.         rowBegin = rowBegin + 1
    
51.         Exit For
    
52.       End If
    
53.       
    
54.     Next j
    
55.    
    
56.   Next i
    
57.   
    
58.   rowEnd = rowBegin - 1
    
59.   rowRange(1) = 6
    
60.   
    
61.   
    
62.   TargetFileName = "C:\2012Export2.txt"       '创建该txt文本文件，以存储处理好的数据。数据用逗号间隔。
    
63.   Open TargetFileName For Output As #1
    
64.   
    
65.   
    
66.   For row_Index = 1 To rowEnd
    
67. 
    
68.      For col_Index = 1 To colEnd - 1
    
69.           s = Trim(Cells(rowRange(row_Index), colRange(col_Index)))
    
70.           If s = ".." Or s = "_" Then s = "NA"
    
71.           Write #1, s;
    
72.      Next col_Index
    
73.      s = Trim(Cells(rowRange(row_Index), colRange(colEnd)))
    
74.      If s = ".." Or s = "_" Then s = "NA"
    
75.      Write #1, s
    
76.   
    
77.   Next row_Index
    
78.    
    
79.   Close #1
    
80. 
    
81. End Sub

复制代码

录好后，保存程序，退出调试状态。之后点击该按钮，以执行该段代码。代码将创建一个txt文档，用于存储“过滤”后的数据。

（2）在R中读取数据：

1. a = read.csv(file = "c:/2012Export2.txt", header = TRUE)

复制代码

a的具体内容你可以自己看一下（可以用View(a)命令查看）。这里给出a的尺寸信息：

> dim(a)
[1] 222 223

数据框的第一列用于存储EXCEL文件数据的行名称（注意，a本身没有行名称，EXCEL数据的行名称是作为第一列信息存入a当中的）。剔除该列，有效数据列有222个，恰与行数222相等。

meishanjia1900 发表于 2014-11-12 22:18
已经看过楼主给的数据。我的方法是这样：

（1）在EXCEL软件中，先动用VBA工具在该数据表的空白处添加一个 ...

大牛级啊