ggplot2绘图标题无法相对面板居中的问题求助

问题说明 #

使用ggplot2绘图时，导出为PNG文件后发现标题相对于面板边框的左右间距不一致，无法自动居中，原代码如下：

df <- data.frame(x = rnorm(100), y = rnorm(100))
ggplot(data = df,aes(x=x,y = y))+
geom_point(color = "yellow")+
theme(
plot.background = element_rect(fill = "black"),
panel.background = element_rect(fill = "black"),
axis.title = element_text(size = 7, face = "bold", colour = "white"),
plot.title = element_text(size = 45, face = "bold", colour = "white"))+
plot.margin = margin(1.5, 1, 1, 1, "cm"),
panel.grid.major.y = element_line(colour = "gray20"),
panel.grid.major = element_line(colour = "red", linetype = "solid"),
panel.grid.minor = element_blank(),
panel.grid.major.x = element_blank(),
axis.text = element_text(size = 17, face = "bold", colour = "white"))+
labs(x ="EPIDEMIOLOGICAL WEEK OF 2024", y = NULL)+
theme(legend.box = "vertical",legend.box.just = "center")+
guides(fill = guide_legend(order = 1), color = guide_legend(order = 2))+
theme(axis.title.x = element_text(size = 15,hjust = 0.5,margin = margin(t = 25)))+
theme(rect = element_rect(fill = "black"))+
theme(panel.border = element_rect(colour = "white", fill = NA, size = 1))+
ggtitle("RSV IN SOUTH AFRICA")+
theme(plot.title.position = "panel")+
theme(
plot.title = element_text(hjust = 0.5))+
theme(axis.ticks.length=unit(0.1,"inch"))+
theme(axis.text.x = element_text(margin = margin(t = 5)))+
theme(axis.text.y = element_text(margin = margin(r = 5)))+
theme(axis.text.y.right = element_text(margin = margin(l = 5)))+
theme(axis.ticks = element_line(color = "white"))

问题原因及修正方案 #

1. 语法错误：原代码中plot.margin = margin(1.5, 1, 1, 1, "cm")直接放在+后，属于语法错误，必须嵌套在theme()内部。
2. 重复的theme设置：多次调用theme()会导致设置冲突，尤其是plot.title被重复定义，可能覆盖居中设置。
3. 标题定位逻辑：plot.title.position = "panel"是让标题相对面板居中的核心设置，但需要确保没有被其他设置干扰。

修正后的代码 #

将所有theme设置合并，修正语法错误，确保标题居中设置生效：

df <- data.frame(x = rnorm(100), y = rnorm(100))
ggplot(data = df, aes(x = x, y = y)) +
  geom_point(color = "yellow") +
  labs(x = "EPIDEMIOLOGICAL WEEK OF 2024", y = NULL, title = "RSV IN SOUTH AFRICA") +
  guides(fill = guide_legend(order = 1), color = guide_legend(order = 2)) +
  theme(
    # 背景设置
    plot.background = element_rect(fill = "black"),
    panel.background = element_rect(fill = "black"),
    rect = element_rect(fill = "black"),
    # 标题设置：关键是plot.title.position和hjust=0.5
    plot.title.position = "panel",
    plot.title = element_text(size = 45, face = "bold", colour = "white", hjust = 0.5),
    # 坐标轴设置
    axis.title = element_text(size = 7, face = "bold", colour = "white"),
    axis.title.x = element_text(size = 15, hjust = 0.5, margin = margin(t = 25)),
    axis.text = element_text(size = 17, face = "bold", colour = "white"),
    axis.text.x = element_text(margin = margin(t = 5)),
    axis.text.y = element_text(margin = margin(r = 5)),
    axis.text.y.right = element_text(margin = margin(l = 5)),
    axis.ticks = element_line(color = "white"),
    axis.ticks.length = unit(0.1, "inch"),
    # 网格与边框
    panel.border = element_rect(colour = "white", fill = NA, size = 1),
    panel.grid.major = element_line(colour = "red", linetype = "solid"),
    panel.grid.major.y = element_line(colour = "gray20"),
    panel.grid.major.x = element_blank(),
    panel.grid.minor = element_blank(),
    # 图例与边距
    legend.box = "vertical",
    legend.box.just = "center",
    plot.margin = margin(1.5, 1, 1, 1, "cm")
  )

关键要点 #

• 将plot.title.position = "panel"放在theme内，明确标题以面板为基准对齐。
• 确保plot.title的hjust = 0.5，实现水平居中。
• 合并所有theme设置，避免重复定义导致的冲突。
• 修正plot.margin的语法错误，将其放入theme中。

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