将字符串拆分为长数据帧格式的值[重复]

Question

我有一个类似于以下示例 df 的数据框，其中包含一个字符变量 VAR。

df<-data.frame(ID = 1:2, 
               VAR = c("VAL1\r\nVAL2\r\nVAL8","VAL2\r\nVAL5"),
               stringsAsFactors = FALSE)
#     ID                  VAR
# 1    1 VAL1\r\nVAL2\r\nVAL8
# 2    2         VAL2\r\nVAL5

我想用回车符分割字符变量 - 换行符\r\n 并在下面获得所需的数据框：

#    ID   VAR
# 1    1 VAL1
# 2    1 VAL2
# 3    1 VAL8
# 4    2 VAL2
# 5    2 VAL5

我编写了如下代码，但在尝试将数据帧的格式更改为长格式时，我不知何故迷失在gather函数中。

library(tidyverse)
df <- df %>% 
  bind_cols(as.data.frame(str_split(df$VAR,"\r\n",simplify = TRUE))) %>%
  select(-VAR) %>%
  gather(key,value)

请指教。

Answer 1

我们可以通过separate_rows 做到这一点

library(tidyr)
separate_rows(df, VAR, sep='\\s+')