R数据类型

简单

向量定义

w<-c(1,3,4,5,6,7)

length(w2) #查看向量的长度

mode(w2)

w<-seq(1:10)

seq(1,-9,by=-2)

rep(1:4,times=2)

sacn() #键盘录入

向量取值（索引）

x[c(1,3,5)]

x[x>0]

which(v>5)

which.min(v)

which.max(v)

矩阵和数组

# 矩阵创建

(w<-seq(1:10))

(a<-matrix(w,nrow=5,ncol=2))

(a<-matrix(w,nrow=5,ncol=2,byrow=T)) #按行填充

(a<-matrix(w,nrow=5,ncol=2,byrow=T,

dimnames=list(paste0("r",1:5),paste0("l",1:2)))) #给行列设置名称

# 矩阵的合并

(x1<-rbind(c(1,2),c(3,4)))

(x2<-10+x1)

(x3<-cbind(x1,x2))

(x4<-rbind(x1,x2))

cbind(1,x1)

# 矩阵的拉直

(A<-matrix(1:6,nrow=2))

as.vector(A)

# 矩阵的行或列计算的函数

(A <- matrix(1:16,4,4))

colSums(A) # 等价于 apply(A,2,sum)

colMeans(A) # 等价于 apply(A,2,mean)

rowSums(A) # 等价于 apply(A,1,sum)

rowMeans(A) # 等价于 apply(A,1,mean)

# 数组创建（默认按照一列一列填充）

rm(list=ls())

(w<-array(1:30,dim=c(3,5,2)))

因子和时间序列

factor()

对象

列表和数据框

rm(list=ls())

(w<-array(1:30,dim=c(3,5,2)))

#2.2.3 列表和数据框

# 列表创建

user.list<-list(user.id=34453,

user.name="张三",

user.games=c('地铁跑酷','神庙逃亡2','水果忍者','苍穹变'))

user.list

length(user.list) #检查列表成分个数

unlist(user.list) #转换成向量元素

# 数据框创建

my.dataset<-data.frame(userid=c("S001","S002","S003","S004","S005"),

gamename=c('地铁跑酷','神庙逃亡2','水果忍者','水果忍者','机战王'),

iamount=c(100,50,30,60,70))

my.dataset

# 利用names函数查看变量名称

names(my.dataset)

# 我们也可以通过colnames函数查看变量名称，rownames函数查看行名称。

head(mtcars) #查看前六行数据

colnames(mtcars) # 查看变量名称

rownames(mtcars) # 查看记录名称

# 利用names函数修改变量名称

names(my.dataset)

names(my.dataset)[1] <- "vopenid"

names(my.dataset)

# 利用reshape包中rename函数对变量名进行批量修改

library(reshape)

newdata <- rename(my.dataset,c("vopenid" = "用户ID",

"gamename" = "游戏名称","iamount" = "付费金额"))

names(newdata)

# 数据框索引

my.dataset$gamename

my.dataset[["gamename"]]

my.dataset[[2]]

my.dataset[,2]

# 如果我们想提取前三行，前两列的数据

my.dataset[1:3,1:2]

my.dataset[1:3,c("vopenid","gamename")]

基本运算

矩阵乘法： %*%

函数

自定义函数：

注意，R语言顺序执行，没有多线程，类与对象的概念。

流程控制

if (x >= 0) sqrt(x) else NA

for (i in 1:5) print (1:i)

i=1

while(i <= 5) {

print(1:i)

i = i+1

}

R命令