```{r, fig.width=5, fig.height=6.5, echo=FALSE}
#note you can set the size parameters of the figure 
Figure.1<-ggplot(doubs.long, aes(count))+geom_histogram()+facet_wrap(~X)+theme_minimal()+
xlab("Number of individuals")+ylab("Number of species")

plot(Figure.1)  
```