如何在R语言中创建独立窗口的图例并单独保存为PDF文件？

当然可以啦！完全能用R实现这个需求——不管你是用基础绘图系统还是ggplot2，都能生成一个独立的图例窗口，之后单独导出成PDF文件。下面给你两种实用的方法，你可以根据自己的绘图习惯来选：

如果你是用基础的plot()函数画的散点图，用这个方法最直接：

• 第一步：先定义好你散点图里用到的颜色和对应的分组标签，比如：

  # 替换成你实际的颜色和标签
  color_vec <- c("#E64B35", "#4DBBD5", "#00A087", "#3C5488", "#F39B7F")
  label_vec <- c("Color 1", "Color 2", "Color 3", "Color 4", "Color 5")
  

• 第二步：打开一个全新的空白绘图窗口：

  dev.new(width = 5, height = 3) # 可以提前设置窗口尺寸，适配图例
  

• 第三步：绘制一个完全空的图（去掉所有坐标轴、边框，因为我们只需要图例）：

  plot(1, type = "n", axes = FALSE, xlab = "", ylab = "", frame.plot = FALSE)
  

• 第四步：在空白图里添加你的图例，记得匹配原散点图的点样式（比如pch参数，原散点用的是实心点就设为16）：

  legend("center", 
         legend = label_vec, 
         col = color_vec, 
         pch = 16, # 匹配你散点图的点形状
         cex = 1.2, # 调整图例文字大小
         bty = "n" # 去掉图例的边框，不需要的话可以删掉这行
         )
  

• 第五步：把这个独立窗口保存为PDF：

  dev.copy(pdf, "standalone_legend_base.pdf")
  dev.off() # 关闭绘图设备
  

如果你的散点图是用ggplot2绘制的，这个方法能让图例风格和原图保持一致：

• 第一步：先加载ggplot2包，然后准备一个包含分组信息的空数据集（不需要实际的坐标数据）：

  library(ggplot2)
  # 用你的标签创建一个分组因子
  dummy_df <- data.frame(group = factor(label_vec), x = NA, y = NA)
  

• 第二步：绘制只包含图例的空图，去掉所有绘图元素：

  legend_plot <- ggplot(dummy_df, aes(x = x, y = y, color = group)) +
    geom_point(size = 4) + # 匹配你原散点图的点大小
    scale_color_manual(values = color_vec) + # 用你实际的颜色向量
    theme_void() + # 移除所有坐标轴、网格等绘图元素
    theme(
      legend.position = "center", # 把图例放在窗口中央
      legend.title = element_blank(), # 如果不需要图例标题就加这行
      legend.box.background = element_rect(color = "black", linewidth = 0.5) # 给图例加个边框，可选
    )
  

• 第三步：导出为PDF文件，调整宽高适配图例：

  ggsave("standalone_legend_ggplot.pdf", 
         plot = legend_plot, 
         width = 5, 
         height = 3, 
         dpi = 300)
  

小提示 #

• 不管用哪种方法，都要保证图例里的点形状（pch）、大小、颜色和原散点图完全一致，这样展出时观众能对应上。
• 调整保存PDF时的宽高参数，可以让图例的排版更美观，避免文字或点被截断。

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