R语言dev.off()未遵循设备栈逻辑切换设备的问题咨询

我一直以为R里的绘图设备是栈结构：打开多个设备后，用dev.off()关闭当前设备，应该回到栈顶的上一个设备继续绘图。但实际测试并非如此：

依次打开多个设备：

plot(1:1) 

png(filename = "trial.png", width = 7, height = 7, units = "in", res = 600)

dev.new() # 用于45度旋转等操作的辅助Windows设备

dev.list()
# windows     png windows 
#      2       3       4

关闭最后一个设备（windows 4）后，预期png 3成为当前设备，但dev.off()直接跳到了windows 2：

dev.off()
# windows 
#       2

此时执行points(1.1, 1.1)会绘制到windows设备，而非png设备。

问题 #

1. 这种现象为何会发生？是特性还是bug？
2. 如何让dev.off()按照栈逻辑工作？

1. 现象原因：是R的设计特性而非bug #

R的绘图设备管理并非严格的栈结构，核心原因是交互式设备（如Windows窗口、X11）与非交互式设备（如png、pdf）的优先级差异：

• 创建非交互式设备（比如png()）时，R不会自动将其设为当前设备——当前设备仍保持在之前的交互式设备上，除非手动用dev.set()切换。
• 关闭当前的交互式设备时，R会自动查找并切换到最近的已打开交互式设备，而非按创建顺序的上一个设备。在你的案例中，png(3)是非交互式设备，所以会被跳过，直接切换到更早的交互式设备windows(2)。

2. 实现栈逻辑的解决方案 #

要让dev.off()严格遵循栈（后进先出）逻辑，需要手动维护设备创建的顺序栈，自定义一个替代dev.off()的函数：

步骤1：创建设备栈跟踪变量

初始化全局变量记录设备创建顺序，重载常用设备创建函数自动入栈：

# 初始化设备栈，按创建顺序记录设备ID
device_stack <- c()

# 重载png函数，自动记录设备ID到栈
png <- function(...) {
  dev_id <- base::png(...)
  device_stack <<- c(device_stack, dev_id)
  invisible(dev_id)
}

# 重载dev.new函数，自动记录设备ID到栈
dev.new <- function(...) {
  dev_id <- base::dev.new(...)
  device_stack <<- c(device_stack, dev_id)
  invisible(dev_id)
}

# 其他非交互式设备（如pdf、jpeg）可按同样方式重载

步骤2：自定义栈逻辑的dev.off函数

dev.off_stack <- function() {
  if (length(device_stack) == 0) {
    stop("No devices to close")
  }
  # 获取当前设备ID并关闭
  current_dev <- dev.cur()
  base::dev.off(current_dev)
  # 从栈中移除已关闭的设备
  device_stack <<- device_stack[device_stack != current_dev]
  # 栈非空时，切换到最后一个创建的设备
  if (length(device_stack) > 0) {
    last_dev <- tail(device_stack, 1)
    dev.set(last_dev)
    message(paste("Switched to device:", last_dev))
  }
}

使用示例

# 创建设备，自动入栈
plot(1:1) # windows 2，加入栈
png("trial.png") # png 3，加入栈
dev.new() # windows 4，加入栈

dev.list()
# windows     png windows 
#      2       3       4

# 使用自定义函数关闭当前设备
dev.off_stack()
# 输出：Switched to device: 3
dev.cur() # 当前设备为png 3，符合栈逻辑

points(1.1, 1.1) # 绘制到png设备中

注意事项

• 若使用其他设备创建函数（如pdf()、jpeg()），需按同样方式重载，确保设备ID被加入栈。
• 手动用dev.set()切换设备时，需同步更新device_stack的顺序，否则栈逻辑会失效。

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