R软件学习笔记-3（基本函数与运算）

unique函数

从集合中删除重复的元素

unique(ReportCard$sex) #获得sex的类别值，检查性别取值范围是否正确

ReportCard$sex<-factor(ReportCard$sex,levels=c(1,2),labels=c("M","F")) #分类变量值的重新编码,将性别为1的替换为M，为2的替换为F

subset函数

条件筛选

#提取男生(性别为M)的数据，条件筛选

MaleScore1<-subset(ReportCard,ReportCard$sex=="M") #条件筛选函数subset

fix(MaleScore1)

等价于

Sel1<-ReportCard$sex=="M"

MaleScore1<-ReportCard[Sel1,] #利用位置向量实现数据筛选

提取男生(性别为M)且平均成绩不及格（小于60分)的学生数据

MaleScore2<-subset(ReportCard,ReportCard$sex=="M" & ReportCard$avScore=="E")

等价于：

Sel2<-(ReportCard$sex=="M" & ReportCard$avScore<60)

MaleScore2<-ReportCard[Sel2,]

随机筛选

set.seed(10000) #设置随机种子，初始值为10000

bh<-sample(1:60,size=30,replace=FALSE) #bh是位置向量，通过随机抽样产生，无放回方式

bh

MySample<-ReportCard[bh,] #间接利用位置向量实现成绩的随机抽样

保存数据集

write.table(ReportCard,file="ReportCard.txt",sep=" ",quote=FALSE,append=FALSE,na="NA",row.names=FALSE,col.names=TRUE)

if 结构

Price<-scan() #scan生成向量或列表

if(Price<200) print("No discount!")

if(Price>=200 & Price<500) print("off 3%")

if(Price>500 & Price<1000) print("off 5%")

if(Price>=1000 & Price<2500) print("off 8%")

if(Price>=2500 & Price<5000) print("off 10%")

if(Price>=5000) print("off 15%")

switch实现

Price<-scan()

if(Price<200) F<-1 else { #利用if给F赋值

if(Price>=200 & Price<500) F<-2 else {

if(Price>500 & Price<1000) F<-3 else {

if(Price>=1000 & Price<2500) F<-4 else{

if(Price>=2500 & Price<5000) F<-5 else

F<-6

}

}

}

}

print(switch(F,"No discount","off 3%","off 5%","off 8%","off 10%","off 15%")) #利用switch对F的值进行判断

for循环

s=0

for(i in 1:100){

s=s+i

}

print(s)

while循环

s<-0 #和，初始值为0

i<-1 #循环控制变量i，初始值为1

while(i<=100){ #当循环控制变量i<=100时进入循环体

s<-s+i

i<-i+1 #改变循环控制变量的值使其可能大于100

}

print(s) #当循环控制变量的值为101时跳出循环并输出计算结果

repeat循环

s<-0

i<-1

repeat{ #无条件进入循环体

if(i<=100){

s<-s+i

i<-i+1} else #改变循环控制变量的值使其可能大于100

break #当i大于100时强行跳出循环并输出计算结果

}

print(s)

举个栗子

MyTable<-function(mytable){ #自定义函数MyTable

rows<-dim(mytable)[1]

cols<-dim(mytable)[2]

DataTable<-NULL

for(i in 1:rows){

for(j in 1:mytable$freq[i]){

RowData<-mytable[i,c(1:(cols-1))]

DataTable<-rbind(DataTable,RowData)

}

}

row.names(DataTable)<-c(1:dim(DataTable)[1])

return(DataTable)

}

Grade<-rep(c("B","C","D","E"),times=2) #组织分数等级数据，分数等级重复2次

Sex<-rep(c("M","F"),each=4) #组织性别数据，取值各重复4次

Freq<-c(2,11,12,5,2,13,10,3) #组织汇总数据

Table<-data.frame(sex=Sex,grade=Grade,freq=Freq) #Table是数据框，域freq存放频数

MyData<-MyTable(Table) #调用自定义函数，Table是一个数据框

Table

MyData #MyData为还原的原始数据