R語言可視化(十)

可視化百度雲資料鏈接爲:
鏈接: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))

在這裏插入圖片描述

參考資料1:https://github.com/EasyChart/Beautiful-Visualization-with-R/

參考資料2:https://blog.csdn.net/tandelin/article/details/87719623

發佈了269 篇原創文章 · 獲贊 67 · 訪問量 17萬+
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章