R語言繪制頻度條形圖及其美化
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 參考書籍：R數(shù)據(jù)可視化手冊
1．使用ggplot()函數(shù)和geom_bar()繪制頻度條形圖
library(gcookbook)
upc<-subset(uspopchange,rank(Change)>40)
upc
ggplot(upc,aes(x=Abb,y=Change,fill=Region))+geom_bar(stat="identity")
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? uspopchange
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?頻度條形圖
2.使用scale_fill_manual（）或scale_fill_brewer（）函數(shù)重新修改顏色
#使用scale_fill_manual（）重新修改顏色障般，reorder()函數(shù)是對柱狀圖高度排序比按照字母順序?qū)Ψ诸愖兞颗判蚣自幔ⅲ侯伾成湓O(shè)定是在aes()內(nèi)部完成谴忧，而顏色重新設(shè)定是在aes() 外部完成?
library(gcookbook) ?????????????????????????????????????? ????????????????????????????????????????????????????????????????????????????????
ggplot(upc,aes(x=reorder(Abb,Change),y=Change,fill=Region))+
geom_bar(stat="identity",colour="black")+
scale_fill_manual(values=c("#669933","#FFCC66"))+xlab("State")
#使用scale_fill_brewer（）重新修改顏色
ggplot(upc,aes(x=reorder(Abb,Change),y=Change,fill=Region))+
geom_bar(stat="identity",colour="black")+
scale_fill_brewer(palette="Greens")+xlab("State")
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?"#669933","#FFCC66"
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? palette="Greens"
備注：修改了柱高的順序霸饲，reorder()函數(shù)將柱高排序混亂到有規(guī)律辉浦。
3.? ?使用geom_bar()函數(shù)調(diào)整條形寬度和條形間距
library(gcookbook)
ggplot(upc,aes(x=reorder(Abb,Change),y=Change,fill=Region))+
geom_bar(stat="identity",colour="black",width=0.5)+
scale_fill_brewer(palette="Greens")+xlab("State")
ggplot(upc,aes(x=reorder(Abb,Change),y=Change,fill=Region))+
geom_bar(stat="identity",colour="black",width=0.9)+
scale_fill_brewer(palette="Greens")+xlab("State")
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?Width=0.5
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?Width=0.9
備注：width該參數(shù)的默認(rèn)值為0.9，值越大條形圖越寬咧欣，值越小更窄臭墨。
4.? 使用geom_text()函數(shù)添加數(shù)據(jù)標(biāo)簽
#數(shù)據(jù)標(biāo)簽在柱狀圖下方
ggplot(upc,aes(x=reorder(Abb,Change),y=Change,fill=Region))+
geom_bar(stat="identity",colour="black",width=0.9)+
geom_text(aes(label=Change),vjust=1.5,colour="black",position=position_dodge(0.5),size=3)+
scale_fill_brewer(palette="Greens")+xlab("State")
#數(shù)據(jù)標(biāo)簽在柱狀圖上方
ggplot(upc,aes(x=reorder(Abb,Change),y=Change,fill=Region))+
geom_bar(stat="identity",colour="black",width=0.9)+
geom_text(aes(label=Change),vjust=-1.5,colour="black",position=position_dodge(0.5),size=3)+
scale_fill_brewer(palette="Greens")+xlab("State")
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Vjust=1.5
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? vjust=-1.5
R語言繪制正負(fù)條形圖及著色
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 參考書籍：R數(shù)據(jù)可視化手冊
1.? ?使用ggplot()函數(shù)和geom_bar()繪制正負(fù)條形圖
library(gcookbook)
csub<-subset(climate,Source=="Berkeley"&Year>=1900)
csub$pos<-csub$Anomaly10y>=0
csub
ggplot(csub,aes(x=Year,y=Anomaly10y,fill=pos))+geom_bar(stat="identity",position= "identity")
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?原始數(shù)據(jù)
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?正負(fù)條形圖
2.? 使用scale_fill_manual（）函數(shù)進(jìn)行著色
#使用參數(shù)對圖形顏色進(jìn)行調(diào)整藏鹊，guide=FALSE可以刪除圖例
#修改邊框顏色colour()和邊框?qū)挾萻ize()
ggplot(csub,aes(x=Year,y=Anomaly10y,fill=pos))+geom_bar(stat="identity",position="identity",colour="black",size=0.25)+scale_fill_manual(values= c("#CCEEFF","#FFDDDD"),guide=FALSE)
ggplot(csub,aes(x=Year,y=Anomaly10y,fill=pos))+geom_bar(stat="identity",position="identity",colour="black",size=0.25)+scale_fill_manual(values= c("#CCEEFF","#FFDDDD"))
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? guide=FALSE
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?guide=TRUE
自我總結(jié)：
ggplot(data,aes(x=rdoeder(x,y),y,fill))函數(shù)其中g(shù)gplot（）中reorder參數(shù)可以對柱高重新排序
geom_bar()函數(shù)----繪制頻度條形圖润讥，width可調(diào)整條形間距和寬度，
geom_text()函數(shù)---添加數(shù)據(jù)標(biāo)簽
scale_fill_brewer（palette=1）函數(shù)與scale_fill_manual（values =c("429","419")）函數(shù)----顏色設(shè)置
