2015-11-20 35 views
1

上下文:10個文件。 csv,每個文件都包含一個包含5列的日期框架:姓名,出生日期,性別,態度和結果。每一行都有一個名字,出生日期,性別,態度和結果。按R中變量列表排列的子集行

問題:每種態度都有結果。每種態度都在一條線上出口。很快,每種註冊態度都有多行。

目標:從每個文件中提取具有用結果記錄的態度集合的個人。

ext { 
atlist <- as.list(x1, x2, x3, x4, x5, x6, x7, x8) 
library(dplyr) 
setwd("~/") 
files_list <- list.files(x, full.names=TRUE) 
dat <- data.frame() 
fim <- data.frame() 
for (i in 1:10) {         
    dat <- (read.csv(files_list[i])) 
    dat <- dat %>% filter(attitude == "atlist") 
    fim <- rbind(fim, dat) 
    } 
    fim 
} 

我正在爲此奮鬥一段時間。有人能幫我嗎 ?

+4

你可以添加[重複的例子(http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example)? – Frank

回答

1

我不完全確定你在問什麼,因爲它不清楚什麼x1,x2,等是,但如果每個人都代表你想過濾的態度,也許你想做以下內容:

atlist <- c(x1, x2, x3, x4, x5, x6, x7, x8) 
setwd("~/") 
files_list <- list.files(full.names=TRUE) 
fim <- NULL 
for (i in 1:10) {         
    dat <- (read.csv(files_list[i])) 
    dat <- dat[dat$attitude %in% atlist,] 
    fim <- rbind(fim, dat) 
} 
+0

工作!非常感謝!這%在%救了我:) –