R载入文件中的数据
- 问题
- 方案

R载入文件中的数据

问题

你想从文件中载入数据。

方案

带分隔符的文本文件

最简单的输入数据的方式就是将其保存为带分隔符（如：制表位或逗号）的文本文件。

data <- read.csv("datafile.csv")
# 导入一个没有表头的CSV文件
data <- read.csv("datafile-noheader.csv", header=FALSE)

函数read.table()是一个更为普遍的函数，允许你设置分隔符，不管是否有表头，不管字符串是否有引号，等等。使用?read.table查看更多详细信息。

data <- read.table("datafile-noheader.csv",
                   header=FALSE,
                   sep=","         # 制表位分隔的文件用"\t"
)

打开文件的文件选择器

某些平台，使用file.choose()可以打开文件选择的对话窗口；其他平台则会提示用户输入一个文件名。

data <- read.csv(file.choose())

把字符串看作因子（factor）或字符（character）

默认条件下，数据中的字符串都被转换为因子。如果你用read.csv()载入数据，所有的文本列都会被视为因子，即便它被处理为字符串更有意义。要这么做，使用 stringsAsFactors=FALSE:

data <- read.csv("datafile.csv", stringsAsFactors=FALSE)
# 将某一列转化为因子
data$Sex <- factor(data$Sex)

另一种将他们加载为因子，把某一列转换为字符的方法：

data <- read.csv("datafile.csv")
data$First <- as.character(data$First)
data$Last  <- as.character(data$Last)
# 另一种方法：转化名为“First”和“Last”的两列
stringcols <- c("First","Last")
data[stringcols] <- lapply(data[stringcols], as.character)

从网上导入文件

也可以从URL加载数据。这些(很长的)URL可以加载相关文件。

data <- read.csv("http://www.cookbook-r.com/Data_input_and_output/Loading_data_from_a_file/datafile.csv")
# 读取没有表头的CSV文件
data <- read.csv("http://www.cookbook-r.com/Data_input_and_output/Loading_data_from_a_file/datafile-noheader.csv", header=FALSE)
# 手动添加表头
names(data) <- c("First","Last","Sex","Number")

上述所使用的数据文件：

datafile.csv：

"First","Last","Sex","Number"
"Currer","Bell","F",2
"Dr.","Seuss","M",49
"","Student",NA,21

datafile-noheader.csv:

"Currer","Bell","F",2
"Dr.","Seuss","M",49
"","Student",NA,21

定宽文本文件

假如你的数据列宽固定，如下例：

  First     Last  Sex Number
 Currer     Bell    F      2
    Dr.    Seuss    M     49
    ""   Student   NA     21

读取这种数据的一种方式是简单地使用read.table()函数strip.white=TRUE，可以清除额外的空格。

read.table("clipboard", header=TRUE, strip.white=TRUE)

然而，你的数据文件可能包含空间列，或列没有空格分开，这样，scores列表示六个不同的测量值，每一个从0到3。

subject  sex  scores
   N  1    M  113311
   NE 2    F  112231
   S  3    F  111221
   W  4    M  011002

这种情况，你可能需要使用read.fwf()函数。如果你读的列名来自于文件，它要求他们用分隔符（如：制表位，空格，逗号）分开。如果有多个空格分开将他们分开，如下例，你需要直接指定列的名称。

# 指定列的名称
read.fwf("myfile.txt", 
         c(7,5,-2,1,1,1,1,1,1), # 列的宽度，-2意味着放弃这些列
         skip=1,                # 跳过第一行（包括表头）
         col.names=c("subject","sex","s1","s2","s3","s4","s5","s6"),
         strip.white=TRUE)      # 跳过每个数据的前导和尾随
#>   subject sex s1 s2 s3 s4 s5 s6
#> 1    N  1   M  1  1  3  3  1  1
#> 2    NE 2   F  1  1  2  2  3  1
#> 3    S  3   F  1  1  1  2  2  1
#> 4    W  4   M  0  1  1  0  0  2
# subject sex s1 s2 s3 s4 s5 s6
#    N  1   M  1  1  3  3  1  1
#    NE 2   F  1  1  2  2  3  1
#    S  3   F  1  1  1  2  2  1
#    W  4   M  0  1  1  0  0  2
# 如果第一行如下：
# subject,sex,scores
# 我们可以使用header=TRUE
read.fwf("myfile.txt", c(7,5,-2,1,1,1,1,1,1), header=TRUE, strip.white=TRUE)
#> Error in read.table(file = FILE, header = header, sep = sep, row.names = row.names, : more columns than column names
# 错误：列比例名多

Excel文件

gdata包里的read.xls函数可以读取Excel文件。

library(gdata)
data <- read.xls("data.xls")

gdata包，见http://cran.r-project.org/doc/manuals/R-data.html#Reading-Excel-spreadsheets.

包的安装，见Basics-安装和使用R包

SPSS数据

foreign包里的read.spss函数可以读取SPSS文件。

library(foreign)
data <- read.spss("data.sav", to.data.frame=TRUE)

原文链接：http://www.cookbook-r.com/Data_input_and_output/Loading_data_from_a_file/