99999久久久久久亚洲,欧美人与禽猛交狂配,高清日韩av在线影院,一个人在线高清免费观看,啦啦啦在线视频免费观看www

熱線電話:13121318867

登錄
首頁(yè)精彩閱讀R語(yǔ)言中的vector(向量),array(數(shù)組)總結(jié)
R語(yǔ)言中的vector(向量),array(數(shù)組)總結(jié)
2018-03-14
收藏

R語(yǔ)言中的vector(向量),array(數(shù)組)總結(jié)

對(duì)于那些有一點(diǎn)編程經(jīng)驗(yàn)的人來說,vector,matrix,array,list,data.frame就相當(dāng)于編程語(yǔ)言中的容器,因?yàn)橹皇菍看做數(shù)據(jù)處理工具所以它們的底層是靠什么實(shí)現(xiàn)的,內(nèi)存怎么處理的具體也不要深究。

R語(yǔ)言很奇怪的是它是面向?qū)ο蟮恼Z(yǔ)言,所以經(jīng)常會(huì)調(diào)用系統(tǒng)的方法,而且更奇怪的是總是調(diào)用“謂語(yǔ)”的方法,用起來像是寫句子一樣,記起來真是讓人費(fèi)解。比如is.vector(),read.table(),as.vector()、、

直接開始吧:(由于習(xí)慣,大部分用"="代替"<-")

一、向量vector,

1.是最基本的數(shù)據(jù)容器,里面的數(shù)據(jù)必須是同一類型,先看基本用法:

a<-c(1,2,3,4,5,6,7,8,9)

或者賦值函數(shù)assign,

assign("a",c(1,2,3,4,5,6,7,8,9))

> is.vector(a)
[1] TRUE

> is.matrix(a)

[1] FALSE
> is.array(a)
[1] FALSE
> is.list(a)
[1] FALSE
或者利用隨機(jī)分布函數(shù),rnrom(n,mean,sd),runif(n,min,max)、、、

> b=runif(20,min=1,max=20)
> b
 [1]  2.181016 18.417605  9.748379  2.122849  1.281871  4.099617
 [7] 14.162348 18.034863  7.464664  9.599227 18.973259  1.900773
[13]  8.995223 11.048916 11.667131  3.859275 17.992988  1.089552
[19] 13.490061 12.864029

或者按照一定的步長(zhǎng):

> a=seq(1,20,by=3)
> a
[1]  1  4  7 10 13 16 19

或者重復(fù):

> s=rep(a,times=3)
> s
 [1]  1  4  7 10 13 16 19  1  4  7 10 13 16 19  1  4  7 10 13 16 19

邏輯向量:

> b=a>8;b
[1] FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE

缺失數(shù)據(jù)用大寫NA表示,數(shù)據(jù)不確定用NaN表示,數(shù)據(jù)是無窮用Inf表示(一會(huì)全大寫,一會(huì)大寫加小寫,一會(huì)首字母大寫,真是醉了),判斷是否為空數(shù)據(jù)用函數(shù)is.na(),判斷是否不確定用函數(shù)is.nan(),數(shù)據(jù)是否有限用is.finite(),數(shù)據(jù)是否為無窮用函數(shù)is.infinite():

> z=c(1:3,Na);z
Error: object 'Na' not found
> z=c(1:3,NA);z
[1]  1  2  3 NA

> is.na(z)
[1] FALSE FALSE FALSE  TRUE

將缺失的數(shù)據(jù)賦值為0:

> z[is.na(z)]=0;z
[1] 1 2 3 0

下面將這幾個(gè)有問題的數(shù)據(jù)放在一個(gè)向量中:

> z=c(0/1,0/0,1/0,NA);z
[1]   0 NaN Inf  NA
> is.na(z)
[1] FALSE  TRUE FALSE  TRUE
> is.nan(z)
[1] FALSE  TRUE FALSE FALSE
> is.finite(z)
[1]  TRUE FALSE FALSE FALSE
> is.infinite(z)
[1] FALSE FALSE  TRUE FALSE


