今晚和很多幸福的人儿打电话，结果就只学了一些。学多少写多少喽~反正开心呢！
4.6日期值
日期值通常是以字符串的形式输入R中，在用as.Date()来转换为树枝形式。
mydates<-as.Date(c("2007-06-22","2004-02-13"))
也可以将字符型数据转换为对应的日期：
strDates<-c("01/05/1965","08/16/1975") dates<-as.Date(strDates,"%m/%d/%Y")
还有两个使用的函数
Sys.Date()#可以返回当天的日期 date()#返回当前的日期和时间
4.7类型转换
is.numeric() #用于判断
as.numeric() #用于转换
4.8数据排序
使用order()函数对一个数据框进行排序
newdata<-leadership[order(leadership$gender,leadership$age)]
4.9数据集的合并
向数据框添加列
方法一
total<-merge(dataframeA,dataframeB,by="ID")
方法二
total<-cbind(A,B)#横向合并两个矩阵或数据框，并不需要指定一个公共索引，但是需要每个对象拥有相同的行数。
向数据框添加行
total<-rbind(dataframeA,dataframeB)
4.10数据集取子集
选入变量
newdata<-leadership[,c(6:10)]
或者使用以下
myvars<-c("q1","q2","q3","q4","q5") newdata<-leadership[myvars]
以上两个等价。
再可以简写成
myvars<-paste("q",1:5,sep="") newdata<-leadership[myvars]
剔除变量
newdata<-leadership[c(-8,-9)]#删除第8，9列
下面的方法比较复杂些
myvars<-names(leadership)%in%c("q3","q4") newdata<-leadership[!myvars]
或者直接将该列设为未定义NULL
leadership$q3<-leadership$q4<-NULL
subset()
newdata<-subset(leadership,age>=35|age<24,selet=gender:q4)
随机抽样sample()
mysample<-leadership[sample(1:nrow(leadership),3,replace = FALSE),]
网友评论