R語言ggplot2x軸順序設置自定義顏色的操作

Posted on by

先聲明一下所用的數據集

第一個圖如下

這個圖主要在於x軸的順序設置上，如果按不做任何處理的話>3那個就會在2之前，解決方法是b[,1]<-factor(b[,1],levels=c(‘2′,’3’,”>3″))，這句代碼可以重新設置因子的級別

完整代碼如下：

a[,1]<-factor(a[,1],levels=c('2','3',">3"))
ggplot(a,aes(x=a[,1],y=a[,2]))+geom_bar(stat="identity")+xlab('轉錄本數目')+ylab('主導轉錄本百分比')

第二個圖如下：

這個圖的關鍵在於要求顏色是黑白，代碼如下

col<-c("black","gray")
ggplot(data = c, aes(c1, c3, fill = c[,2])) +geom_bar(stat = 'identity', position = 'dodge')+
 xlab(' ')+ylab('個數')+ scale_fill_manual(values = col)+theme(legend.position='none')+
 geom_text(aes(label = c[,2]), position = position_dodge(0.9),vjust=-0.2)

其中scale_fill_manual(values = col)是用來自定義顏色的

補充：R語言ggplot2修改坐標軸刻度

序號 操作 代碼
1 修改坐標軸顯示范圍 scale_x_continous(limits = c(“A”, “B”)
2 修改坐標軸顯示范圍 ylim(A, B)
3 修改坐標軸顯示刻度 scale_x_continous(limits = c(“A”, “B”), breaks = seq(起始值, 終止值, 間隔))
4 旋轉坐標軸標簽 theme(axis.text.x = element_text(angle = 45, size = 8))
5 修改坐標軸的屬性 theme(axis.text.x = theme_text(X軸屬性), asix.text.y = theme_text(Y軸屬性))
6 修改字體 windowsFonts(myFont1 = windowsFont(“Times New Roman”), myFont2 = windowsFont(“華文行楷”))
6 旋轉坐標軸 coord_flip()
7 坐標軸轉換標度 scale_x_log10() #橫坐標log10轉換

以上為個人經驗，希望能給大傢一個參考，也希望大傢多多支持WalkonNet。如有錯誤或未考慮完全的地方，望不吝賜教。

推薦閱讀：

    None Found