请撰写R语言代码 ，实现从excel中提取数据进行正态性检验和t检验

在R语言中，我们可以使用`readxl`包读取Excel文件，然后使用`shapiro.test()`函数进行正态性检验，以及`t.test()`函数进行两样本t检验。以下是一个简单的示例代码：

# 首先安装并加载需要的包
install.packages("readxl")
library(readxl)
library(ggpubr) # 用于图形展示

# 假设你的Excel文件名为"data.xlsx"，且数据位于Sheet1的第一列
data <- read_excel("data.xlsx", sheet = "Sheet1", col_names = FALSE, start_row = 2) # 开始行从第二行开始

# 对第一列的数据进行正态性检验
normality_test <- shapiro.test(data[1])

# 打印结果
cat("正态性检验:\n")
print(normality_test)

# 假设有两个组别，比如group1和group2，假设它们分别是data[1]的前半部分和后半部分
group1 <- data[1][1:(length(data[1])/2)]
group2 <- data[1][(length(data[1])/2+1):length(data[1])]

# 进行t检验，假设我们比较的是均值
t_test <- t.test(group1, group2, var.equal = TRUE) # 如果不知道方差是否相等，可以设置var.equal = FALSE

# 打印结果
cat("\nt检验:\n")
print(t_test)

# 可视化正态分布和t分布
ggboxplot(data[1], type = "density", color = "blue") +
  stat_qq(data[1], add = TRUE) +
  ggtitle("数据正态性和T检验")

这个例子假设了数据已经按照你的需求分好组并且满足t检验的前提。如果实际数据结构不同，你需要相应地调整数据提取的部分。