R绘图小工具-配色篇（1）- 色彩展示函数

在悲观里乐观着

写在前面：作为一个刚开始从业生信的吊车尾，认为生信技能要来自于网罗，举一反三，加以思考，为自己的目的加以练习。

本次的思路来自于RColorBrewer和ggsci

目标：做一个便于保存自己配色，且随时进行查看的Rscript，后续考虑实用性，再加以制作R包

下面是一个简单的基于 Base Plotting System 的绘图代码，便于适用于不同版本的base-R

功能：输入一个色彩向量，自动画出方格图，并表上数字，方便自行挑选使用的颜色。

点击查看代码

visColor <-function(colorset=c("white","black")){
  color_data=data.frame(color_name=paste0("color",c(1:length(colorset))),color_code=colorset)
  n=nrow(color_data)
  color_data$y <- rep(1:ceiling(n / 10), each = 10)[1:n]
  color_data$x <- rep(1:10, length.out = n)
  max_x=max(color_data$x)+1
  max_y=max(color_data$y)+1
  plot(NA, xlim = c(0, max_x), ylim = c(0, max_y), xlab = "", ylab = "", type = "n", axes = FALSE, asp = 1)

for(i in 1:nrow(color_data)) {
  rect(
    color_data$x - 0.5, color_data$y - 0.5,
    color_data$x + 0.5, color_data$y + 0.5,
    col = color_data$color_code, border = "black"
  )
  text(
    color_data$x, color_data$y, labels = i, cex = 1.5, col = "black"
  )
}

# 添加外边框
rect(0, 0,max_x, max_y, col = NA, border = "black", lwd = 2)
}

测试visColor。

点击查看代码

visColor()

 

将一段复制好的颜色，作为向量输入

点击查看代码

visColor <-function(colorset=c("white","black")){
  color_data=data.frame(color_name=paste0("color",c(1:length(colorset))),color_code=colorset)
  n=nrow(color_data)
  color_data$y <- rep(1:ceiling(n / 10), each = 10)[1:n]
  color_data$x <- rep(1:10, length.out = n)
  max_x=max(color_data$x)+1
  max_y=max(color_data$y)+1
  plot(NA, xlim = c(0, max_x), ylim = c(0, max_y), xlab = "", ylab = "", type = "n", axes = FALSE, asp = 1)

for(i in 1:nrow(color_data)) {
  rect(
    color_data$x - 0.5, color_data$y - 0.5,
    color_data$x + 0.5, color_data$y + 0.5,
    col = color_data$color_code, border = "black"
  )
  text(
    color_data$x, color_data$y, labels = i, cex = 1.5, col = "black"
  )
}

# 添加外边框
rect(0, 0,max_x, max_y, col = NA, border = "black", lwd = 2)
}

 

来源：https://www.cnblogs.com/lerxiu/p/18691080