利用R语言对数据进行分列

现在有一笔数据，需要对codeexpl分列，我已经通过str_split函数用\n分隔符分出来，但是现在的工作是需要根据各个数据的取值进行分情况分列。
举个栗子：
（1）原始数据见下图：

（2）我通过str_split函数分出来后的效果是下图：

问题：请教一下大家我怎么把冒号前面的文字变成列名，冒号变成取值。简单的分列可能不好用，主要原因是冒号前面这些文字顺序不一定一样，然后每个取值也不一定一样，这里的例子是7个，可能是8个，9个之类的，举个栗子。

可以看见有些是变更前专利权人，有些是变更前申请人。
我的思路是先想找出去重后的所有这些字段，然后再匹配进去，但是一直出不来。
所以想请教一下论坛大佬，谢谢各位了~，50论坛币奉上。
example.xlsx (11.95 KB)

2021-6-12 10:51:24 上传

原始数据

1. library(openxlsx)
   
2. library(stringr)
   
3. mydata <- read.xlsx("example.xlsx")
   
4. expl <- mydata$codeExpl
   
5. 
   
6. # 将expl每个元素转成一个带有名字的向量
   
7. 
   
8. expl_list <- list()
   
9. for (i in seq_along(expl)) {
   
10.   expl_vector  <-  unlist(str_split(expl[i], "_x000D_\n"))[-1]  # 将每行进行分词处理
    
11.   exp_vectorname <- gsub(":.+", "", expl_vector)
    
12.   expl_vector <- gsub(".+:", "", expl_vector)
    
13.   names(expl_vector) <- exp_vectorname  
    
14.   expl_list[[i]] <- expl_vector[sort(names(expl_vector))]  # 排序,尽量让同意变量名位置相同
    
15. }
    
16. 
    
17. # 找出每个变量名各种叫法
    
18. names.list <- lapply(expl_list, names)
    
19. 
    
20. # 创建一个提取取某列表第x元素的函数
    
21. myfun <- function(mylist) {
    
22.   function(x) {
    
23.     len = length(mylist)
    
24.     list_sub = vector(length = len)
    
25.     for (i in 1:len){
    
26.       list_sub[i] = mylist[[i]][x]
    
27.     }
    
28.     return(unique(list_sub))
    
29.   }
    
30. }
    
31. 
    
32. mylist.fun <- myfun(names.list)
    
33. 
    
34. names_call <- lapply(1:length(names.list[[1]]), function(x) mylist.fun(x))
    
35. 
    
36. # 找出叫法>1的变量名
    
37. Filter(function(x) length(x)>1, names_call)
    
38. 
    
39. # 接下来可以通过更改exp_list里的名字，然后将列表转为数据框（略）
    
40. # 注意sort可能不一定能将正确将同意的名字放在相同的位置，这里面需要人类的思考。

复制代码