[問題] 擷取excel中某些資料，並且另存成excel
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://www.ptt.cc/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
推
07/22 09:47, , 1F
07/22 09:47, 1F
→
07/22 09:48, , 2F
07/22 09:48, 2F
→
07/22 09:48, , 3F
07/22 09:48, 3F
→
07/22 09:49, , 4F
07/22 09:49, 4F
感謝 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