#這里之前的命令主要是做好準(zhǔn)備工作，創(chuàng)建Ｄ盤之中的工作空間，并且把下載好的文件放進(jìn)去
dir.create("D:/R_workspace")
setwd("D:/R_workspace")
getwd()
list.files()

測試的數(shù)據(jù)文件下載地址：　http://pan.baidu.com/s/1czKtDc

#如果你配置好了java環(huán)境，可以直接安裝xlsx這個包
#可以直接調(diào)用EXCEL2007版本以上的文件

install.packages("xlsx")
library(xlsx)
dd <- read.xlsx("kaikai.xlsx", sheetName = "Sheet1_data")
dd
head(dd)

# 如果你數(shù)據(jù)量不太大的話，現(xiàn)在EXCEL表格中進(jìn)行剪切： ctrl+C，也就是復(fù)制
# 然后運行read.table("clipboard",header=TRUE,……) ，
# 后面的參數(shù)你自己學(xué)著設(shè)置

dd1 <- read.table("clipboard", header = T)
dd1

#如果數(shù)據(jù)量非常大，可能會有十幾萬條吧，
#反正我暫時還沒有碰到百萬條的EXCEL表單，保存成csv文件

list.files()
dd2 <- read.csv("kaikai.csv", header = T)
ddd2 <- read.csv("D:\\R_workspace\\kaikai.csv", header = FALSE)
dd2
ddd2

數(shù)據(jù)如下：

數(shù)據(jù)表.png

下載地址： http://pan.baidu.com/s/1czKtDc