jh = as.data.frame(matrix(nrow=0,ncol=0))
for (i in c(myfiles0)){mydata <- read.table(i, header = TRUE, stringsAsFactors = FALSE)
ruralpl08<-mydata[,c(4:40)]
g1 <- gd(pl_change ~ ., data = ruralpl08)
g1 <- g1[["Factor"]]
g2 <- sqldf("select* from g1 where sig<0.05")
jh <- rbind.fill(g2,jh)}
###循环一堆文件并将每个文件处理的结果合并在一个数据框内输出
木有接触过R要是写错了请大佬们指点