第三章学习完了 ，主要学习了R基础作图用到的参数设置，图形元素的添加设置等，现在自己练习巩固一下。
数据准备
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 v1 v2 v3 v4
## 1 2020 N1 a 1 1.26 2.14 3.4 4.66
## 2 2020 N1 a 2 1.20 2.90 4.1 5.30
## 3 2020 N1 a 3 1.30 3.00 4.3 5.60
## 4 2020 N1 b 1 1.08 1.72 2.8 3.88
## 5 2020 N1 b 2 1.05 1.65 2.7 3.75
## 6 2020 N1 b 3 1.15 1.35 2.5 3.65
## 7 2020 N2 a 1 1.32 3.78 5.1 6.42
## 8 2020 N2 a 2 1.28 4.32 5.6 6.88
## 9 2020 N2 a 3 1.35 3.95 5.3 6.65
## 10 2020 N2 b 1 1.33 3.47 4.8 6.13
## 11 2020 N2 b 2 1.28 2.72 4.0 5.28
## 12 2020 N2 b 3 1.30 3.90 5.2 6.50
## 13 2021 N1 a 1 1.19 3.61 4.8 5.99
## 14 2021 N1 a 2 1.21 3.29 4.5 5.71
## 15 2021 N1 a 3 1.24 3.26 4.5 5.74
## 16 2021 N1 b 1 1.09 2.71 3.8 4.89
## 17 2021 N1 b 2 1.28 2.32 3.6 4.88
## 18 2021 N1 b 3 1.35 1.95 3.3 4.65
## 19 2021 N2 a 1 1.45 4.35 5.8 7.25
## 20 2021 N2 a 2 1.40 3.80 5.2 6.60
## 21 2021 N2 a 3 1.37 4.23 5.6 6.97
## 22 2021 N2 b 1 1.28 2.72 4.0 5.28
## 23 2021 N2 b 2 1.15 3.35 4.5 5.65
## 24 2021 N2 b 3 1.24 3.46 4.7 5.94
绘制基本图形
plot(df$v1, df$v2) # 绘制基本图形
image.png
添加标题
plot(df$v1, df$v2, main="Main title", sub="Subtitle", xlab="Independent variable", ylab="Dependent variable", col.main= "red", font.main=3, cex.main=3) # 添加正副标题，改变轴标签,设置主标题颜色，字体，大小。
image.png
设置坐标轴
plot(df$v1, df$v2, main="Main title", sub="Subtitle", xlab="Independent variable", ylab="Dependent variable", col.main= "red", font.main=3, cex.main=3, xlim=c(0,1.5), ylim=c(1,4.5)) # 改变x轴和y轴范围。
image.png
添加次要刻度线
plot(df$v1, df$v2, main="Main title", sub="Subtitle", xlab="Independent variable", ylab="Dependent variable", col.main= "red", font.main=3, cex.main=3, xlim=c(0,1.5), ylim=c(1,4.5)) # 接上图。
library(Hmisc) # 调用Hmisc包。
minor.tick(nx=2, ny=2, tick.ratio = 0.5) # 给x轴和y轴添加次要刻度线，次要刻度线的长度是主刻度线的一半。
image.png
添加参考线
plot(df$v1, df$v2, main="Main title", sub="Subtitle", xlab="Independent variable", ylab="Dependent variable", col.main= "red", font.main=3, cex.main=3, xlim=c(0,1.5), ylim=c(1,4.5)) # 接上图。
library(Hmisc) # 调用Hmisc包。
minor.tick(nx=2, tick.ratio = 0.5) # 给x轴添加次要刻度线，次要刻度线的长度是主刻度线的一半。
abline(v=1.0, col="red", lty=4, lwd=2) # x=1垂直参考线。
abline(h=c(2, 4), col=c("blue", "green"), lty=c(3, 5), lwd=3) # y=2和4的水平参考线。
image.png
添加图例
plot(df$v1, df$v2, main="Main title", sub="Subtitle", xlab="Independent variable", ylab="Dependent variable", col.main= "red", font.main=3, cex.main=3, xlim=c(0,1.5), ylim=c(1,4.5)) # 接上图。
library(Hmisc) # 调用Hmisc包。
minor.tick(nx=2, tick.ratio = 0.5) # 给x轴添加次要刻度线，次要刻度线的长度是主刻度线的一半。
abline(v=1.0, col="red", lty=4, lwd=2) # x=1垂直参考线。
abline(h=c(2, 4), col=c("blue", "green"), lty=c(3, 5), lwd=3) # y=2和4的水平参考线。
legend("left", title = "sample points", legend = "point", pch=1) # 添加图例。
image.png
添加文本
plot(df$v1, df$v2, main="Main title", sub="Subtitle", xlab="Independent variable", ylab="Dependent variable", col.main= "red", font.main=3, cex.main=3, xlim=c(0,1.5), ylim=c(1,4.5)) # 接上图。
library(Hmisc) # 调用Hmisc包。
minor.tick(nx=2, tick.ratio = 0.5) # 给x轴添加次要刻度线，次要刻度线的长度是主刻度线的一半。
abline(v=1.0, col="red", lty=4, lwd=2) # x=1垂直参考线。
abline(h=c(2, 4), col=c("blue", "green"), lty=c(3, 5), lwd=3) # y=2和4的水平参考线。
legend("left", title = "sample points", legend = "point", pch=1) # 添加图例。
text(x=0.5, y=3.5, labels="this is an example", col="brown") # 添加文本。
text(x=0.5, y=2.5, labels= expression(y == x^2 + sqrt(2)), col="brown") # 添加公式。
image.png
图形组合
par(mfcol=c(1,2)) # 设置图形布局。
plot(df$v1, df$v2) # 图1。
boxplot(df$v2) #图2
image.png
layout(matrix(c(1,3,2,3,2,3), 2, 3), widths = c(2,1,1), heights = c(2,1)) # 设置图形布局。
plot(df$v1, df$v2) # 图1。
boxplot(df$v2) #图2。
barplot(df$v2) # 图3。
image.png
