代码:
#输入数据
q<-NULL
q$a<-c("安徽/中国/亚洲","合肥/安徽/中国/亚洲","浙江/中国/亚洲","安徽/中国/亚洲")
q<-data.frame(q,stringsAsFactors=FALSE)
#数据分析
q$b<-sapply(strsplit(q$a,"/"),function(x)paste(x[(length(x)-2):length(x)],collapse="/"))
输出:
a b
1 安徽/中国/亚洲 安徽/中国/亚洲
2 合肥/安徽/中国/亚洲 安徽/中国/亚洲
3 浙江/中国/亚洲 浙江/中国/亚洲
4 安徽/中国/亚洲 安徽/中国/亚洲
唉,为了回答你的问题,我袜子都没洗呢~
上面代码怎么会乱码,上传附件吧~