Question

这是我用于创建条形码的分析和数据框架。折线图。

我正在尝试创建一个图表，其中显示主Y轴上的visit_frequency（条形图）和辅助Y轴上的visit_duration_avg（折线图），它应显示X轴上的visit_sequence_number

library(ggplot2)

df<- data.frame(visit_sequence_number=c(1:5),
                visit_frequency=c(697754,416613,263433,178823,128599),
                visit_duration_avg=c(133,121,121,122,124))


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

Answer 1

ggplot2无法做到这一点。请从包装的创建者（Hadley Wickham）看到以下答案：

https://stackoverflow.com/a/3101876/8357864

如何创建Bar＆amp; R（ggplot2）中的线图同时出现

1 个答案: