逐个字符分隔字段中的值，根据可能的拆分数量在右侧创建多个列

Question

我已经问了一系列问题。

Separate contents of field

Separate variable in field by character.

我认为其中包含围绕同一主题的多个问题。

关于如何使用 separate_rows 我有很好的答案，然后是关于如何将第一作者和最后作者从字符向量中分离出来的很好的答案。

我现在想知道的是最后一点：

在这个答案Splitting column by separator from right to left in R

列数是已知的。 怎么说“用逗号分割这个字符串，然后根据原始字段右侧作者列表中的姓名数量将它们放入未知数量的列中”？

这样每个作者都成为单独字段中的一个值。 最初，我认为它会被投射/传播。 但是！

虽然这是我使用的示例： 作者

Drijgers RL、Verhey FR、Leentjens AF、Kahler S、Aalten P.

在许多情况下，论文的作者数量（不包括 et. al）将 >1，最多可能在 30 人左右。

所以。关于这三部分传奇的最后一个问题...... 如何将所有作者分开到一个新字段，以及是否可以将新字段命名为第一作者、第二作者等，直到最后作者。

这合理/清楚吗？

感谢有两三个人迅速提供帮助。

Answer 1

您可以使用str_split 将您的作者列拆分为一个列表，然后使用unnest 获取长格式数据框，每行都有一个新作者。然后使用spread 和一个 ID 列将数据转换为宽格式。

library(dplyr)
library(tidyr)
df <- data.frame(publication = c("pub1","pub2","pub3"),author = c("Drijgers RL, Verhey FR, Leentjens AF, Kahler S, Aalten P","test author","test arthur, another author"))
df
#  publication                                                   author
#1        pub1 Drijgers RL, Verhey FR, Leentjens AF, Kahler S, Aalten P
#2        pub2                                              test author
#3        pub3                              test arthur, another author


df %>% group_by(publication) %>% mutate(author = str_split(author,", ")) %>% unnest %>% mutate(ID = paste0("author_",row_number())) %>% spread(ID,author)
# A tibble: 3 x 6
# Groups:   publication [3]
#  publication author_1    author_2       author_3     author_4 author_5
#  <fct>       <chr>       <chr>          <chr>        <chr>    <chr>   
#1 pub1        Drijgers RL Verhey FR      Leentjens AF Kahler S Aalten P
#2 pub2        test author NA             NA           NA       NA      
#3 pub3        test arthur another author NA           NA       NA