write.table을 사용하여 희미한 이름을 유지하는 방법은 무엇입니까?

Question

하나의 CSV 파일에 여러 테이블을 저장해야하며 차원 이름을 유지하는 방법을 보는데 어려움이 있습니다. 내가 찾은 가장 가까운 그리고 내가 찾은 : How to get dimnames in xtable.table output? 그는 xtable 함께 가지고있는 문제는 내가 가지고있는 문제는 write.table - dimnames 테이블 (및 prop.table 및 ftable뿐만 아니라 내가 사용하는 경우) write.table에 의해 삭제됩니다. append = T에 write.csv가 아닌 write.table을 사용하고 있습니다.

데이터 세트는 측량의 목적이며 레이블이 지정된 축을 사용하여 전체 크로스 탭 세트를 만드는 것이 목표입니다. 이 경우 실제 행/열 레이블은 중요하지 않으며 차원 레이블 만 중요합니다. 나는 R에 익숙하지 않기 때문에, 나는 분명히 뭔가를 놓치지 않았 으면 좋겠다.

d<-read.csv('dataset.csv') # dataset with column headings, no row labels 
cat('BEGIN\n',file='xtabs.csv') 
for (i in 1:ncol(d)) { 
    for (j in 1:ncol(d)) { 
     cat(paste('\ni=',i,' j=',j,'\n'),file='xtabs.csv',append=T) 
     t<-table(d[,i],d[,j],dnn=c(names(d[i]),names(d[j]))) 
     pt<-prop.table(t,1) 
     write.table(pt,'xtabs.csv',sep=',',dec='.',row.names=F,col.names=F,append=T) 
     print(pt) # shows dimnames in the console as expected 
    } 
} 

Answer 1

이 시도 : 다차원 테이블 형식의 데이터 (즉, 두 개 이상의 변수)에 대해 의도 된 I 가능성 ftable 남용있어

tbl <- with(warpbreaks, table(wool, tension)) 
pt <- prop.table(tbl) 
write.ftable(ftable(pt),file = "~/Desktop/table.csv", sep = ",", 
      quote = FALSE) 

여기들. 그러나 필자가 찾은 유일한 방법은 텍스트 파일에 테이블을 겉으로보기에 원하는 형식으로 쓰는 것입니다.