如何为文档中的多幅绘图设置灰度颜色刻度？

当然可以实现！要让所有绘图统一使用灰度刻度用于投稿，其实不用局限于theme_grey()的元素调整——颜色刻度的控制主要靠颜色比例尺和全局主题设置的配合，下面给你一步步讲具体实现方式：

1. 全局设置离散颜色为灰度刻度 #

如果你的绘图用的是离散型颜色（比如分组类别），可以直接覆盖ggplot2默认的离散颜色/填充比例尺，这样所有后续绘图都会自动用灰度，不用重复添加代码：

library(ggplot2)

# 全局替换离散颜色和填充为灰度刻度
scale_colour_discrete <- function(...) scale_colour_grey(start = 0.2, end = 0.8, ...)
scale_fill_discrete <- function(...) scale_fill_grey(start = 0.2, end = 0.8, ...)

• start和end参数控制灰度的深浅范围：0是纯黑，1是纯白，你可以根据投稿需求调整（比如避免太亮或太暗的刻度）。

2. 连续变量的灰度刻度设置 #

如果是连续型数据的颜色映射（比如热图、密度图），可以用以下两种方式：

• 用渐变灰度：

  # 连续填充的灰度渐变（从白到黑）
  scale_fill_gradient(low = "white", high = "black")
  # 连续颜色的灰度渐变
  scale_colour_gradient(low = "white", high = "black")
  

• 用预定义的灰度调色板（适合更平滑的过渡）：

  scale_fill_distiller(palette = "Greys", direction = 1)
  scale_colour_distiller(palette = "Greys", direction = 1)
  

  direction=1表示从浅到深，-1则是从深到浅，按需选择即可。

3. 统一调整刻度的样式（文本、线条） #

除了颜色映射，投稿通常还要求刻度文本、线条的风格统一。你可以通过theme_set()全局设置这些元素的灰度样式：

theme_set(theme_grey(base_size = 12) + 
            theme(
              axis.text = element_text(color = "grey30"),  # 刻度文本灰度
              axis.ticks = element_line(color = "grey50"),  # 刻度线灰度
              legend.text = element_text(color = "grey30"), # 图例文本灰度
              panel.grid = element_line(color = "grey80")   # 网格线灰度
            ))

这样所有绘图的辅助元素都会保持一致的灰度风格，符合期刊要求。

4. 完整示例代码 #

用mtcars数据集演示全局设置后的效果：

library(ggplot2)

# 全局灰度设置
scale_colour_discrete <- function(...) scale_colour_grey(start = 0.2, end = 0.8, ...)
scale_fill_discrete <- function(...) scale_fill_grey(start = 0.2, end = 0.8, ...)
theme_set(theme_grey(base_size = 10) +
            theme(axis.text = element_text(color = "grey20"),
                  axis.ticks = element_line(color = "grey40"),
                  legend.position = "bottom"))

# 散点图（离散颜色）
p1 <- ggplot(mtcars, aes(x = wt, y = mpg, colour = factor(cyl))) +
  geom_point(size = 2) +
  labs(title = "MPG vs Weight by Cylinders")

# 箱线图（离散填充）
p2 <- ggplot(mtcars, aes(x = factor(cyl), y = hp, fill = factor(cyl))) +
  geom_boxplot() +
  labs(title = "Horsepower by Cylinders")

# 连续数据热图
p3 <- ggplot(mtcars, aes(x = wt, y = mpg, fill = hp)) +
  geom_tile() +
  scale_fill_distiller(palette = "Greys", direction = 1) +
  labs(title = "Horsepower Heatmap")

# 输出所有绘图
p1
p2
p3

这样你只需要在脚本开头添加全局设置代码，后续所有绘图都会自动应用灰度刻度，不用逐个调整，非常适合批量准备投稿文档。

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