将y轴label放在右边而不改变ggplot中的比例

Question

我有一个 plot

我想向右移动 y 轴 label 但不改变比例。 有办法吗？ 我的代码是：

ggplot(co, aes(x=model1,y = model2, color=ex)) +
    geom_point()

Answer 1

实现所需结果的一种选择是首先复制 y 轴，然后使用主题选项去除左侧的标题、刻度，当然还有右侧的标签：

以基于mtcars的简单plot为例：

library(ggplot2)

p <- ggplot(mtcars, aes(hp, mpg)) +
  geom_point()

# Move only the label to the right
p +
  scale_y_continuous(sec.axis = dup_axis(labels = NULL)) +
  theme(axis.title.y.left = element_blank(),
        axis.ticks.y = element_blank())

编辑如果你只想要右边的标题，那么切换position并使用theme选项摆脱文本和刻度：

# Move the label to the right and get rid of everything else
p +
  scale_y_continuous(position = "right") +
  theme(
    axis.ticks.y = element_blank(),
    axis.text.y = element_blank()
  )

Answer 2

将轴移动到右侧可以使用

+ scale_y_continuous(position = "right")