我已将盒图与ggplot分组
require(ggplot2)
require(tidyr)
require(lubridate)
dat.1415<-as.data.frame(sample(1:1000, 181))
dat.1415$date<-seq(as.Date("2014-11-1"), as.Date("2015-4-30"), "day")
names(dat.1415)<-c("value", "date")
dat.1415$month<-month(dat.1415$date)
dat.1415$season<-"2014/15"
dat.1516<-as.data.frame(sample(1:1000, 182))
dat.1516$date<-seq(as.Date("2015-11-1"), as.Date("2016-4-30"), "day")
names(dat.1516)<-c("value", "date")
dat.1516$month<-month(dat.1516$date)
dat.1516$season<-"2015/16"
dat.1617<-as.data.frame(sample(1:1000, 181))
dat.1617$date<-seq(as.Date("2016-11-1"), as.Date("2017-4-30"), "day")
names(dat.1617)<-c("value", "date")
dat.1617$month<-month(dat.1617$date)
dat.1617$season<-"2016/17"
dat.1718<-as.data.frame(sample(1:1000, 181))
dat.1718$date<-seq(as.Date("2017-11-1"), as.Date("2018-4-30"), "day")
names(dat.1718)<-c("value", "date")
dat.1718$month<-month(dat.1718$date)
dat.1718$season<-"2017/18"
dat<-rbind(dat.1415, dat.1516, dat.1617, dat.1718)
dat$month<-month.abb[dat$month]
dat$month<-factor(dat$month)
dat$facet = factor(dat$month, levels = c("Nov", "Dec", "Jan", "Feb", "Mar", "Apr"))
ggplot(dat, aes(x=season, y=value)) +
geom_boxplot(fill="grey50") +
facet_grid(~facet) +
theme_classic()+
theme(legend.position="top") +
labs(x="", y="", title="") +
guides(fill=F) +
theme(panel.background = element_rect(fill="grey95"))
但是因为有很多盒子,所以我在x轴上得到了重叠的标签。有什么办法可以使它们在不同的方面交替出现?我不希望x轴的位置交替显示,而是实际标签,例如在方面1中是“ 2014/15”和“ 2016/17”,在方面2中是“ 2015/16”和“ 2017/18” “ 等等。有可能吗?
答案 0 :(得分:2)
尝试旋转标签以获取完整信息
+ theme(axis.text.x = element_text(angle = 30, hjust = 1))
编辑
或者尝试以某种方式操纵数据并使用类似的方法
+ scale_x_discrete(breaks=c("1","3"), labels=c(...))
Edits2 :我将颜色设置为0,以便跳过。
ggplot(dat, aes(x=season, y=value)) +
geom_boxplot(fill="grey50") +
facet_grid(~facet) +
theme_classic()+
theme(legend.position="top") +
labs(x="", y="", title="") +
guides(fill=F) +
theme(panel.background = element_rect(fill="grey95"))+
theme(axis.text.x = element_text(color=c(1,0,1,0)))
答案 1 :(得分:2)
ggplot v3.3.0的新版本增加了使用guide_axis
来躲避标签的功能。
scale_x_discrete(guide = guide_axis(n.dodge = 2))
因此将其添加到您的绘图中:
ggplot(dat, aes(x=season, y=value)) +
geom_boxplot(fill="grey50") +
facet_grid(~facet) +
theme_classic()+
theme(legend.position="top") +
labs(x="", y="", title="") +
guides(fill=F) +
theme(panel.background = element_rect(fill="grey95")) +
scale_x_discrete(guide = guide_axis(n.dodge = 2))
产生以下内容: