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)

Кто-нибудь может мне помочь?Большое спасибо заранее Натали

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)