R語言的xtabs函數(shù)實(shí)例講解
更新時(shí)間：2021年03月16日 14:48:11 作者：yuanzhoulvpi
這篇文章主要介紹了R語言的xtabs函數(shù)實(shí)例講解，文中講解的很詳細(xì)，有需要的可以參考下
今天在做一個(gè)列聯(lián)表獨(dú)立性檢驗(yàn)的時(shí)候，總是無法處理好要求的數(shù)據(jù)類型，偶然的機(jī)會(huì)，看到了xtabs()函數(shù)，感覺很適合用來做列聯(lián)表，適合將一列數(shù)據(jù)轉(zhuǎn)換成列聯(lián)表。
shifou <- c("yes","yes","no","no")
xinbie <- c("nan","nv","nan","nv")
freq <- c(34,38,28,50)
(exer6_2 <- data.frame(shifou,xinbie,freq))
(count22 <- xtabs(freq~.,data = exer6_2))#這個(gè)點(diǎn)表示shifou + xinbie,這個(gè)和lm()用法差不多
assocstats(count22)
運(yùn)行過程與結(jié)果如下：
> shifou <- c("yes","yes","no","no")#是否逃課
> xinbie <- c("nan","nv","nan","nv")#性別
> freq <- c(34,38,28,50)
> (exer6_2 <- data.frame(shifou,xinbie,freq))#“nan”表示男，“nv”表示女，yes表示逃課，no表示不逃課
shifou xinbie freq
1 yes nan 34
2 yes nv 38
3 no nan 28
4 no nv 50
> (count22 <- xtabs(freq~.,data = exer6_2))#這個(gè)數(shù)據(jù)表示性別與性別是否有關(guān)
xinbie
shifou nan nv
no 28 50
yes 34 38
> assocstats(count22)
X^2 df P(> X^2)
Likelihood Ratio 1.9830 1 0.15908
Pearson 1.9802 1 0.15937<br>#這個(gè)p值為0.15937大于0.05，表示與性別沒有關(guān)系
Phi-Coefficient : 0.115
Contingency Coeff.: 0.114
Cramer's V : 0.115
接下來，創(chuàng)建一個(gè)更加難的數(shù)據(jù)集
(價(jià)格 <- rep(c("10萬以下","10~20萬","20~30萬","30萬以上"),each = 3))
(地區(qū) <- rep(c("東部","中部","西部"),each = 1,times = 4))
(數(shù)量 <- c(20,40,40,50,60,50,30,20,20,40,20,10))
(銷售情況 <- data.frame(價(jià)格,地區(qū),數(shù)量))
(count2 <- xtabs(數(shù)量 ~ (價(jià)格 + 地區(qū)),data = 銷售情況))
運(yùn)算過程：
> (價(jià)格 <- rep(c("10萬以下","10~20萬","20~30萬","30萬以上"),each = 3))
[1] "10萬以下" "10萬以下" "10萬以下" "10~20萬" "10~20萬" "10~20萬" "20~30萬"
[8] "20~30萬" "20~30萬" "30萬以上" "30萬以上" "30萬以上"
> (地區(qū) <- rep(c("東部","中部","西部"),each = 1,times = 4))
[1] "東部" "中部" "西部" "東部" "中部" "西部" "東部" "中部" "西部" "東部" "中部"
[12] "西部"
> (數(shù)量 <- c(20,40,40,50,60,50,30,20,20,40,20,10))
[1] 20 40 40 50 60 50 30 20 20 40 20 10
> (銷售情況 <- data.frame(價(jià)格,地區(qū),數(shù)量))
價(jià)格 地區(qū) 數(shù)量
1 10萬以下 東部 20
2 10萬以下 中部 40
3 10萬以下 西部 40
4 10~20萬 東部 50
5 10~20萬 中部 60
6 10~20萬 西部 50
7 20~30萬 東部 30
8 20~30萬 中部 20
9 20~30萬 西部 20
10 30萬以上 東部 40
11 30萬以上 中部 20
12 30萬以上 西部 10
> (count2 <- xtabs(數(shù)量 ~ (價(jià)格 + 地區(qū)),data = 銷售情況))
地區(qū)
價(jià)格 東部 西部 中部
10~20萬 50 50 60
10萬以下 20 40 40
20~30萬 30 20 20
30萬以上 40 10 20
可以看出這個(gè)count2也構(gòu)成了這個(gè)列聯(lián)表的形式，接下來，使用chisq.test()函數(shù)便可進(jìn)行卡方檢驗(yàn)
> chisq.test(count2) Pearson's Chi-squared test data: count2 X-squared = 29.991, df = 6, p-value = 3.946e-05
到此這篇關(guān)于R語言的xtabs函數(shù)實(shí)例講解的文章就介紹到這了,更多相關(guān)R語言的xtabs函數(shù)內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！
相關(guān)文章
在本篇內(nèi)容里小編給大家整理的是一篇關(guān)于R語言的特點(diǎn)總結(jié)內(nèi)容，有需要的朋友們可以學(xué)習(xí)參考下。2021-03-03
R語言關(guān)于“包”的知識(shí)點(diǎn)總結(jié)
在本篇文章里小編給大家分享的是一篇關(guān)于R語言“包”的知識(shí)點(diǎn)總結(jié)內(nèi)容，有興趣的朋友們可以學(xué)習(xí)下。2021-03-03
這篇文章主要介紹了R語言中向量的加法和乘法運(yùn)算，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2021-04-04
R語言數(shù)據(jù)可視化學(xué)習(xí)之圖形參數(shù)修改詳解
這篇文章主要給大家介紹了關(guān)于R語言數(shù)據(jù)可視化學(xué)習(xí)之圖形參數(shù)修改的相關(guān)資料，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2021-03-03
R語言安裝以及手動(dòng)安裝devtools的詳細(xì)圖文教程
R語言是一個(gè)強(qiáng)大的數(shù)據(jù)分析工具,其強(qiáng)大之處在于有各種各樣的R包幫助其實(shí)現(xiàn)各種各樣的功能,下面這篇文章主要給大家介紹了關(guān)于R語言安裝以及手動(dòng)安裝devtools的相關(guān)資料,需要的朋友可以參考下2022-08-08
R語言中平均值、中位數(shù)和模式知識(shí)點(diǎn)總結(jié)
在本篇文章里小編給大家整理的是一篇關(guān)于R語言中平均值、中位數(shù)和模式知識(shí)點(diǎn)總結(jié)內(nèi)容，有興趣的朋友們跟著學(xué)習(xí)下。2021-05-05
R語言科學(xué)計(jì)數(shù)法介紹:digits和scipen設(shè)置方式
這篇文章主要介紹了R語言科學(xué)計(jì)數(shù)法介紹:digits和scipen設(shè)置方式，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2021-04-04
這篇文章主要介紹了R語言strsplit函數(shù)用法深入詳解，代碼實(shí)例講解的很清晰，有感興趣的同學(xué)可以研究下2021-03-03
這篇文章主要介紹了R語言實(shí)現(xiàn)LASSO回歸的方法，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2021-03-03
這篇文章主要介紹了R語言-summary()函數(shù)的用法解讀，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2021-04-04