R语言-写一篇附属医院《平安经》

Posted 2021-04-18 吉时逢雨

最近 《平安经》火了

试着用R语言写一篇平安经，本来想全国医学院平安，结果发现百度各大医学院名字还不是很好找，只好“穷则独善其身”，只保佑学校附属医院平安好了

1。读取附属医院名字

http://www.tjmu.edu.cn/yxyxg/fsyy.htm

2。粘贴到文本

rm(list = ls())a<-read.table(file = '附属医院.txt',sep = '	',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