ggplot离散型X轴上下双轴实现问题求助

嘿，我完全懂你想要的效果——在ggplot图表的顶部和底部都显示一模一样的离散X轴对吧？你用scale_x_discrete(sec.axis = dup_axis())的思路是对的，但之所以没看到顶部轴，大概率是默认主题把顶部的轴文本和刻度给隐藏了！我给你一步步解决这个问题：

首先，先给你一个完整的可复现示例，包含构造数据、画图和正确的设置：

library(ggplot2)

# 先造点测试数据
df <- data.frame(
  Category = c("A", "B", "C", "D", "E"),
  Value = c(10, 20, 15, 25, 30)
)

# 这就是你要的双X轴效果
ggplot(df, aes(x = Category, y = Value)) +
  geom_bar(stat = "identity", fill = "#2E86AB") +
  # 创建重复的顶部X轴，name=NULL去掉重复的轴标题
  scale_x_discrete(sec.axis = dup_axis(name = NULL)) +
  # 关键：在theme里开启顶部的轴文本和刻度
  theme(
    axis.text.top = element_text(color = "black", size = 10), # 显示顶部轴文本
    axis.ticks.top = element_line(color = "black"), # 显示顶部轴刻度
    axis.title.top = element_blank() # 确保顶部没有多余的轴标题
  )

为啥原来的代码没生效？ #

大多数ggplot默认主题（比如theme_grey()、theme_bw()）为了美观，默认会把axis.text.top和axis.ticks.top设置为element_blank()，也就是隐藏状态。所以哪怕你用dup_axis()创建了顶部轴，也看不到它的内容。

额外的自定义选项 #

如果你想给顶部轴设置不同的标题或者样式，也很简单：

# 示例：顶部轴用不同的标题和样式
ggplot(df, aes(x = Category, y = Value)) +
  geom_bar(stat = "identity", fill = "#F24C4E") +
  scale_x_discrete(
    name = "底部类别",
    sec.axis = dup_axis(name = "顶部类别") # 给顶部轴单独加标题
  ) +
  theme(
    axis.text.top = element_text(color = "darkred", size = 10), # 顶部文本换颜色
    axis.ticks.top = element_line(color = "darkred"), # 顶部刻度换颜色
    axis.title.top = element_text(color = "darkred", size = 12) # 顶部标题样式调整
  )

这样就能轻松实现你想要的顶部+底部双离散X轴效果啦！

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