如何修改R中RGL窗口的默认弹出位置？

针对Windows 11下RGL窗口默认显示在左上角导致标题栏被遮挡的问题，你可以通过以下两种方式解决：

1. 手动指定窗口位置（单次生效） #

在调用3D绘图函数前，使用rgl::open3d()的x和y参数直接设置窗口左上角的屏幕坐标。如果需要窗口居中，可先计算屏幕分辨率对应的偏移值：

# 示例：设置800x600的窗口居中显示
screen_width <- 1920  # 替换为你的实际屏幕宽度
screen_height <- 1080 # 替换为你的实际屏幕高度
win_width <- 800
win_height <- 600

# 计算居中坐标
win_x <- (screen_width - win_width) %/% 2
win_y <- (screen_height - win_height) %/% 2

# 打开指定位置的RGL窗口
rgl::open3d(width = win_width, height = win_height, x = win_x, y = win_y)

# 绘制示例3D图形
rgl::plot3d(rnorm(100), rnorm(100), rnorm(100))

如果不想居中，只想让窗口下移避免标题栏被遮挡，直接把win_y设为一个小数值（比如50）即可。

2. 设置全局默认参数（永久生效） #

如果希望每次启动R后，RGL窗口都自动按指定位置打开，可以修改R的启动脚本.Rprofile：

1. 在Windows用户目录（比如C:\Users\你的用户名）下创建或编辑.Rprofile文件
2. 添加以下代码（按需调整窗口大小和坐标）：

setHook(packageEvent("rgl", "onLoad"), function(...) {
  screen_width <- 1920  # 替换为你的屏幕宽度
  screen_height <- 1080 # 替换为你的屏幕高度
  win_width <- 800
  win_height <- 600
  win_x <- (screen_width - win_width) %/% 2
  win_y <- (screen_height - win_height) %/% 2
  options(rgl.initParameters = list(width = win_width, height = win_height, x = win_x, y = win_y))
})

3. 保存文件后重启R，后续调用rgl绘图时窗口会自动应用设置。

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