R语言ggplot2x轴顺序设置自定义颜色的操作

时间:2022-06-01 19:22:44

先声明一下所用的数据集:

R语言ggplot2x轴顺序设置自定义颜色的操作

 

第一个图如下

R语言ggplot2x轴顺序设置自定义颜色的操作

这个图主要在于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('主导转录本百分比')

 

第二个图如下:

R语言ggplot2x轴顺序设置自定义颜色的操作

这个图的关键在于要求颜色是黑白,代码如下

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转换

以上为个人经验,希望能给大家一个参考,也希望大家多多支持服务器之家。如有错误或未考虑完全的地方,望不吝赐教。

原文链接:https://blog.csdn.net/xspyzm/article/details/76022889