read_excel(path=“路径”,sheet=“工作表名”,…其他参数)
library(readxl)
data0916_1 <- read_excel("C:\\Users\\htssr\\Desktop\\data.xlsx",sheet="sheet1",col_names = F)
head(data0916_1)
## X0 X1 X2 X3
## 1 1 新塘南安 广州 广州市增城县新塘镇广深公路南安路段
## 2 2 南岗盛发 广州 广州市黄埔区南岗镇金子村路北侧
## 3 3 广州八通 广州 广州市黄埔区丰乐北路姬堂村口
## 4 4 广州昌源 广州 广州市天河区广汕公路柯木朗路段
## 5 5 广州黄陂 广州 广州市经济技术开发区黄陂小学西侧
## 6 6 广州顺延 广州 广州市白云区广花公路东侧双岗十队
library(readxl)
system.time(read_excel("C:\\Users\\htssr\\Desktop\\data.xlsx",sheet="sheet1",col_names = F))
## user system elapsed
## 0.01 0.00 0.01
library(rJava)
library(xlsxjars)
library(xlsx)
system.time(read.xlsx("C:\\Users\\htssr\\Desktop\\data.xlsx",sheetName="sheet1",header=F))
## user system elapsed
## 1.50 0.00 0.92