R语言中编写getPar/setPar访问par()图形参数的实现方法

• 代码中写的par()[[key]] = val本质是试图对函数调用返回的临时对象做赋值，在R语法中临时对象无法作为赋值左侧，因此抛出「左侧赋值无效」的错误。
• 原函数中对可修改参数的校验逻辑是正确的：par(no.readonly = TRUE)会返回所有支持用户修改的图形参数集合，天然可以用来判断某个参数key是否可设置。

核心思路是动态组装「参数名-参数值」的键值对，通过do.call将键值对传递给原生par()函数完成设置，完全不需要对par()的返回值做索引赋值。

基础单参数版本 #

完全兼容原有setPar(key, val)的调用形式：

setPar <- function(key, val) {
  modifiable_pars <- names(par(no.readonly = TRUE))
  if (!is.element(key, modifiable_pars)) {
    warning(paste("参数", key, "为只读图形参数，无法设置，操作跳过"))
    return(invisible(NULL))
  }
  # 组装键值对并调用par
  do.call(par, setNames(list(val), key))
}

支持可变参数的扩展版本 #

同时兼容两种调用形式：

1. 原有字符串键值传入：setPar("mar", c(0.25, 0.25, 0.25, 0.25))
2. 多参数同时设置：setPar(mar = c(0.25, 0.25, 0.25, 0.25), cex = 1.2, mfrow = c(1,2))

实现代码：

setPar <- function(...) {
  args <- list(...)
  modifiable_pars <- names(par(no.readonly = TRUE))
  
  # 兼容原有「字符串key + 独立值」的调用形式
  if (length(args) == 2 && is.character(args[[1]]) && is.null(names(args))) {
    args <- setNames(list(args[[2]]), args[[1]])
  }
  
  # 过滤只读参数并提示
  param_names <- names(args)
  invalid_keys <- setdiff(param_names, modifiable_pars)
  if (length(invalid_keys) > 0) {
    warning(paste("以下为只读图形参数，无法修改：", paste(invalid_keys, collapse = "、")))
    args <- args[param_names %in% modifiable_pars]
  }
  
  if (length(args) == 0) return(invisible(NULL))
  # 调用par完成参数设置，同时返回被修改参数的旧值，方便后续状态恢复
  do.call(par, args)
}

执行之前的测试代码：

mar = c(0.25, 0.25, 0.25, 0.25)
setPar("mar", mar)
# 通过原有getPar函数验证结果
getPar("mar")
# 输出与传入的mar值完全一致，无报错

由于par()的原生逻辑是返回被修改参数的旧值，这个返回值可以直接用来做状态快照，后续恢复时只需要将快照值传回par()即可，不需要额外开发恢复逻辑。

内容的提问来源于stack exchange，提问作者mshaffer