library(ggplot2)

f <-subset(global_data,coor==0)
plot1<-ggplot(f, aes(time)) +
  geom_boxplot(coef =1.5, aes(x=time, y=en, fill=cont), outlier.size = NULL) +
  scale_y_continuous(limits = c(0, 3)) +
  guides(fill=FALSE) +
  theme(axis.text=element_text(size=14),
        axis.title=element_text(size=14,face="bold"))
d <-subset(global_data,coor==0.5)
plot2<-ggplot(d, aes(time)) +
  geom_boxplot(coef =1.5, aes(x=time, y=en, fill=cont), outlier.size = NULL) +
  scale_y_continuous(limits = c(0, 3)) +
  guides(fill=FALSE) +
  theme(axis.text=element_text(size=14),
        axis.title=element_text(size=14,face="bold"))

grid.arrange(plot1,plot2,ncol=2)