【画图】用413篇疑似造假文章信息画个图，附文章list链接

theme(legend.position = "none")

scale_fill_manual(values=colorRampPalette(pal_lancet("lanonc")(9))(53))

coord_flip()

library(ggplot2)
library(ggsci)
pubpeer<-read.csv("Papermill Productions - Sheet1.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()
p1

p2<-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