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())