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)