从列中的特定模式创建新行

Question

我是 R 的新手，我必须想出一个在单个向量中出现某个字符串后创建新行的操作示例。

这里说明了向量：

address_list <- c("Road","Number","City","Zipcode","Telephone","House","Road","Number","City","Zipcode","House","Road","Number","City","Zipcode","Telephone","House")

该操作是每次“House”出现时创建一个新行。将向量放入一个矩阵中：

Road,Number,City,Zipcode,Telephone,House
road,Number,City,Zipcode,,House
road,Number,City,Zipcode,Telephone,House

我对 Excel 或 VBA 一无所知。但我可以想象这个问题与我希望在 R 中构建的操作有点相同。

VBA example

我想出了一些伪代码，它可能会给出一个更直观的例子来说明我应该如何思考以解决这个操作。

gsub(list, \s, ",")
For 
  every "House" in list as i
rbind(list, \n, i)

Answer 1

我们从向量 ('address_list') 中获取 unique 元素，遍历这些元素并提取 'address_list' 中的元素（或使用 split 即 lst <- split(address_list, address_list)），在末尾填充 NA 为 @987654324 @ 元素的 length 小于最大值 length, cbind 它创建一个 matrix ('m1') 和 paste 与使用 ave 创建的序列。

 lst <- lapply(unique(address_list), function(x) address_list[address_list==x])
 m1 <- do.call(cbind, lapply(lst, `length<-`, max(lengths(lst))))
 m1[] <- ifelse(is.na(m1), NA, paste0(m1, ave(m1, m1, FUN = seq_along)))
 m1
 #     [,1]    [,2]      [,3]    [,4]       [,5]         [,6]    
 #[1,] "Road1" "Number1" "City1" "Zipcode1" "Telephone1" "House1"
 #[2,] "Road2" "Number2" "City2" "Zipcode2" "Telephone2" "House2"
 #[3,] "Road3" "Number3" "City3" "Zipcode3" NA           "House3"