[問題] 擷取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