plot1 <- ggplot(TF1, aes(x= ru11ind, fill = ru11ind)) + geom_bar() +  theme( axis.text.x=element_blank()) +ggtitle(("TF1"))
plot2 <- ggplot(TF2, aes(x= ru11ind, fill = ru11ind)) + geom_bar() +  theme( axis.text.x=element_blank()) +ggtitle(("TF2"))
plot3 <- ggplot(TF3, aes(x= ru11ind, fill = ru11ind)) + geom_bar() +  theme( axis.text.x=element_blank()) +ggtitle(("TF3"))
plot4 <- ggplot(TF4, aes(x= ru11ind, fill = ru11ind)) + geom_bar() +  theme( axis.text.x=element_blank()) +ggtitle(("TF4"))
grid.arrange(plot1, plot2, ncol=2)
grid.arrange(plot3, plot4, ncol=2)