|
本文由阿童木根据实践经验而整理，希望对大家有帮助。
原创微文，欢迎转发转载。 导读
分享一个利用R语言在画板中只画图例不画图的方法。第一步还是需要用plot一个图，但是利用一些参数可以将图清除掉，然后接着再画图例就可以了。下面来看如何达到这些目的。 一、先画一个图 plot(1)
二、擦擦擦
plot(NULL, xlim=0:1, ylim=0:1)
# 擦掉点
plot(NULL, xlim=0:1, ylim=0:1, xlab="", ylab="")
# 擦掉xy轴标签
plot(NULL, xlim=0:1, ylim=0:1, xlab="", ylab="", xaxt="n", yaxt="n", bty="n")
# 擦掉框框
三、画图例 >写点什么 legend("topleft", legend=c("子", "丑", "寅", "卯"))
legend("center", legend=c("甲", "乙", "丙", "丁"))
legend("bottomright", legend=c("上", "下", "左", "右"))
>添加图形 pch参数可控制图例的图形，如上表。图例的颜色可以使用三种方法表示：1.英文单词；2. 十六进制颜色代码；3. 十进制颜色代码。 plot(NULL, xlim=0:1, ylim=0:1, xlab="", ylab="", xaxt="n", yaxt="n", bty="n")
legend("topleft", legend=c("子", "丑", "寅", "卯"), pch=15, col=c("red", "black", "blue", "purple"))
legend("center", legend=c("甲", "乙", "丙", "丁"), pch=17, col=c("#FFD700", "#ED9121", "#03A89E", "#FFC0CB"))
legend("bottomright", legend=c("上", "下", "左", "右"), pch=19, col=c(rgb(0,0,255,maxColorValue=255), rgb(11,23,70,maxColorValue=255), rgb(255,0,255,maxColorValue=255), rgb(255,69,0,maxColorValue=255)))
>改变图形和文字大小 参数： pt.cex: 图形大小 cex: 文字大小 bty: 去掉框框 plot(NULL, xlim=0:1, ylim=0:1, xlab="", ylab="", xaxt="n", yaxt="n", bty="n")
legend("topleft", legend=c("子", "丑", "寅", "卯"), pch=15, col=c("red", "black", "blue", "purple"), pt.cex=2, cex=2, bty="n")
legend("center", legend=c("甲", "乙", "丙", "丁"), pch=17, col=c("#FFD700", "#ED9121", "#03A89E", "#FFC0CB"), pt.cex=2, cex=2, bty="n")
legend("bottomright", legend=c("上", "下", "左", "右"), pch=19, col=c(rgb(0,0,255,maxColorValue=255), rgb(11,23,70,maxColorValue=255), rgb(255,0,255,maxColorValue=255), rgb(255,69,0,maxColorValue=255)), pt.cex=2, cex=2, bty="n")
四、添加标题 >使用mtext添加文本 参数： at: 调整左右位置（top） cex: 文字大小 adj：左右位置 padj：上下位置 col: 颜色 plot(NULL, xlim=0:1, ylim=0:1, xlab="", ylab="", xaxt="n", yaxt="n", bty="n")
legend("topleft", legend=c("子", "丑", "寅", "卯"), pch=15, col=c("red", "black", "blue", "purple"), pt.cex=2, cex=2, bty="n")
legend("center", legend=c("甲", "乙", "丙", "丁"), pch=17, col=c("#FFD700", "#ED9121", "#03A89E", "#FFC0CB"), pt.cex=2, cex=2, bty="n")
legend("bottomright", legend=c("上", "下", "左", "右"), pch=19, col=c(rgb(0,0,255,maxColorValue=255), rgb(11,23,70,maxColorValue=255), rgb(255,0,255,maxColorValue=255), rgb(255,69,0,maxColorValue=255)), pt.cex=2, cex=2, bty="n")
mtext("地支", at=0.1, cex=2, adj=0.5, padj=0.4, col="red")
mtext("天干", at=0.5, cex=2, adj=0.3, padj=4.5, col="red")
mtext("方位", at=0.95, cex=2, adj=0.5, padj=8, col="red")
感谢阅读~
 你可能还喜欢
1 技术贴 | 16S专题 | 简单介绍如何用自己的笔记本处理高通量16S数据 2 技术贴 | 宏基因组专题 | 组装工具盘点和比较
3 技术贴 | R语言菌群Alpha多样性分析和绘图
4 技术贴 | 宏转录组专题 | DDBJ数据库：宏转录组测序数据下载 5 技术贴 | R语言pheatmap聚类分析和热图
|
