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

熱線電話：13121318867

登錄
首頁精彩閱讀R語言—日常隨筆
R語言—日常隨筆
2017-07-07
收藏

R語言—日常隨筆

1.字符處理函數(shù):paste()
　需求：將字符向量中的字符串，用逗號隔開，合并為一句話。
> ##字符向量
> ls_1
[1] "天津" "上海" "安徽" "福建" "四川" "重慶" "陜西" "青海" "新疆"
> ##用逗號隔開字符串，并合并為一句話
> paste(ls_1, sep = "",collapse=",")
[1] "天津,上海,安徽,福建,四川,重慶,陜西,青海,新疆"
2.在數(shù)據(jù)整合過程中，數(shù)字轉(zhuǎn)換為帶百分號（%）的形式，使用的方法。
> paste(20.21,"%",sep="")
[1] "20.21%"
可以通過上面的方式實(shí)現(xiàn)將數(shù)字帶上%號，但數(shù)字也就變成了字符串。
3.如果表格結(jié)構(gòu)為三列，想根據(jù)其中兩列對第三列數(shù)字進(jìn)行匯總?？刹捎孟旅娣椒ā?br /> > ##生成案例數(shù)據(jù)
> names<-c("a","b","b","c","c")
> sex<-c("男","女","女","男","男")
> score<-c(1.56,1.78,1.82,1.32,1.21)
> man<-data.frame(names,sex,score)
> ##查看數(shù)據(jù)結(jié)構(gòu)
> man
names sex score
1 a 男 1.56
2 b 女 1.78
3 b 女 1.82
4 c 男 1.32
5 c 男 1.21
> ##根據(jù)姓名與性別匯總成績
> aggregate(man$score~man$names+man$sex,man,mean)
man$names man$sex man$score
1 a 男 1.560
2 c 男 1.265
3 b 女 1.800
4.字符串去空格
##將sd中的空格去除
> sd<-("as db ")
> gsub(" ","",sd)
[1] "asdb"
注：sub與gsub的區(qū)別在于sub只替換第一次發(fā)現(xiàn)的字符，而gsub是不計(jì)匹配到的次數(shù)，發(fā)現(xiàn)符合匹配都會被替換。

5.單列去重（unique）
> ##創(chuàng)造案例數(shù)據(jù)
> x <- c(3:5, 11:8, 8 + 0:5)
> ##查看數(shù)據(jù)樣式
> x
 [1]  3  4  5 11 10  9  8  8  9 10 11 12 13
> ##查看去重后效果
> unique(x)
[1]  3  4  5 11 10  9  8 12 13

2.ifelse語句返回值的特殊性
　　正常的ifelse語句格式為ifelse（判斷條件，TRUE時執(zhí)行，F(xiàn)ALSE時執(zhí)行）
　學(xué)過編程語言的人不難理解，但在R中容易被誤導(dǎo)。今天我遇到了一個情況。需求是判斷一個字符向量的長度，如果大于0，返回向量所有內(nèi)容，否則輸出"沒有"兩個字。結(jié)果卻只輸出了1個元素。
代碼如下：
> ##可以看出向量有值
> ls_1
[1] "天津" "上海" "安徽" "福建" "四川" "重慶" "陜西" "青海" "新疆"
> ##向量內(nèi)有9個元素
> length(ls_1)
[1] 9
> ##進(jìn)行判斷
> ifelse(length(ls_1),ls_1,"沒有")
[1] "天津"
> ##結(jié)果只顯示了第一個元素，后來得知，判斷條件有幾個元素，就會返回ls_1向量的幾個元素
> ##如果我想每次都全部現(xiàn)實(shí),可以這樣寫
> ifelse(is.na(ls_1),"沒有",ls_1)
[1] "天津" "上海" "安徽" "福建" "四川" "重慶" "陜西" "青海" "新疆"
總結(jié)：R語言的if判斷語句，雖然大部分情況都是和其他編程語言一樣使用，但在返回內(nèi)容包含多個值時，需要注意返回結(jié)果是否正確。

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

若不方便掃碼，搜微信號：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)的第一個參數(shù)驗(yàn)證碼對象，之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個配置參數(shù)為必須，不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺檢測極驗(yàn)服務(wù)器是否宕機(jī) new_captcha: data.new_captcha, // 用于宕機(jī)時表示是新驗(yàn)證碼的宕機(jī) product: "float", // 產(chǎn)品形式，包括：float，popup width: "280px", https: true // 更多配置參數(shù)說明請參見：http://docs.geetest.com/install/client/web-front/ }, handler); } }); } function codeCutdown() { if(_wait == 0){ //倒計(jì)時完成 $(".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 = '請輸入'+oInput.attr('placeholder')+'！'; var errTxt = '請輸入正確的'+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); }