在R中读取带有数组列的csv文件

Question

我的 CSV 文件是这样的

col3 和 col4 的长度总是相同的；

col1,col2,col3,col4
1,2,"[1,2,3]","[1.2,2.3,2.1]"
1,3,"[1,2]","[2.5,2.6]"
2,1,"[1,2,3,4]","[1,2,3,4,5]"
3,1,"[10]","[-0.2]"

这是我的数据结构

structure(list(col1 = c(1L, 1L, 2L, 3L), col2 = c(2L, 3L, 1L, 
1L), col3 = c("[1,2,3]", "[1,2]", "[1,2,3,4]", "[10]"), col4 = c("[1.2,2.3,2.1]", 
"[2.5,2.6]", "[1,2,3,4,5]", "[-0.2]")), row.names = c(NA, -4L
), class = c("data.table", "data.frame"), .internal.selfref = <pointer: 0x323ce50>)

我需要像这样取消嵌套后的数据

col1,col2,col3,col4
1,2,1,1.2
1,2,2,2.3
1,2,3,2.1
1,3,1,2.5
1,3,2,2.6
....

我应该如何处理这些数据？

Answer 1

从数据中删除 [] 并在 col3 和 col4 上使用 separate_rows 以获取长格式。

library(dplyr)
library(tidyr)

df %>%
  mutate(across(c(col3,col4), ~gsub('\\[|\\]', '', .))) %>%
  #mutate_at(vars(c(col3,col4)), ~gsub('\\[|\\]', '', .))
  separate_rows(col3, col4, convert = TRUE, sep = ',')

#  col1  col2  col3  col4
#  <int> <int> <int> <dbl>
#1     1     2     1   1.2
#2     1     2     2   2.3
#3     1     2     3   2.1
#4     1     3     1   2.5
#5     1     3     2   2.6
#6     2     1     1   1  
#7     2     1     2   2  
#8     2     1     3   3  
#9     2     1     4   4  

数据

df <- structure(list(col1 = c(1L, 1L, 2L), col2 = c(2L, 3L, 1L), 
      col3 = c("[1,2,3]", "[1,2]", "[1,2,3,4]"), col4 = c("[1.2,2.3,2.1]",
      "[2.5,2.6]", "[1,2,3,4]")), class = "data.frame", row.names = c(NA, -3L))