r - 如何使用ggplot2在一侧保留 Axis 标签而在另一侧保留 Axis 标题

我想知道是否有可能（我知道是）将图的轴标签保留在图的一侧，而将图的轴标题保留在另一侧，尤其是在离散geom_tile（）图中，如下所示：

最佳答案

您可以在sec.axis = dup_axis()中使用scale_x_*()复制两个轴，然后删除theme()中不需要的内容。

ggplot(mtcars, aes(x=mpg, y=hp)) +
  geom_point() +
  labs(title="mpg vs hp") +
  scale_y_continuous(position = 'right', sec.axis = dup_axis()) +
#remember to check this with the proper format
  scale_x_continuous(position = "top", sec.axis = dup_axis()) +
  theme(plot.title = element_text(hjust=0.5),
        axis.text.x.top = element_blank(), # remove ticks/text on labels
        axis.ticks.x.top = element_blank(),
        axis.text.y.right = element_blank(),
        axis.ticks.y.right = element_blank(),
        axis.title.x.bottom = element_blank(), # remove titles
        axis.title.y.left = element_blank())

其他示例并带有theme_new()函数：

theme_new <- function() {
  theme(plot.title = element_text(hjust=0.5),
        axis.text.x.top = element_blank(), # remove ticks/text on labels
        axis.ticks.x.top = element_blank(),
        axis.text.y.right = element_blank(),
        axis.ticks.y.right = element_blank(),
        axis.title.x.bottom = element_blank(), # remove titles
        axis.title.y.left = element_blank())
}

ggplot(df, aes(x, y)) +
  geom_tile(aes(fill = z), colour = "grey50") +
  labs(title="some title") +
  scale_y_continuous(position = 'right', sec.axis = dup_axis()) +
  scale_x_continuous(position = "top", sec.axis = dup_axis()) +
  theme_new()