Lecture4N因子.列表.数据框及输入输出.pptVIP

为了输出这三个日期，可以用apply函数指定对每一行作用一个输出函数，此输出函数利用cat()和formatC来控制： apply(da, 1, function(r) cat(formatC(r[1], format=d, width=2, flag=0), -, formatC(r[2], format=d, width=2, flag=0), -, formatC(r[3], format=d, width=2, flag=0), \n, sep=)) 99-01-03 96-11-09 65-05-18 NULL 这里我们知道apply函数第一个参数指定了一个矩阵，第二个参数说明对行操作还是对列操作，第三个参数是一个函数，这里我们使用了直接定义一个函数作为参数的办法。输出结果中多了一个NULL函数，这是因为我们在交互运行，apply的结果作为一个表达式的值（NULL ）会被显示出来。 为避免显示，可以把结果赋给一个临时变量名，或者把整个表达式作为invisible() 函数的参数，这时不显示表达式值。 S的输出缺省显示在交互窗口。可以用sink()函数指定一个文件以把后续的输出转向到这个文件，并可用append参数指定是否要在文件末尾附加： sink(“E:/work/result.txt, append=TRUE) ls() d sink() 调用无参数的sink()把输出恢复到交互窗口。 Write(t(x),file=‘文件名’，nol=nol(x))把一个矩阵X输出到文件中，把X转置后输出因为R中矩阵是列优先的，如果不转置则输出是按列输出的。如果不指定列数则缺省使用5列。文件名缺省用’data’. Write.table(x,file=‘文件名’)把数据框X输出到文件中，输出包括变量名表头和行名。 输入 为了从外部文件读入一个数值型向量，S提供了scan()函数。如果指定了file参数（也是第一参数），则从指定文件读入，缺省情况下读入一个数值向量，文件中各数据以空白分隔，读到文件尾为止。例如： cat(1:12, \n, file=‘E:/work/result.txt) x - scan(‘E:/work/result.txt) 如果文件中是一个用空白分隔的矩阵（或数组），我们可以先用scan()把它读入到一个向量然后用matrix()函数（或array()函数）转换。如： y - matrix(scan(‘E:/work/result.txt), ncol=3, byrow=T) 实际上，scan()也能够读入一个多列的表格，只要用what参数指定一个列表，则列表每项的类型为需要读取的类型。用skip参数可以跳过文件的开始若干行不读。用sep参数可以指定数据间的分隔符。详见帮助。 scan()不指定读取文件名时是交互读入，读入时用一个空行结束。 如果要读取一个数据框，S提供了一个read.table()函数。它只要给出一个文件名，就可以把文件中用空白分隔的表格数据每行读入为数据框的一行。比如，文件E:\d.txt 中内容如下： Zhou 15 3 “Li Ming” 9 李明 Zhang 10.2 Wang 用read.table读入： x - read.table(‘E:/d.txt, as.is=T) x V1 V2 V3 1 Zhou 15 3 2 Li Ming 9 李明 3 Zhang 10.2 Wang 读入结果为数据框。 函数可以自动识别表列是数值型还是字符型，并在缺省情况下把字符型数据转换为因子（加上as.is=T可以保留字符型不转换）。 函数自动为数据框变量指定“V1 ”、“V2”这样的变量名，指定“1”、“2”这样的行名。可以用s参数指定一个字符型向量作为数据框的变量名，用s参数指定一个字符型向量作为数据框的行名。 read.table()可以读入带有表头的文件，只要加上header=TRUE参数即可。可以用sep 参数指定表行各项的分隔符。例如，为了读入如下带有表头的逗号分隔文件E:\d.csv： Name,score, cn Zhou,15,3 Li Ming, 9, 李明 Zhang, 10.2, Wang 使用如下语句： x=read.table(‘E:/d.csv, header=T, sep=,) x Name score cn 1 Zhou 15.0 3 2 Li Ming 9.0 李明 3 Zhang 10.2 Wang 其它一些用法见帮助。 cl =read.table(E:/R/class.txt, as.is=c(1), s=c(Name