001、
a <- par() class(a) ## par函数返回列表 length(a) ## 一共72个可选项 head(a, 3) par()$mfrow par(mfrow = c(2, 2)) ## 修改par中的参数 par()$mfrow
