1.scan输入
rm(list = ls())
#使用scan方式读入2x4矩阵
x <- matrix(scan(),2,4)
#取其(1,3,4)列
x[,c(1,3,4)]
运行结果:
先运行到scan(),然后再console输入8个数(输入少于8个会自动填充至8个,多于8位会报错),再执行后面的代码
2.文件读取
#读入一个csv文件,输出
y <-read.csv(file="data.csv", header = F, sep = ",") #read读入后得到的y是frame数据类型
y
运行结果:
3.对读取文件操作
通过read读取的csv文件,数据格式是frame,可通过apply函数操作各列各行
apply(X, MARGIN, FUN, ...)
X: 是一个数组(array)
MARGIN:表示对行(1)或者是对列(2)应用函数
FUN: 可是R自带函数,如mean,sum等。也可以是自己编写的函数
求每一列的平均数
#求每一列的平均数
apply(y, 2, mean)
运行结果:
求总平均数
此时不能直接用mean(y),因为y是frame类型。
转换为matrix后mean(y)
#求总平均数
y<-as.matrix(y)
mean(y)
运行结果: