-
想你想你查看全部
-
date，time 日期與時間 --日期：Date ----距離 1970-01-01的天數 /date()/Sys.Date() ----weekdays()/months()/quarters() 獲取系統日期 x2<-Sys.Date() 將字符串轉為日期 x3<-as.Date("2016-03-27")#格式為yyyy-mm-dd 獲取日期的星期幾，月份，季度 weekdays(x3) months(x3) quarters(x3) julian(x3)#距離 1970-01-01的天數 x4<-as.Date("2016-05-20") x4-x3 --時間：POSIXct/POSIXlt ----距離1970-01-01的秒數/Sys.time() ----POSIXct:整數，常用于存入數據框 ----POSIlt:列表，還包含星期、年、月、日等信息 POSIXct轉為POSIXlt x<-Sys.time() p<-as.POSIXlt(x) names(unclass(p)) 獲取秒數 p$sec 特定字符串格式轉為日期格式 x1<-"Jan 1, 2015 01:01" strptime(x1,"%B %d, %Y %H:%M")查看全部
-
--存儲表格數據 --視為各元素長度相同的列表 ----每個元素代表一列數據 ----每個元素的長度代表行數 ----元素類型可以不同 創建數據框 df<-data.frame(id=c(1,2,3,4),name=c("a","b","c","d"),gender=c(TRUE,TRUE,FALSE,FALSE)) 查看數據框的行列，nrow(df) ncol(df)查看全部
-
3.$:按名字從列表和數據框中提取數據查看全部
-
2.[[]]：從列表或數據庫中提取數據查看全部
-
1.[]:提取一個或多個類型的數據查看全部
-
日期與時間 --日期：Date ----距離 1970-01-01的天數 /date()/Sys.Date() ----weekdays()/months()/quarters() 獲取系統日期 x2<-Sys.Date() 將字符串轉為日期 x3<-as.Date("2016-03-27")#格式為yyyy-mm-dd 獲取日期的星期幾，月份，季度 weekdays(x3) months(x3) quarters(x3) julian(x3)#距離 1970-01-01的天數 x4<-as.Date("2016-05-20") x4-x3 --時間：POSIXct/POSIXlt ----距離1970-01-01的秒數/Sys.time() ----POSIXct:整數，常用于存入數據框 ----POSIlt:列表，還包含星期、年、月、日等信息 POSIXct轉為POSIXlt x<-Sys.time() p<-as.POSIXlt(x) names(unclass(p)) 獲取秒數 p$sec 特定字符串格式轉為日期格式 x1<-"Jan 1, 2015 01:01" strptime(x1,"%B %d, %Y %H:%M")查看全部
-
--數組的每一維度處理數據 --apply(參數)：apply(數組，維度，函數/函數名) x<- matrix(1:16,4,4) apply(x, 2, mean)#列求平均 apply(x,2,sum)#列求和 rowSums(x)#行求和 rowMeans(x)#行平均 colSums(x)#列 colMeans(x) x1<-matrix(rnorm(100),10,10) apply(x1,1,quantile,probs=c(0.25,0.75))查看全部
-
4.1 lapply --可以循環處理列表中的每一個元素 --lappy(參數)：lappy(列表,函數/函數名,其他參數) --總是返回一個列表 x<-list(a=1:10,b=c(11,21,31,41,51)) lapply(x, mean)#平均值 sapply(x,mean) x1<-1:4 lapply(x1,runif)#runif() 產生均勻分布的隨機數 lapply(x1,runif,min=0,max=100) x2<-list(a=matrix(1:6,2,3),b=matrix(4:7,2,2)) lapply(x2, function(m)m[1,])#獲取第一行內容查看全部
-
x<-c(1,NA,2,NA,3) is.na(x) x[!is.na(x)]#獲取非缺失值 #獲取對應位置都不是缺失值的數據 x1<-c(1,NA,2,NA,3) y<-c("a","b",NA,"c",NA) z<-complete.cases(x,y) x[z] y[z]查看全部
-
3.4 列表的子集 --[[]]/$/[[]][]/[[]][[]] x<-list(id=1:4,height=170,gender="male") x[1]#獲取元素名稱和值 x[[1]]#獲取元素的值 x$id#獲取元素的值 x[c(1,3)]#獲取多個元素 使用變量 y<-"id" x[[y]]#==x[["id"]] x1<-list(a=list(1,2,3,4),b=c("Monday","Tuesday")) x1[[1]] x1[[1]][2] x1[[c(1,3)]]#獲取x1列表中第一個元素中第三個值 x1[[c(2,2)]]#獲取x1列表中第二個元素中第二個值 --不完全匹配 l<-list(aqqqa=1:10) l$aqqqa l$a l[["a",exact=FALSE]] l2<-list(aqqqa=1:10,b=1:2,abc=3:5) x$a #NULL x$aq查看全部
-
3.2 矩陣子集 x<-matrix(1:6,nrow=2,ncol=3) x[1,2] x[2,3] x[1,]#整行 x[2,c(1,3)]#第二行第1,3個元素 x[1,2,drop=FALSE] #返回矩陣查看全部
-
基本方法查看全部
-
本章小結查看全部
-
2.8 日期與時間 --日期：Date ----距離 1970-01-01的天數 /date()/Sys.Date() ----weekdays()/months()/quarters() 獲取系統日期 x2<-Sys.Date() 將字符串轉為日期 x3<-as.Date("2016-03-27")#格式為yyyy-mm-dd 獲取日期的星期幾，月份，季度 weekdays(x3) months(x3) quarters(x3) julian(x3)#距離 1970-01-01的天數 x4<-as.Date("2016-05-20") x4-x3 --時間：POSIXct/POSIXlt ----距離1970-01-01的秒數/Sys.time() ----POSIXct:整數，常用于存入數據框 ----POSIlt:列表，還包含星期、年、月、日等信息 POSIXct轉為POSIXlt x<-Sys.time() p<-as.POSIXlt(x) names(unclass(p)) 獲取秒數 p$sec 特定字符串格式轉為日期格式 x1<-"Jan 1, 2015 01:01" strptime(x1,"%B %d, %Y %H:%M")查看全部
舉報
0/150
提交
取消