# 安装包
install.packages("readxl")  # 导入Excel数据的常用包
install.packages("openxlsx")  # 导入Excel数据的另一种包

# 加载包
library(readxl)
library(openxlsx)

# 读取Excel文件中的数据（默认读取第一个Sheet）
data <- read_excel("path/to/your/excel/file.xlsx")

# 查看数据结构
str(data)

# 查看数据前几行
head(data)

Classes ‘tbl_df’, ‘tbl’ and 'data.frame':   150 obs. of  5 variables:
 Sepal.Length: num  5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9 ... Sepal.Width : num  3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
 Petal.Length: num  1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 ... Petal.Width : num  0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1 ...
 $ Species     : chr  "setosa" "setosa" "setosa" "setosa" ...

   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1          5.1         3.5          1.4         0.2 setosa 
2          4.9         3.0          1.4         0.2 setosa 
3          4.7         3.2          1.3         0.2 setosa 
4          4.6         3.1          1.5         0.2 setosa 
5          5.0         3.6          1.4         0.2 setosa 
6          5.4         3.9          1.7         0.4 setosa 

# 读取Excel文件中的指定Sheet数据
data <- read_excel("path/to/your/excel/file.xlsx", sheet = "Sheet2")

# 查看数据结构
str(data)

# 查看数据前几行
head(data)

# 读取Excel文件中的数据（忽略第一行）
data <- read_excel("path/to/your/excel/file.xlsx", skip = 1)

# 查看数据结构
str(data)

# 查看数据前几行
head(data)

# 读取Excel文件中的指定行和列数据
data <- read_excel("path/to/your/excel/file.xlsx", range = "B2:C10")

# 查看数据结构
str(data)

# 查看数据前几行
head(data)

# 读取Excel文件中的数据（默认读取第一个Sheet）
data <- read.xlsx("path/to/your/excel/file.xlsx")

# 查看数据结构
str(data)

# 查看数据前几行
head(data)

# 读取Excel文件中的指定Sheet数据
data <- read.xlsx("path/to/your/excel/file.xlsx", sheet = 2)

# 查看数据结构
str(data)

# 查看数据前几行
head(data)

# 读取Excel文件中的数据（自动识别标题行）
data <- read.xlsx("path/to/your/excel/file.xlsx", header = TRUE)

# 查看数据结构
str(data)

# 查看数据前几行
head(data)