Question

我试图复制可以在Excel中轻松完成的操作。我使用ggplot尝试绘制以下内容：

绘制一个条形图，其中左侧的Y轴以计数（0-600）表示
绘制折线图，其中右Y轴以％（0-100）表示。

qn1。有人可以向我解释，如何将百分比数据链接到辅助轴？目前，折线图（应代表％）是使用计数标尺基于主Y轴绘制的。

qn2。我如何独立更改两个音阶？

qn3。我如何独立命名2个秤？

ggplot() +
  geom_bar(data=data,aes(x=sch,y=count,fill=category),stat = "identity")+ 
  scale_fill_manual(values=c("darkcyan", "indianred1")) +
  geom_line(data=data_percentage, aes(x=sch, y=count, group=1)) + 
  geom_point(data=data_percentage, aes(x=sch, y=count, group=1)) +
  geom_text(data=data_percentage,aes(x=scht,label=paste(count,"%",sep="")),size=3) +
  scale_y_continuous(sec.axis = sec_axis(~./2), name="%")+
  theme(panel.background = element_blank(), 
        axis.line = element_line(colour = "black", size = 0.5, linetype = "solid"), 
        plot.title = element_text(size=11, face="bold", hjust=0.3), 
        legend.position = "top", legend.text = element_text(size=9)) +
  labs(fill="") + guides(fill = guide_legend(reverse=TRUE))+
  ylab("No. Recruited") + ggtitle("2. No. of students")

绘制链接到次要y轴的折线图

0 个答案: