导读

Only legend, no plot. But plot first...

一、画图

欲擒故纵

plot(1)

图片.png

二、擦擦擦

擦掉中间的点

plot(NULL, xlim=0:1, ylim=0:1)

图片.png

擦掉xy轴的标签

plot(NULL, xlim=0:1, ylim=0:1, xlab="", ylab="")

图片.png

擦掉坐标轴

plot(NULL, xlim=0:1, ylim=0:1, xlab="", ylab="", xaxt="n", yaxt="n")

图片.png

擦掉框框，擦干净了

plot(NULL, xlim=0:1, ylim=0:1, xlab="", ylab="", xaxt="n", yaxt="n", bty="n")

图片.png

三、画图例

写点什么

legend("topleft", legend=c("子", "丑", "寅", "卯"))
legend("center", legend=c("甲", "乙", "丙", "丁"))
legend("bottomright", legend=c("上", "下", "左", "右"))

图片.png

加图、上色。挑喜欢的图，上喜欢的色。pch参数可控制图例的图形，如下表。上色大法好又多：1. 英文单词；2. 十六进制颜色代码；3. 十进制颜色代码。

参考：常用RGB配色表

top bottom right left：位置（可组合使用）
legend：标签
pch：图形
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"))

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)))

图片.png

去掉框框，加大尺寸

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")

图片.png

添加title，并调整位置

at：左右移动（top）
adj：左右移动
padj：上下移动

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")

图片.png

参考
mtext