R语言：按分隔符分割字符串并提取倒数三列

数据框如下所示：

现在我们希望分割成如下格式：

则需要用到代码：

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)