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

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

本次的思路来自于RColorBrewerggsci

目标:做一个便于保存自己配色,且随时进行查看的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[i] - 0.5, color_data$y[i] - 0.5,
    color_data$x[i] + 0.5, color_data$y[i] + 0.5,
    col = color_data$color_code[i], border = "black"
  )
  text(
    color_data$x[i], color_data$y[i], 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[i] - 0.5, color_data$y[i] - 0.5,
    color_data$x[i] + 0.5, color_data$y[i] + 0.5,
    col = color_data$color_code[i], border = "black"
  )
  text(
    color_data$x[i], color_data$y[i], labels = i, cex = 1.5, col = "black"
  )
}

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

 

posted @   lerxiu  阅读(4)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· DeepSeek-R1本地部署如何选择适合你的版本?看这里
· 开源的 DeepSeek-R1「GitHub 热点速览」
· 传国玉玺易主,ai.com竟然跳转到国产AI
· 揭秘 Sdcb Chats 如何解析 DeepSeek-R1 思维链
· 自己如何在本地电脑从零搭建DeepSeek!手把手教学,快来看看! (建议收藏)
点击右上角即可分享
微信分享提示