如何在data.frame中运行多个t.test？

I have a data,

我有一个数据,

temp_data <- as.data.frame(matrix(rbinom(9*9, 1, 0.5), ncol=9, nrow =9))
colnames(temp_data) <- paste(rep(c("a","b","c"), each=3), rep(c(1,2,3), 3), sep = "")
temp_data <- as.dat