这确实是与此问题r-split-string-using-tidyrseparate重复的内容,但我无法将其用于我的目的,因为我不知道如何调整正则表达式。基本上,我想要同样的东西,但是在最后一个下划线之后拆分变量。
原因:我的数据中有些列对于同一因子/类型出现多次。我想到了可以熔化数据,在类型字符串之前单独分离值变量,然后再将其展开为宽格式,减少列数。我的问题是我的变量名有不同数量的下划线,我想学习如何在最后一个下划线之后分隔,而我事先添加了它。
MWE
原因:我的数据中有些列对于同一因子/类型出现多次。我想到了可以熔化数据,在类型字符串之前单独分离值变量,然后再将其展开为宽格式,减少列数。我的问题是我的变量名有不同数量的下划线,我想学习如何在最后一个下划线之后分隔,而我事先添加了它。
MWE
library(tidyr)
library(data.table)
dt<-data.table(Name=c("A","B","C"),Var_1_EVU=c(2,NA,NA),Var_1_BdS=c(NA,3,4),Var_2_BdS=c(NA,3,4))
dt.long<-melt(dt, id.vars=c("Name"))
dt.long<-separate(dt.long,variable, c("test","type"), sep='/[^_]*$/')
dt.wide<-spread(dt.long,key=Name,value=value)
我想要类似的东西
Name type Var1 Var2
1: A BdS NA NA
2: A EVU 2 NA
3: B BdS 3 3
4: B EVU NA NA
5: C BdS 4 4
6: C EVU NA NA