R海拾遗-readxl

knitr::opts_chunk$set(echo = TRUE,warning = F,message = F)

# 通过安装tidyverse整个包进行安装
# 在使用的时候需要额外导入readxl包
# install.packages("tidyverse")
# # 单独安装readxl包
# install.packages("readxl")
# # 从github安装开发版
# devtools::install_github("tidyverse/readxl")

library(readxl)
library(tidyverse)
# 这个函数包显示示例数据
readxl_example()
# 指定其中一个数据，返回文件路径
readxl_example("clippy.xls")
#read_excel函数用于导入，同时支持xls和xlsx格式的excel文件
xlsx_example <- readxl_example("datasets.xlsx")# 将路径赋值给xlsx_example
# 通过路径读取，默认情况下读取一地个sheet
read_excel(xlsx_example) %>% head()
# 列出excel文件中每个表的名字
excel_sheets(xlsx_example)

# 选择特定的表，进行读取
read_excel(xlsx_example, sheet = "chickwts") %>% head()
# 通过数字，读取第4个表
read_excel(xlsx_example, sheet = 4) %>% head()
# n_max读取3行
read_excel(xlsx_example, n_max = 3)
# range参数用于选择读取的范围
# 读取特定范围的数据
read_excel(xlsx_example, range = "C1:E4")
# 选择特定的行
read_excel(xlsx_example, range = cell_rows(1:4))
# 选择特定的列
read_excel(xlsx_example, range = cell_cols("B:D")) %>% head()