excel数据导入之后空白格也导入了，怎么只导入有数据的那些行和列

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

excel数据导入之后空白格也导入了，怎么只导入有数据的那些行和列，求大神指点啊，用的是CSV格式的数据，readtable读取的，xlsx这个包安装提示错误，所以用的CSV格式的，但是导入之后很多空白的也导入了，怎么处理呢？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：excel数据 EXCEL 数据导入 exce xcel excel

空白格也导入了？

唉，太深奥，纯粹赚取经验

gyqznufe 发表于 2015-6-8 21:06
空白格也导入了？

是的啊，怎么处理呢？求指导

祝贺人大 发表于 2015-6-8 21:16
是的啊，怎么处理呢？求指导

Excel只对行筛选，所以可以进行转置后进行筛选删除空白行

我也遇到过，求答案

OK，我们来玩一个游戏，用简单的记事本程序创建如下内容的txt文档，其完整名称为abc.txt：

"haha","","","foo"
"x1","x2","x3",""
"1","2","3",""
"4","5","6",""
"7","8","9",""


现在，需要剔除无用的行次（比如空字符较多的行次），并剔除无用的列！当然，还要转换类型，使R在读取文件后，能生成一个数值矩阵（或数据框），而非字符串组成的矩阵（或数据框）。操作如下：

1. > a = read.csv("abc.txt",header=FALSE)
   
2. > a
   
3.     V1 V2 V3  V4
   
4. 1 haha       foo
   
5. 2   x1 x2 x3   
   
6. 3    1  2  3   
   
7. 4    4  5  6   
   
8. 5    7  8  9   
   
9. > notNULL.row = apply(a, 1, function(x) sum(x != ""))
   
10. > a = a[notNULL.row == max(notNULL.row), ]
    
11. > notNULL.col = apply(a, 2, function(x) sum(x != ""))
    
12. > a = a[, notNULL.col == max(notNULL.col)]
    
13. > b = as.matrix(a[-1, ])
    
14. > colnames(b) = unlist(a[1, ])
    
15. > mode(b) = "numeric"
    
16. > b
    
17.   x1 x2 x3
    
18. 3  1  2  3
    
19. 4  4  5  6
    
20. 5  7  8  9

复制代码

R的数据操作非常灵活，这里仅是个简单样例，各位还需针对实际情况写脚本。

试试这两个

read.csv("D:/data.csv",sep="")

提前复制好数据
read.csv("clipboard",sep="")

用我开发的这个包就可以了
https://bbs.pinggu.org/thread-4145936-1-1.html

顶一顶啊