r - 如何写入 R 中的 .txt 文件？

Question

我有一个看起来像这样的数据。例如:

 A;a 
 B;a 
 C;b 
 D;c
 A;b
 A;d
 C;c 
 ....

第一个 pos = 键，第二个 pos = 值。如果键；值，则为 1，否则为 0；

我想从数据创建二进制矩阵。

   a b c d
 A 1 1 0 1  
 B 1 0 0 0
 C 0 1 1 0
 D 0 0 0 1

我可以创建矩阵，我的代码:

KeyandValue = read.table('~/RStudioProjects/TestData.txt',sep=';',header = FALSE)

tableForData <- table(KeyandValue$V1,KeyandValue$V2)
tableForData[tableForData > 1] <- 1

 csvFile<- write.table(tableForData,file = 
  "~/RStudioProjects/TestData.csv",quote = F,sep = ";")
  write.csv(csvFile)

现在，我想以这种形式重新写入 .txt 格式:

A;a;1
A;b;1
A;c;0
A;d;1
B;a;1
B;b;0
B;c;0
B;d;0   
.....

我的代码:

t3<-tableForData[,]
View(t3)

然后我以这种形式查看表格

如何将这种形式写入 .txt 文件？

Answer 1

library(data.table)

dt <- data.table("id" = c("A","B","C","D"),
                 "a" = c(1,1,0,0),
                 "b" = c(1,0,1,0),
                 "c" = c(0,0,1,0),
                 "d" = c(1,0,0,1))

dt_m <- melt.data.table(dt,id.vars = "id")

write.table(dt_m,"test.txt", sep=";",col.names = FALSE, row.names = FALSE)

根据@MichaelChirico 建议进行编辑

代替

write.table(dt_m,"test.txt", sep=";",col.names = FALSE, row.names = FALSE)

最好用

fwrite(dt_m,"test.txt", sep=";",col.names = FALSE, row.names = FALSE)