上面这个事就不多说了，想画图的往下看，
想要文章的list，关注公众号后回复：文章list2
数据获取
这里要说明一下，原链接中没有文章的第一单位信息，现在这个信息使用Rselenium在pubmed上爬取的内容。
Tips
上面这个数据x轴内容特别多，可能会遇到一下几个问题;
1、不需要legend
theme(legend.position = "none")2、色盘颜色不够
scale_fill_manual(values=colorRampPalette(pal_lancet("lanonc")(9))(53))3、翻转一下更合适
coord_flip()画图
library(ggplot2)
library(ggsci)
pubpeer<-read.csv("pubpeer2xx.csv",header = T)
p1<-ggplot(data=pubpeer,aes(x=Journal,fill=Journal))+
geom_bar(stat = "count")+
theme_bw()+
theme(axis.text.x = element_text(hjust = 1),legend.position = "none")+
scale_fill_manual(values=colorRampPalette(pal_lancet("lanonc")(9))(53))+coord_flip()
p1p2<-ggplot(data=pubpeer,aes(x=Affiliations.Hospital,fill=Affiliations.Hospital))+
geom_bar(stat = "count")+
theme_bw()+
theme(axis.text.y = element_text(hjust = 1,size=7),legend.position = "none")+
scale_fill_manual(values=colorRampPalette(pal_lancet("lanonc")(9))(143))+coord_flip()
p2
以上数据来自于https://forbetterscience.com/2020/02/27/dark-satanic-papermills/
一些建议
1、第一幅图上面的杂志大家要小心了，尤其是统计数字比较多的！
2、大家还是瞄准最新文件上的三高努力吧
3、不要存在侥幸心理，踏踏实实做实验
4、带自己名字的文章，发出去之前一定要看一眼。
5、让科研回归正途For Better Science
One More Thing......