ggplot2自定义主题:设置打印的默认颜色

my_theme <- theme(
  plot.background = element_blank(),  # 设置绘图区域背景为空白
  panel.grid.major = element_blank(),  # 设置主要网格线为空白
  panel.grid.minor = element_blank(),  # 设置次要网格线为空白
  panel.border = element_blank(),  # 设置绘图区域边框为空白
  axis.line = element_line(color = "black"),  # 设置坐标轴线颜色为黑色
  axis.text = element_text(color = "black"),  # 设置坐标轴文本颜色为黑色
  axis.title = element_text(color = "black"),  # 设置坐标轴标题颜色为黑色
  legend.title = element_text(color = "black"),  # 设置图例标题颜色为黑色
  legend.text = element_text(color = "black"),  # 设置图例文本颜色为黑色
  strip.text = element_text(color = "black")  # 设置分组标签文本颜色为黑色
)

library(ggplot2)

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

# 绘制散点图，并应用自定义主题
ggplot(data, aes(x, y)) +
  geom_point() +
  my_theme