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

熱線電話：13121318867

登錄
首頁精彩閱讀R語言案例分析：多元數(shù)據(jù)的基本統(tǒng)計(jì)分析
R語言案例分析：多元數(shù)據(jù)的基本統(tǒng)計(jì)分析
2017-02-22
收藏

R語言案例分析：多元數(shù)據(jù)的基本統(tǒng)計(jì)分析

我們利用該數(shù)據(jù)集中的Case1來完成下面的R語言操作：

 

> options(digits = 4) #輸出結(jié)果位數(shù)
> par(mar=c(4, 4, 2, 1) + 0.1, cex=0.8) # 圖形修飾
> case1 <- read.csv("clipboard", header=T, sep = "\t") #復(fù)制表中的數(shù)據(jù)，直接創(chuàng)建case1
> head(case1)

地區(qū) 性別 教育程度   觀點(diǎn) 年齡 月收入 月支出
1    A   女       中 不支持   55   2299   1423
2    A   女       低 不支持   39   3378   2022
3    A   女       中   支持   33   3460   1868
4    B   男       高  支持   41   4564   1918
5    B   女       高 不支持   55   3206   1906
6    A   女       中 不支持   48   4043   2233
> summary(case1)

地區(qū)    性別     教育程度     觀點(diǎn)     年齡          月收入         月支出    
 A:204   男:603   低:319   不支持:628   Min.   : 6.0   Min.   : 637    Min.   : 797  
 B:401   女:597   高:303   支持  :568  1st Qu.:34.0    1st Qu.:2388     1st Qu.:1722  
 C:384          中:578   NA's  : 4   Median :40.0    Median :2978     Median :1993  
 D:211                          Mean   :40.1   Mean   :3006    Mean   :1997  
                              3rd Qu.:47.0    3rd Qu.:3624     3rd Qu.:2262  
                              Max.   :72.0   Max.   :6239    Max.   :3385
# 定性分析
> attach(case1) #綁定數(shù)據(jù)
> T1 <- table(地區(qū))> T1

地區(qū)
A   B   C   D
204 401 384 211
> barplot(T1) #繪制條形圖

# 定量分析 > f <- hist(月收入) #直方圖

# 定性定量分析 > boxplot(月收入~性別) #箱線圖

 

> t.test(月收入~性別) #t檢驗(yàn)
Welch Two Sample t-test

data:  月收入 by 性別
t = 0.51, df = 1200, p-value = 0.6
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -75.43 128.49
sample estimates:
mean in group 男 mean in group 女
         3019         2993
# 接受男女的月收入無顯著差異的假設(shè)（p>0.5）

# 二維列聯(lián)表分析
> T2 <- table(性別, 觀點(diǎn))
> T2
     觀點(diǎn)
性別 不支持 支持
  男    319  282
  女    309  286
> barplot(T2, beside = TRUE) # 條形圖

 

> barplot(T2, beside = F) # 條形圖

 

# beside=T表示繪制分組條形圖，beside=F表示繪制堆疊條形圖

# 多維列聯(lián)表分析
> T3 <- ftable(性別, 教育程度, 觀點(diǎn)) # 創(chuàng)建一個(gè)緊湊的"平鋪"式列聯(lián)表
> T3
              觀點(diǎn)     不支持 支持
性別 教育程度                 
男   低                81   88
    高                78   66
    中                 160  128
女   低                82   68
    高                86   72
    中                 141  146
> barplot(T3, beside = TRUE, col = 3:4) #條形圖

 

> T4 <- ftable(教育程度, 性別, 觀點(diǎn))
> T4
                       觀點(diǎn) 不支持 支持
教育程度   性別                 
低       男           81   88
        女           82   68
高       男           78   66
        女           86   72
中       男           160  128
        女           141  146
> barplot(T4, beside = TRUE, col = 3:4) #條形圖

> detach(case1) #解除綁定

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

若不方便掃碼，搜微信號(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)檢測極驗(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ù)說明請參見：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 = '請輸入'+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); }