try 将R tibble中的多行字符串合并为一行字符串

发布于12月14日

data <- tibble(
  x = c(1, 1, 1, 2, 2),
  y = c("a", "b", "c", "b", "d")
  )

dataf <- tibble(
  x = c(1, 2),
  y = c("a, b, c", "b, c")
  )

我正在使用"tidyverse"包处理一个看起来类似于"data"的表，我需要将所有x = 1的行放在一个y值中，该y值是一个字符串，其值由逗号分隔，如"dataf".

我试着用变异来解决这个问题，但我想不出如何解决这个问题

推荐答案

# Group by 'x' and concatenate 'y' values with commas
dataf <- data %>%
  group_by(x) %>%
  summarize(y = paste(y, collapse = ", "))

这段代码按‘x’列对数据进行分组，并使用汇总将每个组中的‘y’值通过粘贴(y，折叠="，")连接在一起.结果是Tibble，其中具有相同‘x’值的行被合并到一行中，在‘y’列中使用逗号分隔的字符串.

输出将如下所示:

# A tibble: 2 × 2
      x y        
  <dbl> <chr>    
1     1 a, b, c  
2     2 b, d

实用课程推荐