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

熱線電話：13121318867

登錄
首頁精彩閱讀R語言做數(shù)據(jù)分析(5)?——數(shù)據(jù)分析師
R語言做數(shù)據(jù)分析(5)?——數(shù)據(jù)分析師
2014-11-13
收藏


R語言做數(shù)據(jù)分析(5)——數(shù)據(jù)分析師



  前面幾篇文章對R語言、R包以及R向量與矩陣等對象做了簡單介紹，本篇繼續(xù)介紹R數(shù)據(jù)框的相關(guān)內(nèi)容。 

數(shù)據(jù)框的創(chuàng)建

通過data.frame函數(shù)來創(chuàng)建數(shù)據(jù)框，該函數(shù)包含的主要參數(shù)為:

data.frame(..., row.names = NULL, check.rows = FALSE, check.names = TRUE,

           stringsAsFactors = default.stringsAsFactors())

創(chuàng)建一個數(shù)據(jù)框

Demo_1<-data.frame(name=c('lucy','alice','lei'),

                   heigh=c(178,156,188),

                   sex=c('F','F','M'),

                   score=c(200,210,198))

#包括一個缺少值的數(shù)據(jù)框

Demo_2<-data.frame(name=c('lucy','alice','lei'),

                   heigh=c(178,156,188),

                   sex=c('F','F',NA),

                   score=c(200,210,198),

stringsAsFactors =F)

默認(rèn)情況下，name與sex都是factor類型，如果要將某轉(zhuǎn)化成字符類型，則使用選項(xiàng)：

stringsAsFactors =F
數(shù)據(jù)框特別點(diǎn)

1、可以包含不同類型的變量；而在矩陣中只能是同一種類型，例如：不能出現(xiàn)字符與數(shù)值二種類型；所以可以把數(shù)據(jù)框理解為各列可為不同類型的向量組合。

2、各列的長度要求一致。如果長度不一，則會報錯。例如：

3、如果你對數(shù)據(jù)庫比較熟悉，你可以把數(shù)據(jù)框理解為數(shù)據(jù)庫中的表。
數(shù)據(jù)框基本操作

1、查看數(shù)據(jù)框信息

#查看類型
class(Demo_1)
#查看某列的類型
class(Demo_1$sex)
#查看數(shù)據(jù)框長度
length(Demo_1)
#數(shù)據(jù)框各項(xiàng)名稱
names(Demo_1)
#數(shù)據(jù)框信息總結(jié),對字符類/因子類數(shù)據(jù)，給出相應(yīng)的頻數(shù)統(tǒng)計；給數(shù)值型數(shù)據(jù)給出5個主要的指標(biāo)。
summary(Demo_1)
#對數(shù)據(jù)框進(jìn)行去重
unique(Demo_1)
#取數(shù)據(jù)框中重復(fù)的行
Demo_1[duplicated(Demo_1),]

2、取數(shù)據(jù)框中的某個元素

Demo_1[i,j]指第i行第j列的數(shù)據(jù)；

3、取數(shù)據(jù)框中一列與多列

#取某列，可以通過列標(biāo)或者名稱
Demo_1$sex
Demo_1[,3]
#取多行，例如取1，2，4列
Demo_1[,-3]
Demo_1[,c(1,2,4)]

4、取數(shù)據(jù)框中的一行與多行

#取某行，可以通過行標(biāo)或者名稱,例如：取數(shù)據(jù)框的第一行
Demo_1[1,]
#取多行，例如：取數(shù)據(jù)框的第一與第二行

5、判斷數(shù)據(jù)框各行是否完整

complete.cases(Demo_2)

#選擇非缺失值的數(shù)據(jù)

http://www.3lll3.cn/

Demo_1[complete.cases(Demo_2),]

6、增加列

#給Demo_1增加一列
Demo_1$score2<-c(12,13,23)
Demo_1<-cbind(Demo_1,score2=c(12,13,23))

7、增加行

#合并某二個數(shù)據(jù)框的二列
Demo_3<-rbind(Demo_1[,c(1,2)], Demo_2[,c(1,2)])


數(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){ //倒計時完成 $(".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); }