我有一个名为dataf的数据框
dataf<-data.frame(replicate(10,sample(0:1,10,rep=TRUE)))
我想将这个数据框的每一行提取为一个字符串，就像这个函数一样:
result=data.frame(matrix(NA, ncol=1, nrow=10))
i=0
for(i in 0:9)
{
result[i+1,]=toString(dataf[i+1,])
}
但结果不如预期:
1, 0, 0, 0, 1, 0, 0, 1, 1, 0
0, 0, 0, 1, 1, 1, 1, 0, 1, 1
1, 1, 0, 0, 0, 0, 0, 0, 1, 0
我想要这个:
"1","0","0","0","1","0","0","1","1","0"
"0","0","0","1","1","1","1","0","1","1"
"1","1","0","0","0","0","0","0","1","0"
我已经尝试过 dQuote、\"R\"、collapse、sep。 .. 但我没有得到我需要的东西。
最佳答案
尝试:capture.output(write.table(lapply(dataf, as.character), row.names=F, col.names=F, sep=","))
[1] "\"0\",\"0\",\"0\",\"0\",\"1\",\"1\",\"1\",\"1\",\"1\",\"1\""
[2] "\"1\",\"0\",\"1\",\"0\",\"0\",\"0\",\"1\",\"0\",\"1\",\"1\""
[3] "\"0\",\"1\",\"0\",\"0\",\"1\",\"1\",\"0\",\"0\",\"1\",\"1\""
...
根据下面马修的评论进行编辑
关于R - 将行提取为带双引号的字符串，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/30647867/