作者newmatt (骗人布)
看板R_Language
标题[问题] 撷取excel中某些资料，并且另存成excel
时间Fri Jul 22 07:55:48 2016
ctrl + y 可以删除一整行，请将不需要的内容删除
文章分类提示:
- 问题: 当你想要问问题时，请使用这个类别
[问题类型]:
程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来)
[软体熟悉度]:
新手(没写过程式，R 是我的第一次)
[问题叙述]:
我有一个EXCEL档案，其中档案格式如下
日期 | 地点 | 项目 | 01 | 02 | 03 | 04 | 05
1998/1/1 高雄 AA 50 90 1.1 33 4.4
1998/1/1 高雄 BB 10 20 1.5 34 2.2
1998/1/1 高雄 CC 30 40 2.1 45 4.2
1998/1/2 高雄 AA 40 92 1.1 53 3.5
1998/1/2 高雄 BB 14 22 1.5 44 2.2
1998/1/2 高雄 CC 32 43 2.1 35 4.2
.
.
.
1998/12/31 高雄 AA 40 92 1.1 53 3.5
1998/12/31 高雄 BB 14 22 1.5 44 2.2
1998/12/31 高雄 CC 32 43 2.1 35 4.2
由於是一整年份的地区资料，
如今我想把 符合 项目 BB 中那一整列的资料全部抓出来，另存一个 .xls档或csv
像这样
1998/1/1 高雄 BB 10 20 1.5 34 2.2
1998/1/2 高雄 BB 14 22 1.5 44 2.2
1998/12/31 高雄 BB 14 22 1.5 44 2.2
由於想要处理的EXCEL档案有上百个，因此就想用自动化的部份来协助撷取
谢谢
目前程式只有执行到
[程式范例]:
目前程式只有执行到
library("readxl")
myfile <- "D:/123.xls"
x <- read_excel(myfile ,col_names = FALSE)
y <- x[3]=="BB"
head(y) # 会秀出符合 "BB" 栏位的TRUE/FALSE值
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.168.211.69
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1469145350.A.C51.html
※ 编辑: newmatt (1.168.211.69), 07/22/2016 07:56:20
※ 编辑: newmatt (1.168.211.69), 07/22/2016 07:56:48
2F：→ clansoda: 把你的所有CSV放到一个新的资料夹，然後list.files 07/22 09:48
3F：→ clansoda: 指定那一个资料夹的路径，应该就可以跑了 07/22 09:48
4F：→ clansoda: 没看到你是EXCEL档，改成用readxl就可以了 07/22 09:49
感谢 clansoda 程式OK
不过在您所提供的链结
http://pastebin.com/yFUuvZNx 中
list.file 少了一个 s ，应为 list.files
若是改用readxl
则要变为
datalist[[i]]<-read_excel(salelist[[i]],col_names = TRUE)
谢谢你
※ 编辑: newmatt (1.168.233.55), 07/22/2016 13:32:30