如何为R语言图形设备设置默认参数？黑底白字配置失败求助

我太懂你这种想要默认黑底白字的需求了——每次打开R绘图都手动调参数真的超烦！之前直接在.Rprofile里改options(device=...)没成功，确实是因为图形设备初始化的时机问题，.Rprofile执行时还没加载图形设备呢。给你两个亲测有效的方案，随便挑一个都能搞定：

方案一：用任务回调自动设置（通用所有系统） #

这个方法最省心，不管你用什么系统（Linux/Mac/Windows）、什么图形设备，只要一打开绘图窗口，就自动帮你改成黑底白字。把这段代码加到你的~/.Rprofile里就行：

# 注册一个任务回调，每次命令执行后检查图形设备
addTaskCallback(function(...) {
  # 当有活跃的图形设备时（dev.cur()>1表示不是空设备）
  if (dev.cur() > 1) {
    # 设置黑底白字
    par(bg = "black", fg = "white")
  }
  return(TRUE) # 保持回调一直生效
})

原理很简单：这个回调函数会在R每次执行完一段代码后自动运行，一旦检测到你打开了绘图窗口，就立刻调用par()把背景设为黑色，前景（文字、线条、点这些）设为白色。不管你是用基础包的plot()还是ggplot2，都能自动生效。

方案二：自定义包装默认图形设备（分系统） #

如果你想更直接地控制默认设备，可以把系统默认的图形设备包装一层，每次启动设备时自动加参数。根据你的系统选对应的代码：

Linux/Mac用户（默认X11或Quartz） #

# 自定义X11设备（Linux）或Quartz设备（Mac）
my_device <- function(...) {
  # 替换成你系统的默认设备：Linux用X11()，Mac用quartz()
  X11(...) 
  # 启动设备后立刻设置黑底白字
  par(bg = "black", fg = "white")
}

# 把默认设备换成我们自定义的
options(device = my_device)

Windows用户（默认windows设备） #

# 自定义windows设备
my_device <- function(...) {
  windows(...)
  par(bg = "black", fg = "white")
}

options(device = my_device)

额外补充：适配ggplot2的默认主题 #

如果你常用ggplot2，上面的方法只能改基础绘图的样式，ggplot有自己的主题系统，得额外加一段设置：

# 在.Rprofile里加载ggplot2并设置默认主题
if (requireNamespace("ggplot2", quietly = TRUE)) {
  ggplot2::theme_set(ggplot2::theme_bw() + ggplot2::theme(
    panel.background = ggplot2::element_rect(fill = "black"),
    plot.background = ggplot2::element_rect(fill = "black"),
    text = ggplot2::element_text(color = "white"),
    axis.text = ggplot2::element_text(color = "white"),
    legend.background = ggplot2::element_rect(fill = "black"),
    legend.text = ggplot2::element_text(color = "white")
  ))
}

这样你画的ggplot图也会默认是黑底白字啦！

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