Combinación de gráfico de barras y líneas(doble eje) en ggplot2

bar-chart linechart

Question

Tengo un gráfico de double-y-axis hecho en Excel . En Excel solo requiere habilidades básicas. Lo que me gustaría hacer es replicar este gráfico usando la biblioteca ggplot2 en R

Ya he hecho esto, pero necesito trazar la respuesta en el 2nd-y-axis .

Adjunto código reproducible que he usado:

#Data generation
Year <- c(2014, 2015, 2016)
Response <- c(1000, 1100, 1200)
Rate <- c(0.75, 0.42, 0.80)
df <- data.frame(Year, Response, Rate)
#Chart
library(ggplot2)
ggplot(df) +
geom_bar(aes(x=Year, y=Response),stat="identity", fill="tan1", colour="sienna3")+
geom_line(aes(x=Year, y=Rate),stat="identity")+
geom_text(aes(label=Rate, x=Year, y=Rate), colour="black")+
geom_text(aes(label=Response, x=Year, y=0.9*Response), colour="black")

Answer 1

Primero, escale la Rate por Rate*max(df$Response) y modifique la escala 0.9 del texto de respuesta.

En segundo lugar, incluya un segundo eje mediante scale_y_continuous(sec.axis=...) :

ggplot(df) +
geom_bar(aes(x=Year, y=Response),stat="identity", fill="tan1", colour="sienna3")+
geom_line(aes(x=Year, y=Rate*max(df$Response)),stat="identity")+
geom_text(aes(label=Rate, x=Year, y=Rate*max(df$Response)), colour="black")+
geom_text(aes(label=Response, x=Year, y=0.95*Response), colour="black")+
scale_y_continuous(sec.axis = sec_axis(~./max(df$Response)))

Cuyos rendimientos: