在R中,我使用什么命令来生成由数据集中所有列向量的均值组成的数据集？

data <- data.frame(V1=c(1, 2, 3), V2=c(4, 5, 6), V3=c(7, 8, 9))
data_mean <- aggregate(data, by=list(data$V1, data$V2, data$V3), mean)

data_mean <- aggregate(data, by=list(data$V1, data$V2, data$V3), mean)
data_mean$value <- as.numeric(data_mean$value)
write.csv(data_mean, "data_mean.csv")