R 当使用刻度时，是否可以调整最小y值="；“免费”；在阴谋中？

使用以下数据集：

day <- gl(8,1,48,labels=c("Mon","Tues","Wed","Thurs","Fri","Sat","Sun","Avg"))
day <- factor(day, level=c("Mon","Tues","Wed","Thurs","Fri","Sat","Sun","Avg"))
month<-gl(3,8,48,labels=c("Jan","Mar","Apr"))
month<-factor(month,level=c("Jan","Mar","Apr"))

snow<-gl(2,24,48,labels=c("Y","N"))
snow<-factor(snow,levels=c("Y","N"))
count <- c(.94,.95,.96,.98,.93,.94,.99,.9557143,.82,.84,.83,.86,.91,.89,.93,.8685714,1.07,.99,.86,1.03,.81,.92,.88,.9371429,.94,.95,.96,.98,.93,.94,.99,.9557143,.82,.84,.83,.86,.91,.89,.93,.8685714,1.07,.99,.86,1.03,.81,.92,.88,.9371429)
d <- data.frame(day=day,count=count,month=month,snow=snow)

我喜欢分数，但不喜欢比例：

ggplot(data=d[d$day=="Avg",],aes(x=day, y=count, fill=month,group=month,label=month),show_guide=F)+
facet_wrap(~snow,ncol=1,scales="free")+
geom_line(data=d[d$day!="Avg",],aes(x=day, y=count, group=month, colour=month), show_guide=F)+
scale_x_discrete(limits=levels(d$day))+
scale_y_continuous(labels = percent_format())+
geom_point(aes(colour = month),size = 4,position=position_dodge(width=1.2))

如何将上述图表中所需的品质结合起来？

本质上，我是在问：如何在将y-min设置为零的情况下，用不同的y-max绘制点图

注意：我想找到的解决方案将应用于从一个数据帧构建的大约27个图形。因此，我将投票支持那些避免对单个图形进行更改的解决方案。我希望找到一个适用于所有刻面包装图的解决方案

次要问题（可能针对单独的帖子）： -如何将图例添加到每个刻面包装图中？怎么 我可以将图例的标题改为“每周平均值”吗？怎么 线条/点的形状/颜色是否可以改变然后报告

---

在一个图例中？

有一个

扩展限制（y=0）

，它实质上添加了一个虚拟层，其中包含不可见的

几何空白

，只是为了扩大范围。

您的其他问题可能在他们自己的讨论线程中会更好，并有一个他们自己的最小代表示例。

ggplot(data=d[d$day=="Avg",],aes(x=day, y=count, fill=month,group=month,label=month),show_guide=F)+
facet_wrap(~snow,ncol=1,scales="free")+
geom_line(data=d[d$day!="Avg",],aes(x=day, y=count, group=month, colour=month), show_guide=F)+
scale_x_discrete(limits=levels(d$day))+
scale_y_continuous(labels = percent_format())+
geom_point(aes(colour = month),size = 4,position=position_dodge(width=1.2))