2.vector中元素的下標(biāo)引用.

> a=round(runif(9,min=1,max=9))
> a
[1] 3 8 8 8 2 7 3 5 3

可以看見,與容器不同,vector的下標(biāo)是從1開始的:

> a[0]
numeric(0)

> a[1]
[1] 3

選取第2和第3個(gè)數(shù),引用非常方便:
> a[c(2,3)]
[1] 8 8

引用除了第一個(gè)值的所有數(shù),用了減號(hào)"-":
> a[-c[1]]
[1] 8 8 8 2 7 3 5 3

3.vector作為R語(yǔ)言工具,需要了解vector的各種運(yùn)算。

①+-×÷,其他運(yùn)算如log,exp,cos,sqrt等也相似。其意義是對(duì)應(yīng)的向量的每個(gè)元素分別做運(yùn)算,

> x=c(1,2,3)
> y=c(2,3,4)
> z=2*x+y-1
> z
[1] 3 6 9

> x^2
[1] 1 4 9

> cos(x)
[1]  0.5403023 -0.4161468 -0.9899925

> sqrt(x)
[1] 1.000000 1.414214 1.732051

②與向量有關(guān)的函數(shù),min(x),max(x), sum(x),range(x),太簡(jiǎn)單就不在細(xì)說,需要強(qiáng)調(diào)的是which.min(x),這個(gè)還是蠻重要的。

> a=rnorm(10,mean=5,sd=2)
> a
 [1] 5.914559 2.604346 5.342572 9.006863 6.547221 7.519781 7.330211
 [8] 8.322956 6.875491 5.883626
> which.max(a)
[1] 4
> which.min(a)
[1] 2
> a[which.max(a)]
[1] 9.006863
> a[which.min(a)]
[1] 2.604346

其他的如sd(a),var(a),length(a),sort(a),分別是求方差,標(biāo)準(zhǔn)差,長(zhǎng)度,排序。與python不同R語(yǔ)言的vector所有操作都不會(huì)改變vector本身的值。

4.由于R是一種基于對(duì)象的語(yǔ)言,R的對(duì)象分為單純對(duì)象和復(fù)合對(duì)象兩種,單純對(duì)象的所有元素都是同一數(shù)據(jù)類型(數(shù)值、字符串),元素不再是對(duì)象。復(fù)合對(duì)象的元素可是是不同的類型,每個(gè)元素是一個(gè)對(duì)象。

R的對(duì)象都有兩個(gè)基本的屬性:mode和length,向量的類型為:logical(邏輯型)、numeric(數(shù)值型)、complex(復(fù)數(shù)型)、character(字符型)。

> b=c(0:9)
> b
 [1] 0 1 2 3 4 5 6 7 8 9
> is.numeric(b)
[1] TRUE
> is.character(b)
[1] FALSE
> c=as.character(b)
> c
 [1] "0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
> is.numeric(c)
[1] FALSE
> is.character(c)
[1] TRUE


二、數(shù)組array:多維的同一類型集合(字符型、數(shù)值型、邏輯型、復(fù)數(shù)型),R可以很容易地生成和處理數(shù)組,特別是矩陣matrix是一個(gè)二維數(shù)組。


1.可以通過定義dim(維度)將向量變成matrix。

a=c(1,3,4,5,6,7,8,9,3)
> dim(a)=c(3,3)
> a
     [,1] [,2] [,3]
[1,]    1    5    8
[2,]    3    6    9
[3,]    4    7    3

或者:

> a=array(a,dim=c(3,3))
> a
     [,1] [,2] [,3]
[1,]    1    5    8
[2,]    3    6    9
[3,]    4    7    3

或者:

> a=matrix(a,nrow=3,ncol=3);a
     [,1] [,2] [,3]
[1,]    1    5    8
[2,]    3    6    9
[3,]    4    7    3

> is.vector(a)
[1] FALSE
> is.matrix(a)
[1] TRUE
> is.array(a)
[1] TRUE

> is.list(a)
[1] FALSE

可以發(fā)現(xiàn),a已經(jīng)通過定義維度將其變成了一個(gè)矩陣(matrix)和數(shù)組(array),下面將講matrix其實(shí)是一個(gè)二維的array。

2.下標(biāo)引用

> a=c(1:24)
> dim(a)=c(2,3,4)
> a[2,1,2]
[1] 8
> a[1,2:3,2:3]
     [,1] [,2]
[1,]    9   15
[2,]   11   17
> a[1, , ]
     [,1] [,2] [,3] [,4]
[1,]    1    7   13   19
[2,]    3    9   15   21
[3,]    5   11   17   23


數(shù)據(jù)分析咨詢請(qǐng)掃描二維碼

若不方便掃碼,搜微信號(hào):CDAshujufenxi

數(shù)據(jù)分析師資訊
更多

OK
客服在線
立即咨詢
客服在線
立即咨詢
') } function initGt() { var handler = function (captchaObj) { captchaObj.appendTo('#captcha'); captchaObj.onReady(function () { $("#wait").hide(); }).onSuccess(function(){ $('.getcheckcode').removeClass('dis'); $('.getcheckcode').trigger('click'); }); window.captchaObj = captchaObj; }; $('#captcha').show(); $.ajax({ url: "/login/gtstart?t=" + (new Date()).getTime(), // 加隨機(jī)數(shù)防止緩存 type: "get", dataType: "json", success: function (data) { $('#text').hide(); $('#wait').show(); // 調(diào)用 initGeetest 進(jìn)行初始化 // 參數(shù)1:配置參數(shù) // 參數(shù)2:回調(diào),回調(diào)的第一個(gè)參數(shù)驗(yàn)證碼對(duì)象,之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個(gè)配置參數(shù)為必須,不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺(tái)檢測(cè)極驗(yàn)服務(wù)器是否宕機(jī) new_captcha: data.new_captcha, // 用于宕機(jī)時(shí)表示是新驗(yàn)證碼的宕機(jī) product: "float", // 產(chǎn)品形式,包括:float,popup width: "280px", https: true // 更多配置參數(shù)說明請(qǐng)參見:http://docs.geetest.com/install/client/web-front/ }, handler); } }); } function codeCutdown() { if(_wait == 0){ //倒計(jì)時(shí)完成 $(".getcheckcode").removeClass('dis').html("重新獲取"); }else{ $(".getcheckcode").addClass('dis').html("重新獲取("+_wait+"s)"); _wait--; setTimeout(function () { codeCutdown(); },1000); } } function inputValidate(ele,telInput) { var oInput = ele; var inputVal = oInput.val(); var oType = ele.attr('data-type'); var oEtag = $('#etag').val(); var oErr = oInput.closest('.form_box').next('.err_txt'); var empTxt = '請(qǐng)輸入'+oInput.attr('placeholder')+'!'; var errTxt = '請(qǐng)輸入正確的'+oInput.attr('placeholder')+'!'; var pattern; if(inputVal==""){ if(!telInput){ errFun(oErr,empTxt); } return false; }else { switch (oType){ case 'login_mobile': pattern = /^1[3456789]\d{9}$/; if(inputVal.length==11) { $.ajax({ url: '/login/checkmobile', type: "post", dataType: "json", data: { mobile: inputVal, etag: oEtag, page_ur: window.location.href, page_referer: document.referrer }, success: function (data) { } }); } break; case 'login_yzm': pattern = /^\d{6}$/; break; } if(oType=='login_mobile'){ } if(!!validateFun(pattern,inputVal)){ errFun(oErr,'') if(telInput){ $('.getcheckcode').removeClass('dis'); } }else { if(!telInput) { errFun(oErr, errTxt); }else { $('.getcheckcode').addClass('dis'); } return false; } } return true; } function errFun(obj,msg) { obj.html(msg); if(msg==''){ $('.login_submit').removeClass('dis'); }else { $('.login_submit').addClass('dis'); } } function validateFun(pat,val) { return pat.test(val); }