我有一个包含多列的data.frame
:
set.seed(1)
df <- data.frame(cluster=LETTERS[1:4],group=c(rep("m",2),rep("f",2)),point=rnorm(4),err=runif(4,0.1,0.3))
我会添加另一列,该列使用"\n"
将其相应行的所有列连接起来,其中列名称在值之前。
我知道这点:
library(tidyr)
library(dplyr)
tidyr::unite(df,text,sep="\n")
这给了我这个tibble
:
text
1 A\nm\n0.487429052428485\n0.286941046221182
2 B\nm\n0.738324705129217\n0.142428504256532
3 C\nf\n0.575781351653492\n0.230334753217176
4 D\nf\n-0.305388387156356\n0.125111019192263
但我想要的是这个tibble
:
text
1 cluster: A\ngroup: m\npoint: 0.487429052428485\nerr: 0.286941046221182
2 cluster: B\ngroup: m\npoint: 0.738324705129217\nerr: 0.142428504256532
3 cluster: C\ngroup: f\npoint: 0.575781351653492\nerr: 0.230334753217176
4 cluster: D\ngroup: f\npoint: -0.305388387156356\nerr: 0.125111019192263
有什么想法吗?
aggregate(do.call(paste,c(sep=" :",rev(stack(df)))),list(c(row(df))),paste,collapse="\n")
来避免循环。 - Onyambuimap_dfr()
并删除as_tibble
来节省一次调用。 - Dan Chaltiel