R语言-写一篇附属医院《平安经》
最近 《平安经》火了
试着用R语言写一篇平安经，本来想全国医学院平安，结果发现百度各大医学院名字还不是很好找，只好“穷则独善其身”，只保佑学校附属医院平安好了
1。读取附属医院名字
http://www.tjmu.edu.cn/yxyxg/fsyy.htm
2。粘贴到文本
rm(list = ls())a<-read.table(file = '附属医院.txt',sep = '\t',header = F)
3。去掉“附属”两个字
library(tidyr)b<-a%>%separate(V1,into = c('drop','name') ,sep ='附属')%>%select(-drop)
4。加上“平安”两个字
b$name<- paste0(b$name,'平安')5。多行合并成一行
c<-paste(b$name,collapse = ', ')c
6。导出文本
write.table(c,file = '医院平安.txt',row.names = F,quote = F,col.names = F)
大功告成，love & peace