Question

这是愚蠢的。但是如何删除 ggplot 底部的 x 轴并仅保留辅助轴？

foo <- tibble(x=1:100,y=rnorm(100))
ggplot(foo,aes(x=x,y=y)) + geom_line() +
  scale_x_continuous(sec.axis = dup_axis())

编辑：感谢评论......解决了。

ggplot(foo,aes(x=x,y=y)) + geom_line() +
  scale_x_continuous(position ="top")

Answer 1

您可以在主题中设置axis.x.bottom 参数。试试：

foo <- tibble(x=1:100,y=rnorm(100))
ggplot(foo,aes(x=x,y=y)) + geom_line() +
  scale_x_continuous(sec.axis = dup_axis()) +
  theme(axis.text.x.bottom = element_blank(), axis.ticks.x.bottom = element_blank(), axis.title.x.bottom = element_blank())

Answer 2

尴尬。我不知道 position="top" 选项。谢谢。

foo <- tibble(x=1:100,y=rnorm(100))
ggplot(foo,aes(x=x,y=y)) + geom_line() +
  scale_x_continuous(position ="top")

删除主 x 轴并在 ggplot 中仅保留重复的辅助轴

2 个答案: