R绘图小工具-配色篇(1)- 色彩展示函数
1.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[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)
}
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· DeepSeek-R1本地部署如何选择适合你的版本?看这里
· 开源的 DeepSeek-R1「GitHub 热点速览」
· 传国玉玺易主,ai.com竟然跳转到国产AI
· 揭秘 Sdcb Chats 如何解析 DeepSeek-R1 思维链
· 自己如何在本地电脑从零搭建DeepSeek!手把手教学,快来看看! (建议收藏)