在R中将一个奇怪的宽格式改造成长[重复]

Question

我有一个这种方式的数据集。注意var2 是character

var1 var2
a    "b:2, d:4"
b    "a:1, b:3, c:4, d:2"
c    "a:3"
d    "b:2, d:4, a:1"

我想把它改成长格式

var1 var2 value
a    b    2
a    d    4
b    a    1
b    b    3
...
d    d    4
d    a    1

我很想对行进行迭代，但速度对我来说是一个问题。实现这一点的更有效方法是什么？

Answer 1

您可以使用separate_rows 获取以逗号分隔的不同行中的数据（,）和separate 获取以冒号分隔的不同列中的数据（:）。

library(tidyr)
df %>%
  separate_rows(var2, sep = ',\\s*') %>%
  separate(var2, c('var2', 'value'), sep = ':', convert = TRUE)

# A tibble: 10 x 3
#   var1  var2  value
#   <chr> <chr> <int>
# 1 a     b         2
# 2 a     d         4
# 3 b     a         1
# 4 b     b         3
# 5 b     c         4
# 6 b     d         2
# 7 c     a         3
# 8 d     b         2
# 9 d     d         4
#10 d     a         1

数据

df <- structure(list(var1 = c("a", "b", "c", "d"), var2 = c("b:2, d:4", 
"a:1, b:3, c:4, d:2", "a:3", "b:2, d:4, a:1")), class = "data.frame",
row.names = c(NA, -4L))