R - 更改列表中字符的顺序

Question

你好，我有这份清单

    LIST<-list(list("DC,MD,MA,Washigton,Baltimore,Boston,France,Turkey,China"),
           list("DC,MD,Washington,Baltimore,France,Turkey"),
           list("DC,Washington,France,Turkey,China")

我想按照这个逻辑改变子列表的字符串顺序：

    LIST<-list(list("DC,Washington,MD,Baltimore,MA,Boston,France,Turkey,China"),
               list("x1,y1,x2,y2,z1,z2,z3"),
               list("x1,y1,z1,z2,z3"))

请注意，x 和 y 的计数相同，最多可以为 3。Z 没有计数限制。我当然不希望手动更改每个子列表的顺序，而是使用自动方式。

Answer 1

library(magrittr)
fun=function(string){
 lapply(strsplit(string,","),function(x)sub("([a-z])([0-9])","\\2\\1",x)%>%
    sort()%>%sub("([0-9])([a-z])","\\2\\1",.)%>%paste(collapse=","))
}

rapply(LIST,fun,how="list")

改版后：

 fun=function(string,NO){
  lapply(strsplit(string,","),function(x) 
    paste(c(by(x, c(s<-rep(1:NO,2),rep(0,length(x)-length(s)))
               ,paste0,collapse=",")),collapse=", "))
}
rapply(LIST,fun,how="list",NO=3)