geom_bar + geom_line: mit unterschiedlicher y-achsenskala?

Ist es möglich, geom_bar mit geom_line wie in der folgenden Tabelle zu zeichnen?

Ich habe mir zwei separate Diagramme ausgedacht. So kombinieren Sie sie mit zwei verschiedenen Achsen auf der linken bzw. rechten Seite.

library(ggplot2)
temp = data.frame(Product=as.factor(c("A","B","C")),
                  N = c(17100,17533,6756),
                  n = c(5,13,11),
                  rate = c(0.0003,0.0007,0.0016),
                  labels = c(".03%",".07%",".16%"))

p1 = ggplot(data = temp, aes(x=Product,y=N))+
  geom_bar(stat="identity",fill="#F8766D")+geom_text(aes(label=n,col="red",vjust=-0.5))+
  theme(legend.position="none",axis.title.y=element_blank(),axis.text.x = element_text(angle = 90, hjust = 1))
  p1
p2 = ggplot(data = temp,aes(x=Product,y=rate))+
  geom_line(aes(group=1))+geom_text(aes(label=labels,col="red",vjust=0))+
  theme(legend.position="none",axis.title.y=element_blank(),
        axis.text.x = element_text(angle = 90, hjust = 0))+
  xlab("Product")
p2

Danke vielmals

Antworten auf die Frage(4)

Ihre Antwort auf die Frage