[问题] 撷取excel中某些资料,并且另存成excel

楼主: newmatt (骗人布)   2016-07-22 07:55:48
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值
谢谢
作者: clansoda (小笨)   2016-07-22 09:47:00
http://pastebin.com/yFUuvZNx把你的所有CSV放到一个新的资料夹,然后list.files指定那一个资料夹的路径,应该就可以跑了没看到你是EXCEL档,改成用readxl就可以了

Links booklink

Contact Us: admin [ a t ] ucptt.com