数据准备
df <- read.table(file = "D:/Documents/R wd/df.csv", header = T, sep = ",", colClasses = c(year = "character", nitrogen = "character", variety = "character", block = "character")) # 数据导入。
df # 查看数据。
## year nitrogen variety block yield index
## 1 2020 N1 a 1 3.4 1.26
## 2 2020 N1 a 2 4.1 1.20
## 3 2020 N1 a 3 4.3 1.30
## 4 2020 N1 b 1 2.8 1.08
## 5 2020 N1 b 2 2.7 1.05
## 6 2020 N1 b 3 2.5 1.15
## 7 2020 N2 a 1 5.1 1.32
## 8 2020 N2 a 2 5.6 1.28
## 9 2020 N2 a 3 5.3 1.35
## 10 2020 N2 b 1 4.8 1.33
## 11 2020 N2 b 2 4.0 1.28
## 12 2020 N2 b 3 5.2 1.30
## 13 2021 N1 a 1 4.8 1.19
## 14 2021 N1 a 2 4.5 1.21
## 15 2021 N1 a 3 4.5 1.24
## 16 2021 N1 b 1 3.8 1.09
## 17 2021 N1 b 2 3.6 1.28
## 18 2021 N1 b 3 3.3 1.35
## 19 2021 N2 a 1 5.8 1.45
## 20 2021 N2 a 2 5.2 1.40
## 21 2021 N2 a 3 5.6 1.37
## 22 2021 N2 b 1 4.0 1.28
## 23 2021 N2 b 2 4.5 1.15
## 24 2021 N2 b 3 4.7 1.24
3.4.4 图例
函数：legend(location, title, legend, ....)
参数详解：
x和y：用于定位图例，也可用关键词"bottomright", "bottom", "bottomleft", "left", "topleft", "top", "topright", "right" 和 "center"；当图例用关键词设置位置后，inset = 分数，可以设置其相对位置；
legend：指定图例标签，字符或表达式向量；
fill：用特定的颜色进行填充；
col：设置图例中出现的点或线的颜色；
border：当fill = 参数存在的情况下，用于指定填充的边框颜色；
lty, lwd：图例中线的类型与宽度；
pch：点的类型；
angle：阴影的角度；
density：阴影线的密度；
cex：指定图例显示大小；
bg：指定图例的背景色；
bty：指定图例框是否画出，默认o为画出，n为不画出；
box.lty, box.lwd, box.col： 设置图例边框线型，线粗，颜色，box.lty为虚线，box.lwd决定粗线，box.col决定颜色；
pt.bg：图例中点的背景色；
pt.cex：图例中点的大小；
pt.lwd：图例中点边缘的线宽；
x.intersp：图例中文字离图片的水平距离；
y.intersp：图例中文字离图片的垂直距离；
adj：图例中字体的相对位置；
text.width：图例中字体所占的宽度，调整后图例整个宽度也跟着变化了；
text.col：图例字体的颜色；
text.font：图例字体；
merge：逻辑值，merge=TRUE，合并点与线，但不填充图例框，默认为TRUE；
trace：逻辑值，trace=TRUE显示图例信息；
plot：逻辑值，plot=FALSE不画出图例；
ncol：图例中分类的列数；
horiz：逻辑值，horiz=TRUE，水平放置图例；
title：给图例加标题；
xpd：xpd=FALSE，即不允许在作图区域外作图，改为TRUE即可，与par()参数配合使用；
title.col：标题颜色；
title.adj：图例标题的相对位置，0.5为默认，在中间。0最左，1为最右；
seg.len：指定图例中线的线长，长度单位为字符宽度。
1 图例方位
plot(df$index, df$yield) # 基本图形绘制。
legend("bottom", title = "bottom", legend = "B", pch = 1) # 底部。
legend("bottomleft", title = "bottomleft", legend = "B", col = "red", pch = 1) # 底部左部。
legend("bottomright", title = "bottomright", legend = "B", col = "blue", pch = 1) # 底部右部。
legend("topleft", title = "topleft", legend = "B", col = "green", pch = 1) # 顶部左部。
legend("topright", title = "topright", legend = "B", col = "orange", pch = 1) # 顶部右部。
legend("top", title = "top", legend = "B", col = "pink", pch = 1) # 顶部中部。
legend("left", title = "left", legend = "B", col = "brown", pch = 1) # 中部左部。
legend("right", title = "right", legend = "B", col = "gray", pch = 1) # 中部右部。
legend("center", title = "center", legend = "B", col = "yellow", pch = 1) # 图形正中。
legend(x=1.1, y=4.5, title = "A", legend = "B", col = "yellow", pch = 1) # 自定义位置。
legend("topleft", title = "topleft", legend = "B", col = "green", pch = 1, inset = 0.05) # 顶部左部，偏离0.05。
2 修饰图例
plot(df$index, df$yield) # 绘制图形。
legend("topleft", title = "topleft", legend = "B", col = "green", pch = 1, inset = 0.05, bg="yellow", box.lty = 2) # bg设置图例背景色为黄色，box.lty设置图例边框线型。
legend("left", title = "left", legend = "B", col = "blue", pch = 1, bty = "n") # 不绘制图例边框。
3 图例绘制在图外
par(mai=c(1,2,1,2)) # 设置图形边缘尺寸，mai=c(下,左,上,右)。
plot(df$index, df$yield) # 绘制图形。
par("usr") # 查看图形坐标轴范围，返回结果为4个值，范围对应 x轴的起始，x轴的终止，y轴的起始，y轴的终止。
legend(x=1.5+xinch(0.1), y=5.5-yinch(0.2), title = "A", legend = "B", pch=1, xpd = T) # bty=“n”，不绘制图例边框。xinch()、yinch()，分别表示沿x轴，y轴移动的距离，按绝对距离计算，或按坐标轴的数量级计算。
4 自定义图例
有时候绘制出的图是分组图，这时候需要自定义绘制图例。
plot(1:5, 1:5, type="b", col="blue") # 绘制一个点线图。
lines(1:5, c(3, 3, 3, 3, 3), type = "b", col="red") # 添加另一变量的点线图。
legend("topleft", title = "sample points", legend = c("v1", "v2"), pch = c(1,1), col = c("red", "blue"), lty = c(1,1), cex=0.8, inset = 0.05) # 添加图例。
参考资料：
《R语言实战》（中文版），人民邮电出版社，2013.
R语言绘制图例(legend)的各种问题_详细综合解析，https://blog.csdn.net/xiangyong58/article/details/54579293
投必得R语言教程，第二讲 R作图-基础-图形参数设置：标题、图例、文字，https://mp.weixin.qq.com/s?__biz=MzU1Mzc3OTIwNg==&mid=2247495531&idx=1&sn=cdd80d4e950ae2b344cf188c68922fa8&chksm=fbef0602cc988f14e93b71bc6fcc2fda782d3ae9a3a67601a6c87756f4ae85bcc5d9c56d9b51&scene=21#wechat_redirect
一幅图解决R语言绘制图例的各种问题，https://blog.csdn.net/weixin_30469895/article/details/96649305