将两列中的值打印到文本文件R中

编程问答 2022-06-12

问题描述

我对R很陌生，但是我需要将数据框中的行打印到文本文件中，以说明具有相同值的所有变体：

例如将这样的数据帧转换为如下文件：

| a | a1 |
| a | a2 |
| b | b1 |
| b | b2 |
| b | b3 |
| c | c1 |

a: a1,a2
b: b1,b2
c: c1

有人知道如何用R或excel做到这一点，我在语法中找不到任何内容吗？

解决方法

尝试一下：

df1 <- data.frame(A = c("a","a","b","c","c"),B = c("a1","a2","b1","b2","b3","c1","c2"))
df2 <- aggregate(B ~ A,df1,toString)
vector1 <- sapply(seq_len(nrow(df2)),function (x) {
  paste0(df2$A[x],": ",df2$B[x])
})
final_result <- Reduce(function (...) {
  paste(...,sep = "\n")
},vector1)
write.table(final_result,"C:\\Documents\\final_result.txt")
excelexcelprintingprintingrrwritingwriting