data.table의 변수 당 개수로 CSV를 작성하는 방법은 무엇입니까?

Question

데이터 표가 td이고 크기가 1000x4이고, 열 이름이 x1,x2,x3,x4 인 것으로 가정합니다. td[,.N,x1]을 입력하면 x1 변수의 각 값에 대한 개수가 계산됩니다. 내가하고 싶은 무엇

는 한 가지, 서로 아래 에서 CSV에서 모든 값을 작성하는 것입니다, 그래서

x <- c("x1","x2","x3","x4") l_ply(x, function(x) { write.csv(td[,.N,by=x],file="test.csv") } 

을 시도하지만 오류 얻을 :

The items in the 'by' or 'keyby' list are length .... Each must be same length as rows in x or number of rows returned by i ...

을

아이디어가 있으십니까? (!)

Answer 1

당신은 write.csv() 래퍼 그런

를 통해 통과하지 않기 때문에 write.table(..., append=TRUE)를 사용해야합니다 (각 변수의 섹션 전에 당 변수 헤더를 원하지 않는 경우, col.names=F을 사용합니다 Write column header once only, when writing data with write.table(append=T) 참조) :

require(data.table) 
require(plyr) 
x <- c("x1","x2","x3","x4") 
td <- data.table(x1=sample.int(2,5,replace=T), x2=sample.int(2,5,replace=T), x3=sample.int(2,5,replace=T), x4=sample.int(2,5,replace=T)) 

l_ply(x, function(x) { 
    write.table(td[,.N,by=x], file="test.csv", append=T, quote=F, row.names=F) 
}) 

Answer 2

우리는 당신을 수 for 루프

for(val in x) { 
    write.table(td[, .N, by = c(val)], file = "test.csv", append=TRUE) 
} 

Answer 3

를 사용할 수 있습니다 또한 data.table에서 rbindlist를 사용

write.csv(
    file = "./tmp.csv", 
    x = rbindlist(lapply(x,function(y){ 
     dt[,.N,by = y] 
    })) 
)