|
写在前面：作为一个刚开始从业生信的吊车尾，认为生信技能要来自于网罗，举一反三，加以思考，为自己的目的加以练习。
本次的思路来自于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 |
發表於 2025-1-25 17:25:00
