Блог

Во-первых, это пример кода и манипуляции, которые я использую.

    library(tidyverse)
   library(scales)
   Month1 <- c(201812,20191,20192,20193,20194,20195,20196,
        20197,20198,20199,201910,201911,201912,20201
        ,20202,20203,20204,20205,20206,20207
        ,20208,20209,202010,202011)
   annualjobgrowth<- c(44400,46000,42600,40500,42800,40500,36000,
                34000,32300,29900,21900,24500,21000,
                23300,16000,-6200,-275600,-249500,-149200,
                -136500,-129900,-122800,-113900,-109500)
    Rate <- 
   c(3.3,3.4,3.1,3.0,3.1,2.9,2.6,2.5,2.3,2.1,1.6,1.7,1.5,1.7,1.1,-0.4,
    -19.5,-17.6,-10.5,-9.6,-9.1,-8.6,-8.0,-7.7)
   cesyoy <- data.frame(Month1,annualjobgrowth, Rate)

   secondces<-cesyoy %>% mutate(year = substr(as.character(Month1),1,4),
                         month = substr(as.character(Month1),5,7),
                         date = as.Date(paste(year,month,"1",sep ="-"))) %>%
   ggplot()   geom_col(aes(x = date, y = annualjobgrowth),fill = "#00abff") 
   geom_line(aes(x=date, y=Rate),stat="identity") 
   scale_y_continuous(labels=comma,breaks=c(50000,0,-50000,-100000,-150000,-200000,-250000)) 
   scale_x_date(date_breaks="1 month", date_labels="%bn") 
   theme(axis.text.x = element_text(angle = 90, size=rel(0.5)))  
   scale_fill_brewer(palette="Dark2")
 

Я прочитал другие вопросы, и может показаться, что это добавит что-то вроде этого.

 scale_y_continuous(sec.axis = sec_axis(~./max(df$Rate)))
 

Мой вопрос в том, как я мог бы объединить это с моим существующим кодом. Конечным результатом будет моя существующая гистограмма с линией, представляющей переменную скорости. Как мне добавить второй элемент scale_y_continuous?

Один из способов — предварительно вычислить соотношение между максимумом первичной и вторичной осей. Затем вы можете масштабировать два с этим соотношением.

 Ratio <- max(cesyoy$annualjobgrowth)/max(cesyoy$Rate)

cesyoy %>% 
  mutate(year = substr(as.character(Month1),1,4),
         month = substr(as.character(Month1),5,7),
         date = as.Date(paste(year,month,"1",sep ="-"))) %>%
ggplot()   
  geom_col(aes(x = date, y = annualjobgrowth), fill = "#00abff") 
  geom_line(aes(x=date, y=Ratio*Rate),stat="identity") 
  scale_y_continuous(labels=scales::comma,breaks=c(50000,0,-50000,-100000,-150000,-200000,-250000), name = "Growth",
                     sec.axis = sec_axis(~./Ratio, name = "Rate")) 
  scale_x_date(date_breaks="1 month", date_labels="%bn") 
  theme(axis.text.x = element_text(angle = 90, size=rel(0.5)))  
  scale_fill_brewer(palette="Dark2")