day-2021-04-26—R语言制作图(次要刻度线、参考线、图例、文本标注)

R语言制作图(次要刻度线、参考线、图例、文本标注)

一、次要刻度线、参考线

• 下载包

  install.packages("Hmisc")  # 下载包
  library(Hmisc)  # 导入包，使用前需要导入包
  

• minor.tick：次要刻度线

  plot(1:4, 1:4, type="b")  # 简单制作图
  minor.tick(nx=3, ny=2, tick.ratio = 0.5)  # 使用minor.tick，nx：x轴每一个格分为3个小格，ny：y轴每一个格分为2个小格
  									  # tick.ratio：次刻度线长度
  

• abline：参考线

  plot(1:4, 1:4, type="b")
  minor.tick(nx=3, ny=2, tick.ratio = 0.5)
  abline(h=2, col="red", lty=2)  # 使用abline，h：对x轴的指定值进行垂直，col：参考线颜色，lty：参考线线条类型
  abline(v=2, col="red", lty=2)  # 使用abline，v：对y轴的指定值进行垂直，col：参考线颜色，lty：参考线线条类型
  
  # 多图合并
  dose <- c(20, 30, 40, 50, 60)
  drugA <- c(16, 20, 27, 33, 50)
  drugB <- c(15, 22, 26, 36, 52)
  opar <- par(no.readonly = TRUE)  # 将所有默认参数保存在一个opar向量中
  par(lwd=2, cex=0.7, font.lab=2)  # 设置参数
  plot(dose, drugA, type="b", pch=20, lty=2, col="red", yilm=c(0, 60), main = "药物a反应和药物b反应", xlab="剂量", ylab="药物反应")
  lines(dose, drugB, type="b", pch=20, lty=2, col="blue")  # 在上图进行加一个图
  minor.tick(nx=5, ny=2, tick.ratio = .5)  # 设置刻度线
  par(opar)  # 恢复参数
  

二、图例、文本标注

• [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-SxqPPQ8J-1620140133390)(D:\大数据专业工具存放\Typora\Typora图片存放\image-20210426170930250.png)]

• legend：图例

  # 例子图
  dose <- c(20, 30, 40, 50, 60)
  

drugA <- c(16, 20, 27, 33, 50)
drugB <- c(15, 22, 26, 36, 52)
opar <- par(no.readonly = TRUE) # 将所有默认参数保存在一个opar向量中
par(lwd=2, cex=0.7, font.lab=2) # 设置参数
plot(dose, drugA, type=“b”, pch=20, lty=2, col=“red”, yilm=c(0, 60), main = “药物a反应和药物b反应”, xlab=“剂量”, ylab=“药物反应”)
lines(dose, drugB, type=“b”, pch=20, lty=2, col=“blue”) # 在上图进行加一个图
minor.tick(nx=5, ny=2, tick.ratio = .5) # 设置刻度线
par(opar) # 恢复参数

设置图例

legend(“topright”, inset=.03, title=“类型”, legend=c(“A”, “B”), lty=c(2,2), pch=c(20, 20), col=c(“red”, “blue”))
# 使用legend， topright：右上角(可修改)，inset：图例距离边框距离，legend：图例名字
# 其他参数必须按图形顺序来，必须和图形的类型一样

- ![image-20210426174403055](D:\大数据专业工具存放\Typora\Typora图片存放\image-20210426174403055.png)

- text：文本标注

```R
attach(mtcars)  # 将mtcars的列数据、行数据加载到r路径中，可以直接输入数据框的列名便可得到列所有数据
head(mtcars)  # 输出前6行
plot(wt, mpg, main="车重和耗油的关系", xlab="车重", ylab="耗油量", pch=18, col="red" )
text(wt, mpg, row.names(mtcars), cex=0.9, pos=4, col="red")
# 通过x、y值知道每个点的位置，row.name：获取每行的行名，cex：获取的行文字字体大小，pos：1=下、2=左、3=上、4=右，col：文字颜色
detach(mtcars)  # 解除detach效果

字体大小，pos：1=下、2=左、3=上、4=右，col：文字颜色
detach(mtcars) # 解除detach效果