在 r [重复] 的列中转换具有逗号分隔值的数据框

Question

我有一个数据框，例如

COL1          COL2 
Canis_lupus   1_Group367,4_Group89,70_Group900
Danio_rerio   8_Group78
Felis_cattus  6_Group9,90_Group97

我想把它改成：

COL1          Groups   Value
Canis_lupus   Group367 1
Canis_lupus   Group89  4
Canis_lupus   Group900 70
Danio_rerio   Group78  8
Felis_cattus  Group9   6
Felis_cattus  Group97  90 

我将 COL2 中的信息分成两个新列 Groups 和 Value，其中组是 GroupX 元素，值是第一个 _ 之前的数字

如果有帮助，这里是 dput 格式：

structure(list(COL1 = c("Canis_lupus", "Danio_rerio", "Felis_cattus"
), COL2 = c("1_Group367,4_Group89,70_Group900", "8_Group78", 
"6_Group9,90_Group97")), class = "data.frame", row.names = c(NA, 
-3L))

Answer 1

一个可能的解决方案：

library(tidyverse)

df <- structure(list(COL1 = c("Canis_lupus", "Danio_rerio", "Felis_cattus"
), COL2 = c("1_Group367,4_Group89,70_Group900", "8_Group78", 
            "6_Group9,90_Group97")), class = "data.frame", row.names = c(NA, 
                                                                         -3L))
df %>% 
  separate_rows(COL2, sep=",") %>% 
  separate(COL2, into=c("Value", "COL2"),sep = "_", convert = TRUE)

#> # A tibble: 6 × 3
#>   COL1         Value COL2    
#>   <chr>        <int> <chr>   
#> 1 Canis_lupus      1 Group367
#> 2 Canis_lupus      4 Group89 
#> 3 Canis_lupus     70 Group900
#> 4 Danio_rerio      8 Group78 
#> 5 Felis_cattus     6 Group9  
#> 6 Felis_cattus    90 Group97