R语言可视化（十）

阳光穿透心脏的1/2处 2023-06-28 06:13 8阅读 0赞

可视化百度云资料链接为：  
链接：[https://pan.baidu.com/s/1VMzPo3kMvIp7ON4aNbzqqQ][https_pan.baidu.com_s_1VMzPo3kMvIp7ON4aNbzqqQ]  
提取码：95n7

## 条形图可视化 ##

library(ggplot2)
    library(RColorBrewer)
    library(Cairo)
    library(showtext)
    
    
    mydata<- read.csv("Data.csv",stringsAsFactors=FALSE)
    
    mydata$Team<-as.character(mydata$Team)
    
    
    mydata<-transform(mydata, label1=ifelse(Difference>=0, Team, NA),
                      label2=ifelse(Difference>0, NA,Team))
    
    
    mydata$Team <- factor(mydata$Team, levels = mydata$Team[order(mydata$Difference)])
    
    #CairoPDF(file="图1-8-15(a)_条形图.pdf",width=5.28,height=5.47) 
    #showtext.begin()
    ggplot(data = mydata, aes(x = Team, y = Difference,fill = Difference)) +
      geom_bar(stat = "identity", width = 0.8,colour="black",size=0.25)+
      scale_fill_gradient2(low=brewer.pal(7,"Set1")[2],mid="grey90",high=brewer.pal(7,"Set1")[1],midpoint=0)+
      geom_text(aes(y = 0,     label=label2),size=3,hjust=-0.1)+ #添加负值部分的数据标签
      geom_text(aes(y = -0.001,label=label1),size=3,hjust= 1.1)+ #添加正值部分的数据标签
      coord_flip() +   #坐标轴翻转
      ylim(-5,5)+
      theme_minimal() + #图表主题设定
      theme(
            panel.grid.major=element_blank(),
            panel.grid.minor=element_blank(),
            panel.grid.major.x = element_line(colour = "grey80",size=.25),
            panel.grid.minor.x = element_line(colour = "grey80",size=.25),
            plot.title=element_text(size=15,hjust=.5),
            axis.text.x = element_text(face="plain", color="black",
                                       size=11, angle=0),
            axis.text.y = element_blank(),
            legend.position="right",
            legend.text=element_text(size=10),
            legend.title=element_text(size=10))

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70]

参考资料1：[https://github.com/EasyChart/Beautiful-Visualization-with-R/][https_github.com_EasyChart_Beautiful-Visualization-with-R]

参考资料2：[https://blog.csdn.net/tandelin/article/details/87719623][https_blog.csdn.net_tandelin_article_details_87719623]

[https_pan.baidu.com_s_1VMzPo3kMvIp7ON4aNbzqqQ]: https://pan.baidu.com/s/1VMzPo3kMvIp7ON4aNbzqqQ
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70]: https://img-blog.csdnimg.cn/20200107173323576.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70
[https_github.com_EasyChart_Beautiful-Visualization-with-R]: https://github.com/EasyChart/Beautiful-Visualization-with-R/
[https_blog.csdn.net_tandelin_article_details_87719623]: https://blog.csdn.net/tandelin/article/details/87719623