在 R 中扩展电子邮件数据集

如何解决在 R 中扩展电子邮件数据集

我有大量电子邮件数据，如下所示：

[1,2,3,4]

我需要您的帮助才能为每个组合扩展每条记录。例如，我想为第 1 行实现的是：

library(dplyr)

emails <- tibble(
  from = c('[e-mail]','[e-mail]','[e-mail]','[e-mail]','[e-mail]'),to = list(
    c('[e-mail]','employee.3xtra.co'),c('[e-mail]',c('[e-mail]'),c('[e-mail]'),'[e-mail]')),cc = list(
    c('employee.2xtra.co','employee.4xtra.co','employee.6xtra.co'),c('employee.1xtra.co','employee.8xtra.co',NA,c('employee.2xtra.co','employee.4xtra.co'),'employee.6xtra.co'))
)

emails

# A tibble: 5 x 3
  from               to        cc       
  <chr>              <list>    <list>   
1 [e-mail] <chr [2]> <chr [3]>
2 [e-mail] <chr [2]> <chr [3]>
3 [e-mail] <chr [1]> <lgl [1]>
4 [e-mail] <chr [1]> <chr [2]>
5 [e-mail] <chr [3]> <chr [2]>

非常感谢您抽出宝贵时间。

解决方法

我们可以应用 unnest 两次。

library(dplyr)
library(tidyr)

emails2 <- emails %>%
  unnest(cols = "to") %>%
  unnest(cols = "cc")
head(emails2)
# # A tibble: 6 x 3
#   from               to                 cc               
#   <chr>              <chr>              <chr>            
# 1 [e-mail] [e-mail] employee.2xtra.co
# 2 [e-mail] [e-mail] employee.4xtra.co
# 3 [e-mail] [e-mail] employee.6xtra.co
# 4 [e-mail] employee.3xtra.co  employee.2xtra.co
# 5 [e-mail] employee.3xtra.co  employee.4xtra.co
# 6 [e-mail] employee.3xtra.co  employee.6xtra.co

如果您有两列以上要展开，下面是一种方法。首先确定列出的列。将列名存储在 names_target 中，然后使用 for 循环重复应用 unnest 函数。

names_target <- emails %>%
  select(where(is.list)) %>%
  names()

temp <- emails

for (i in names_target){
  temp <- temp %>% unnest(cols = all_of(i))
}

identical(temp,emails2)
# [1] TRUE