R語言數據儲存與讀取
1 首先用getwd() 獲得當前目錄,用setwd("C:/data")設定當前目錄
2 數據保存
創建數據框d
>d <- data.frame(obs = c(1, 2, 3), treat = c("A", "B", "A"), weight = c(2.3, NA, 9))
2.1 保存爲簡單文本
>write.table(d, file = "c:/data/foo.txt", row.names = F, quote = F) # 空格分隔
>write.table(d, file = "c:/data/foo.txt", row.names = F, quote = F, sep="\t") # tab 分隔的文件
2.2 保存爲逗號分割文本
>write.csv(d, file = "c:/data/foo.csv", row.names = F, quote = F)
2.3 保存爲R格式文件
>save(d, file = "c:/data/foo.Rdata")
2.4 保存工作空間鏡像
>save.image( ) = save(list =ls(all=TRUE), file=".RData")
3 數據讀取
讀取函數主要有:read.table( ), scan( ) ,read.fwf( ),readLines().
3.1 用 read.table( ) 讀 "c:\data” 下houses.dat
>setwd("C:/data"); HousePrice <- read.table(file="houses.dat")
如果明確數據第一行做表頭,則使用header選項
>HousePrice <- read.table("houses.dat", header=TRUE)
read.table( ) 變形有: read.csv( ),read.csv2( ), read.delim( ), read.delim2( ).前兩讀取逗號分割數據,後兩個讀取其他分割符數據。
3.2 用scan( ) 比read.table( ) 更靈活。
但要指定 變量類型:如:C:\data\data.dat:
M 65 168
M 70 172
F 54 156
F 58 163
>mydata <- scan("data.dat", what = list("", 0, 0))
>mydata <- scan("data.dat", what = list(Sex="", Weight=0, Height=0))
3.3 用read.fwf( )讀取文件中一些固定寬度數據
如:C:\data\data.txt:
A1.501.2
A1.551.3
B1.601.4
>mydata <- read.fwf("data.txt", widths=c(1, 4, 3), col.names=c("X","Y","Z"))
4 excel格式數據讀取
4.1 利用剪切板
選擇excel數據,再用(CTRL+C)複製。在R中鍵入命令:
>mydata <- read.delim("clipboard")
4.2 使用程序包 RODBC.
如: c:\data\body.xls
Sex Weight Height
M 65 168
M 70 172
F 54 156
F 58 163
> library(RODBC)
> z <- odbcConnectExcel("c:/data/body.xls")
> foo <- sqlFetch(z, "Sheet1")
> close(z)