代码之家 › 专栏 › 技术社区 › captcoma

具有重复观察的长数据到具有摘要列的短数据[重复]

tidyr dplyr dataframe r

captcoma · 技术社区 · 6 年前

我想转换具有重复观察的长数据集:

obs code
1    A
2    B
4    G
2    D
1    H
3    K

到一个“较短”的数据集中,其中包含一个逗号分隔的摘要列:

obs  code
1    A,H
2    B,D
3    K
4    G

我试过这样的方法:

df <- data.frame(obs=c("1","2","4","2","1","3"), code=c("A","B","G","D","H","K"),stringsAsFactors = F)


df %>% group_by(obs) %>%
  mutate(id=1:n()) %>% 
  spread(id,code) %>%
  replace_na(list(`1` = "", `2` = "")) %>%
  unite(new,2:3, remove=FALSE,sep=",")

然而,这为obs 3和4提供了额外的“”。有没有更好的方法来解决我的问题?

2 回复 | 直到 6 年前

akrun 6 年前

而不是 spread ing为“宽”格式,然后使用 replace_na ,这可以更直接地通过 paste 在中输入“代码” summarise 在 group_by 步

df %>%
  group_by(obs) %>%
  summarise(code = toString(code))

Maurits Evers 6 年前

下面是一个基本的R解决方案,使用 aggregate 作为替代方案:

with(df, aggregate(code, by = list(obs = obs), toString));
#  obs    x
#1   1 A, H
#2   2 B, D
#3   3    K
#4   4    G

如果你不想在 code s、你可以 paste0 条目(而不是使用 toString ):

with(df, aggregate(code, by = list(obs = obs), paste0, collapse = ","));
#  obs   x
#1   1 A,H
#2   2 B,D
#3   3   K
#4   4   G

推荐文章

Megan · 旋转数据但保持数据在R中对齐?

2 年前

Nazer · 将新的(较短的)列添加到TIBLE并扩展TIBLE以保持整洁

6 年前

Steven M. Mortimer · 平整度的可控水平

6 年前

Tyler Law · tidyr:在函数中使用mutate

6 年前

Esther · 将特定于函数的对象中的值提取到数据帧中

6 年前

Mike206 · 尝试在R中展开()时对重复键求和

6 年前

captcoma · 具有重复观察的长数据到具有摘要列的短数据[重复]

6 年前

N. Kim · 如何在分组数据框中填充行?(R) [副本]

6 年前

conor · 当组合不存在时,用空值重新整形

6 年前

user28298 · R-如何拆分/组合多个变量的列[重复]

6 年前