本案例在于讲解使用图形参数控制图形外观

具体代码来源于《R语言实战》

代码注释来源于deepseek。

# 定义剂量和药物响应数据
dose <- c(20, 30, 40, 45, 60)  # 创建一个数值向量，表示剂量值
drugA <- c(16, 20, 27, 40, 60) # 创建一个数值向量，表示药物A在不同剂量下的响应值
drugB <- c(15, 18, 25, 31, 40) # 创建一个数值向量，表示药物B在不同剂量下的响应值

# 保存当前图形参数
opar <- par(no.readonly=TRUE)  # par()函数用于设置或查询图形参数；no.readonly=TRUE返回当前所有可修改的图形参数，并存储在opar中，以便后续恢复

# 设置图形参数
par(pin=c(2, 3))  # 设置图形的宽度和高度（单位为英寸），pin=c(width, height)
par(lwd=2, cex=1.5)  # 设置线宽（lwd=2）和字符放大倍数（cex=1.5）
par(cex.axis=.75, font.axis=3)  # 设置坐标轴刻度标签的大小（cex.axis=.75）和字体（font.axis=3，3表示斜体）

# 绘制药物A的剂量-响应曲线
plot(dose, drugA, type="b", pch=19, lty=2, col="red", 
     xlab="Dose", ylab="Drug Response", main="Dose-Response Curve")
# plot()函数用于绘制图形
# dose: x轴数据
# drugA: y轴数据
# type="b": 同时绘制点和线
# pch=19: 点的形状为实心圆
# lty=2: 线的类型为虚线
# col="red": 线条颜色为红色
# xlab="Dose": x轴标签
# ylab="Drug Response": y轴标签
# main="Dose-Response Curve": 图形标题

# 绘制药物B的剂量-响应曲线
plot(dose, drugB, type="b", pch=23, lty=6, col="blue", bg="green", 
     xlab="Dose", ylab="Drug Response", main="Dose-Response Curve")
# plot()函数用于绘制图形
# dose: x轴数据
# drugB: y轴数据
# type="b": 同时绘制点和线
# pch=23: 点的形状为菱形
# lty=6: 线的类型为点划线
# col="blue": 线条颜色为蓝色
# bg="green": 点的填充颜色为绿色
# xlab="Dose": x轴标签
# ylab="Drug Response": y轴标签
# main="Dose-Response Curve": 图形标题

# 恢复原始图形参数
par(opar)  # 恢复之前保存的图形参数设置