R-秒的反转刻度。 y轴

Question

我目前在R可视化方面遇到了一个我无法解决的问题。 问题如下：在我的数据集中，我有三个变量，一方面是y轴的周转率，另一方面是x轴的年限。此外，我想用图表显示俱乐部的桌子位置。为此，右侧的y轴不应缩放从0到18而是从18降低到1。而我的第一个y轴缩放应该是上升。所以问题是我怎么能有两个具有不同缩放比例的y轴？

在以下我的代码中：

ggplot(na.omit(R_Projekt), aes(x=Jahr,y=Umsatz))+
  geom_bar(stat="identity", position = position_dodge2(padding = 0.3), aes(fill=Umsatz)) +
  scale_fill_gradient(low="dark green",high="#7db83a") +
  scale_y_continuous(limits=c(0,198), sec.axis = sec_axis(~(198-.)/11,breaks = seq(1,18), name = "Tabellenplatz"))+

  geom_line(stat="identity",aes(y=Tabelle*11), colour="#292929",size=1.5) +


  labs(title="Balkendiagramm",x="Jahr", y="Umsatz in Millionen ")+
  theme_minimal(base_size = 20)

有人可以帮助我吗？ 提前谢谢了 娜塔莉（Natalie）

Answer 1

您可以尝试为y轴添加自定义标签：将以下内容添加到scale_y_continuous行：

labels = rev(seq(1,18))

所以：

 ggplot(na.omit(R_Projekt), aes(x=Jahr,y=Umsatz))+
      geom_bar(stat="identity", position = position_dodge2(padding = 0.3), aes(fill=Umsatz)) +
      scale_fill_gradient(low="dark green",high="#7db83a") +
      scale_y_continuous(limits=c(0,198), sec.axis = sec_axis(~(198-.)/11,breaks = seq(1,18), labels = rev(seq(1,18)), name = "Tabellenplatz"))+

      geom_line(stat="identity",aes(y=Tabelle*11), colour="#292929",size=1.5) +


  labs(title="Balkendiagramm",x="Jahr", y="Umsatz in Millionen ")+
  theme_minimal(base_size = 20)