我正在尝试通过合并跨1列的行数据单元格来更改(连接,重塑,我不确定哪个单词适合这种情况)该数据框中的数据,而该行中的其他列是相同的。
基本上,我有这样的事情:
>df
>Person_id System_id Category Type Tag
>1A 134 1 Chr Question
>1A 134 1 Chr Answer
>1A 134 1 Chr Evaluation
>1A 134 1 Chr Overall
>1A 134 1 Chr Analysis
>Z4 002 1 Chr Question
>Z4 002 1 Chr Answer
并使其看起来像这样:
>Person_id System_id Category Type Tag
>1A 134 1 Chr Question, Answer, Evaluation, Overall, Analysis
>Z4 002 1 Chr Question, Answer
标签不必用逗号分隔,空格可以。在哪里寻找这样的解决方案的任何想法都会有所帮助。
谢谢。
我们可以将前四列和paste
“标记”元素分组在一起
library(dplyr)
df %>%
group_by_at(1:4) %>%
summarise(Tag = toString(Tag))
# A tibble: 2 x 5
# Groups: Person_id, System_id, Category [2]
# Person_id System_id Category Type Tag
# <chr> <int> <int> <chr> <chr>
#1 1A 134 1 Chr Question, Answer, Evaluation, Overall, Analysis
#2 Z4 2 1 Chr Question, Answer
或使用 base R
aggregate(Tag ~ ., df, toString)
注意:toString
是一个方便的包装paste(., collapse=", ")
df <- structure(list(Person_id = c("1A", "1A", "1A", "1A", "1A", "Z4",
"Z4"), System_id = c(134L, 134L, 134L, 134L, 134L, 2L, 2L), Category = c(1L,
1L, 1L, 1L, 1L, 1L, 1L), Type = c("Chr", "Chr", "Chr", "Chr",
"Chr", "Chr", "Chr"), Tag = c("Question", "Answer", "Evaluation",
"Overall", "Analysis", "Question", "Answer")),
class = "data.frame", row.names = c(NA,
-7L))
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句