R语言提取list类型数据

请教一下大家：我的原始数据是第一行这样子的，我想实现第二行这种效果，就是提取每个分号间的IPC前4个字符，然后去重（因为有时候会出现重复值），然后注意是我想最终一行一个单元格的效果 ，我用data3<-lapply(strsplit(data$...1,"; "),function(aa) unique(substr(aa,1,4)))，这个语句可以提取出来这种list格式的，有没有办法导出数据一行一个单元格，谢谢各位兄台帮忙看看！

或者以你的data3直接操作：

1. data4<-data.frame()
   
2. for (i in 1:length(data3)) {
   
3.     data4[i,1] <- data3[i] %>% unlist() %>% paste(collapse = ";")
   
4. }

复制代码

试试unlist(data3)

data是data.frame的话，可以这样：

1. newdata <- data
   
2. 
   
3. for (i in 1:(dim(data)[1])) {
   
4.   newdata[i, 1] <-
   
5.     str_extract_all(data[i, 1], "\\b[[:alnum:]]{4}|(?<=\\;)[[:alnum:]]{4}") %>%
   
6.     unlist() %>%
   
7.     paste(collapse = ";")
   
8. }

复制代码

不好意思，我前两天在QQ群里有大佬帮忙解决了，没有试过你们的，它的代码是：
b <- matrix(nrow=length(data2),ncol=1)
for (i in 1:68209) {
  b[i,1] <- str_c(data2[[i]],collapse = ";")
}
估计跟你们的类似，有时间也试试你们的，谢谢你们