如何将`ggplot2`输出更改为灰度？

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(2, 4, 6, 8, 10)
)

# 创建一个散点图，并使用theme_bw()函数将图形输出更改为灰度
ggplot(data, aes(x, y)) +
  geom_point() +
  theme_bw()

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  category = c("A", "B", "C"),
  value = c(10, 20, 30)
)

# 创建一个柱状图，并使用scale_color_grey()函数将线条和文本颜色更改为灰度
ggplot(data, aes(category, value)) +
  geom_bar(stat = "identity") +
  scale_color_grey()

# 创建一个面积图，并使用scale_fill_grey()函数将填充颜色更改为灰度
ggplot(data, aes(category, value)) +
  geom_area() +
  scale_fill_grey()