tabletest

library(ggplot2)

ggplot(mtcars,aes(x = mpg , y =cyl)) + 
  geom_point()+
  facet_grid(gear ~ . )+
  # ggtitle("test")+
  labs(title="test")+theme(plot.title = element_text())