作者:
nh2 (nh)
2014-12-07 18:00:03[軟體熟悉度]:
新手(沒寫過程式,R 是我的第一次)
請教各位,
當我用complete.cases選出data中沒有na值的資料設成data1
想用data1計算出同樣id的行有幾個,
但是最後的result其index值和row name不一樣,
想請教要如何才能把index改成和row name 一樣?
complete <- function(x, z) {
filelist <- list.files("./specdata/", full.names = T)
data <- data.frame()
##讀入全部data
for(i in z){
data <- rbind(data, read.table(filelist[i], header = T, sep =","))
}
##只要沒有na值的
data1 <- data[complete.cases(data), ]
data1$ID.F <- as.factor(data1$ID)
##看同一個id的資料有幾個
result <- tapply(data1$ID, data1$ID, length)
result2 <- as.data.frame(result)
result2
}
data裡包含ID, data, sulfate
所以同一個id裡會有很多筆不同data和sulfate的資料