r语言横坐标设置不同颜色

Posted 2023-04-17

参考技术A R语言可视化dataframe数据、并自定义设置坐标轴各个标签使用不同的色彩 参考技术B 关于r语言横坐标设置不同颜色的方法如下
R语言中的颜色
1 颜色名称表示法
R语言中的颜色表示方式主要有两种，一种是用颜色的名称表示，例如：blue、red、orange等等，要知道R语言中颜色名称可以使用colors()方法得到。下图只显示50个颜色值：
library(scales)
show_col(colors()[1:50],label=T)
2 颜色值表示法
另一种颜色的表示方法是用数值的方法表示：也就是RGB的方法表示，通过对红(R)、绿(G)、蓝(B)三个颜色通道的变化以及它们相互之间的叠加来得到各式各样的颜色的;  可以使用rgb()方法-设置三种颜色的值（0-1）：例如 rgb(1, 0, 0)表示红色， 设置透明颜色时，再添加一个参数：rgb(1, 0, 0, 0.1)。也可以是0-255之间的数值：例如rgb()方法设置颜色（0-255）： rgb(255, 0, 0, max=255) 也表示红色,  透明颜色：rgb(255, 0, 0, 0.1 ,max=255)。还有一种颜色写法是用16进制的字符表示：#FF0000表示红色，没两位依次表示RGB的值；
3 数字表示法
可以用数字1、2、3等表示颜色，这些数字指向R语言中的色板palette颜色，如1代表当前palette的第1种颜色，2代表当前palette的第2种颜色等，默认色板中的颜色如下:

R语言boxplot大样本分组绘图

像这种样本量很大的数据
就不能像以往一样挨个设置颜色
因为非常耗费时间
需要采取另一种方法

---

简述作图思路

√先用第一组数据画第一组箱线图（用boxplot函数），横坐标范围设置为两组样本合起来的范围（在本图中为1-199），统一设置颜色等参数；

√最后用第二组数据画第二组箱线图 （用boxplot函数），统一设置颜色等参数，用at设置第二组箱线图出现的位置，否则第二组图会和第一组图重叠；

---

详情请看代码~

代码

rm(list = ls()) #清除环境

data1<- read.csv("C:/Users/HuMeng/Desktop/data/EFig2a.csv") #导入数据，大家可以用自己的数据试一试，excel里的每一列就对应一个箱子

boxplot(data1[1:98],axes=F,col="white",#使用data1里前98列数据绘图
        border = "#30883e",lwd=1.5, cex=.3, #lwd设置箱框粗细，cex设置孤点大小
        xlim=c(1,199),ylim=c(5,35),xlab = "Samples",ylab = "log2 (protein abundance)",
      cex.lab=1.4, font.lab=1) #y轴不从10开始，是因为方便设置legend，否则legend会和箱线图重叠在一起
boxplot(data1[99:199],add = T,axes=F,at=c(99:199),col="white",
        border="#a82c2e",lwd=1.5, cex=.3) #at设置图出现位置
axis(2,at=c(10,15,20,25,30,35), #2表示设置左坐标轴（y轴）
     label=c("10","15","20","25","30","35"),lwd=2,
     lwd.ticks = 2,
     font.axis=1, #坐标标签“1”为正常，“2”为加粗，“3”为斜体
     cex.axis=1.3) #坐标标签大小,默认为1
legend(list(x=0,y=10),bty="n",title=NA,
       c("Non-tumour","Tumour"),
       pch=c(0,0),col=c("#30883e","#a82c2e"),horiz=T,pt.cex=3,
       cex=1.4,text.font = 1,text.width = strwidth("1000000000000"))

往期文章：

如果这篇文章对您有用~

求关注、在看、转发~