R语言练习题答案（9）第六章高级绘图实例代码

#代码 6-1

散点图

library(‘lattice’)
xyplot(wt ~ 3.5407*mpg, data = mtcars, ylab = ‘Weight’, xlab = ‘Kilometers per liter’, main = ‘lattice包绘制散点图’)

#代码 6-2

1. 图形参数

names(trellis.par.get()) # 查看参数列表的名称

#代码 6-3
op <- trellis.par.get() # 保存原有的参数列表
trellis.par.get(‘fontsize’) # 查看字体大小与散点大小的集合
trellis.par.set(fontsize = list(text = 20, points = 20)) # 修改参数
xyplot(wt ~ mpg, data = mtcars, xlab = ‘Weight’, ylab = ‘Miles per Gallon’, main = ‘lattice包绘制散点图’)
trellis.par.set(op) # 将参数回复为默认设置

#代码 6-4
show.settings() # 图形化显示所有参数

#代码 6-5
data = data.frame(x = 1:15, y = 11:25, z = rep(c(‘a’, ‘b’, ‘c’), times = 5))
xyplot(y ~ x, data = data, groups = z) # 根据z列绘制分组的散点图
op <- trellis.par.get() # 保存原有的参数列表
op_1 <- trellis.par.get() # 赋值
op_1s