数据框如下所示:
现在我们希望分割成如下格式:
则需要用到代码:
library(stringi)
test=read.table('test.file', header=F,sep=' ')
y1=lapply(stri_split_regex(stri_reverse(test$new), pattern = '[_\\s]+', n = 3), stri_reverse)
y1 <- setNames(data.table::transpose(y1)[3:1], c('tissue', 'tf', 'cell'))
df1 <- as.data.frame(y1)