如何获得r中多组的平均SD和P值？

# 示例数据
group1 <- c(1, 2, 3, 4, 5)
group2 <- c(2, 4, 6, 8, 10)

# 计算平均值
mean_group1 <- mean(group1)
mean_group2 <- mean(group2)

# 计算标准差
sd_group1 <- sd(group1)
sd_group2 <- sd(group2)

# 计算p值（示例使用t.test()进行双样本t检验）
p_value <- t.test(group1, group2)$p.value

# 输出结果
print(paste("Group 1 Mean:", mean_group1))
print(paste("Group 2 Mean:", mean_group2))
print(paste("Group 1 SD:", sd_group1))
print(paste("Group 2 SD:", sd_group2))
print(paste("P-value:", p_value))