Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/78.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
根据R中的几个模式拆分列_R_String_Tidyr - Fatal编程技术网

根据R中的几个模式拆分列

根据R中的几个模式拆分列,r,string,tidyr,R,String,Tidyr,我需要做的一些数据处理工作是根据几个单词拆分一列。为了简单起见,假设我只有两个词(后面和前面) 示例数据 data <- structure (list(author=c("joe","mack","rick"),options=c("bike before run","car after bike","bus after bike")), class= "da

我需要做的一些数据处理工作是根据几个单词拆分一列。为了简单起见,假设我只有两个词(后面和前面)

示例数据

data <- structure (list(author=c("joe","mack","rick"),options=c("bike before run","car after bike","bus after bike")), class= "data.frame", row.names=c(NA,-3L))
尝试使用tidyr无效

data %>% tidyr::separate(options, into=c("new1","new2"),sep="after|before")
试试这个:

library(dplyr)
library(reshape)

data %>% cbind(.,colsplit(data$options, "after|before", c("new1", "new2"))) %>%
      select(-options)

你能展示一下你的
packageVersion('tidyr')
几个小时前有人问了一个类似的问题。这适用于我的
1.1.2
版本这也适用于我的
1.1.3
。如果您尝试@akrun建议的方法,并且您有一个旧版本,您可以使用
install.packages(“tidyr”)
进行更新,只要您的Rstudio版本和依赖项对于新版本足够最新。
library(dplyr)
library(reshape)

data %>% cbind(.,colsplit(data$options, "after|before", c("new1", "new2"))) %>%
      select(-options)