按列重组 R 中的 dataframe

Question

我是编码新手，我真的不知道要谷歌/搜索什么，因为我找不到适合此操作的名称。 很抱歉，如果我的问题措辞不佳，我仍然不熟悉正确的术语。 关于我的问题：我有一个结构如下的数据集：

plant <-  c("A", "B", "C", "D")
employee <- c("Peter, Mark", "Mark", "Peter", "Steven")
df <- data.frame(plant, employee)

  plant    employee
1     A Peter, Mark
2     B        Mark
3     C       Peter
4     D      Steven

我现在想由员工“重组” dataframe，所以它看起来像这样：

  employee plant
1    Peter  A, C
2     Mark  A, B
3    Maria     A
4   Steven     C

对于在哪里寻找方向或解决方案，我真的很无助，我将不胜感激。 这在基础 R 中是否可行？

Answer 1

我们可以使用separate_rows来拆分'employee'，列，然后按'employee'分组， paste 'plant'

library(dplyr)
library(tidyr)
df %>% 
  separate_rows(employee) %>%
  group_by(employee) %>% 
  summarise(plant = toString(plant))

---

如果我们需要使用base R ，一个选项是使用strsplit将 'employee' 列拆分为vector list ，使用 'plant' 列设置list的名称，将命名list转换为两列 data.frame使用stack并使用aggregate通过paste进行分组（ toString - paste(..., collapse=", ") ）

aggregate(ind ~ values, stack(setNames(strsplit(as.character(df$employee),
            ",\\s*"), df$plant)), toString)

Answer 2

使用基础 R，我们可以拆分employee的"," ，并根据它重复plant值。 我们可以使用tapply来组合每个employee的plant值。

temp <- strsplit(df$employee, ",", fixed = TRUE)
stack(tapply(rep(df$plant, lengths(temp)), trimws(unlist(temp)), toString))


#  values    ind
#1   A, B   Mark
#2   A, C  Peter
#3      D Steven