Q.2

加载 stackloss 数据集

data(stackloss)

查看数据集中前几行

head(stackloss)

查看数据结构

str(stackloss)

Q.3

加载 pressure 数据集

data(pressure)

(a) 绘制 pressure 与 temperature 的关系图

plot(pressure$temperature, pressure$pressure, xlab = 'Temperature', ylab = 'Pressure', main = 'Pressure vs Temperature') curve((0.168 + 0.007*x)^(20/3), from = 0, to = 400, add = TRUE)

(b) 对 pressure 数据进行 y^(3/20) 转换

transformed_pressure <- pressure$pressure^(3/20)

绘制转换后的 pressure 与 temperature 的关系图

plot(pressure$temperature, transformed_pressure, xlab = 'Temperature', ylab = 'Transformed Pressure', main = 'Transformed Pressure vs Temperature') abline(0.168^(3/20), 0.007^(3/20))

(c) 添加标题

title(main = 'Transformed Pressure vs Temperature')

(d) 使用 mfrow() 函数重新绘制图形

par(mfrow = c(2, 1)) plot(pressure$temperature, pressure$pressure, xlab = 'Temperature', ylab = 'Pressure', main = 'Pressure vs Temperature') curve((0.168 + 0.007*x)^(20/3), from = 0, to = 400, add = TRUE) plot(pressure$temperature, transformed_pressure, xlab = 'Temperature', ylab = 'Transformed Pressure', main = 'Transformed Pressure vs Temperature') abline(0.168^(3/20), 0.007^(3/20))

par(mfrow = c(1, 2)) plot(pressure$temperature, pressure$pressure, xlab = 'Temperature', ylab = 'Pressure', main = 'Pressure vs Temperature') curve((0.168 + 0.007*x)^(20/3), from = 0, to = 400, add = TRUE) plot(pressure$temperature, transformed_pressure, xlab = 'Temperature', ylab = 'Transformed Pressure', main = 'Transformed Pressure vs Temperature') abline(0.168^(3/20), 0.007^(3/20))