R語言-生成頻數(shù)表和列聯(lián)表crosstable函數(shù)介紹

更新時間：2021年04月20日 15:13:18 作者：Yann_YU

這篇文章主要介紹了R語言-生成頻數(shù)表和列聯(lián)表crosstable函數(shù)介紹，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧

列聯(lián)表crosstable

列聯(lián)表不僅可以用來做簡單的描述性統(tǒng)計，還可以在機器學習中用來比較識別正確率，F(xiàn)PR，TPR等等數(shù)據(jù)，以便我們比較不同的ML模型 or 調參。

2x2列聯(lián)表一般長下面這樣：

Total Observations in Table:  143 
 
             | test_cancer$diagnosis 
   lda.class |         0 |         1 | Row Total | 
-------------|-----------|-----------|-----------|
           0 |        82 |        11 |        93 | 
             |     0.882 |     0.118 |     0.650 | 
             |     0.988 |     0.183 |           | 
             |     0.573 |     0.077 |           | 
-------------|-----------|-----------|-----------|
           1 |         1 |        49 |        50 | 
             |     0.020 |     0.980 |     0.350 | 
             |     0.012 |     0.817 |           | 
             |     0.007 |     0.343 |           | 
-------------|-----------|-----------|-----------|
Column Total |        83 |        60 |       143 | 
             |     0.580 |     0.420 |           | 
-------------|-----------|-----------|-----------|

創(chuàng)建列聯(lián)表crosstable

推薦使用R中“gmodels”包的CrossTable()函數(shù)來做。

舉例

## 使用knn模型做預測
knn_pred_1 = knn(train_cancer[,2:4], test_cancer[,2:4], train_cancer$diagnosis, k=1)
## 創(chuàng)建列聯(lián)表看預測效果
CrossTable(x = knn_pred_1, y = test_cancer$diagnosis, prop.chisq = FALSE)
>
   Cell Contents
|-------------------------|
|                       N |
|           N / Row Total |
|           N / Col Total |
|         N / Table Total |
|-------------------------|
 
Total Observations in Table:  143 
 
             | test_cancer$diagnosis 
  knn_pred_1 |         0 |         1 | Row Total | 
-------------|-----------|-----------|-----------|
           0 |        77 |         8 |        85 | 
             |     0.906 |     0.094 |     0.594 | 
             |     0.928 |     0.133 |           | 
             |     0.538 |     0.056 |           | 
-------------|-----------|-----------|-----------|
           1 |         6 |        52 |        58 | 
             |     0.103 |     0.897 |     0.406 | 
             |     0.072 |     0.867 |           | 
             |     0.042 |     0.364 |           | 
-------------|-----------|-----------|-----------|
Column Total |        83 |        60 |       143 | 
             |     0.580 |     0.420 |           | 
-------------|-----------|-----------|-----------|

注意事項

在crosstable函數(shù)中，prop.chisq 這個argument默認是true，但實際上大部分使用場景不需要這個卡方概率，所以可以單獨在函數(shù)中設置prop.chisq = FALSE

函數(shù)語法：

CrossTable(x, y, digits=3, max.width = 5, expected=FALSE, prop.r=TRUE, prop.c=TRUE,
           prop.t=TRUE, prop.chisq=TRUE, chisq = FALSE, fisher=FALSE, mcnemar=FALSE,
           resid=FALSE, sresid=FALSE, asresid=FALSE,
           missing.include=FALSE,
           format=c("SAS","SPSS"), dnn = NULL, ...)

參數(shù)說明：

x,y:列聯(lián)表的兩個特征向量

digit:指定結果小數(shù)位數(shù)

prop.r:行比例是否加入

prop.c:列比例是否加入

prop.t:表比例是否加入

prop.chisq:每個單元的卡方值是否加入

chisq:卡方檢驗結果是否加入

頻數(shù)表

頻數(shù)表給出了各個特征值出現(xiàn)的頻數(shù)，下面使用R自帶的數(shù)據(jù)集“CO2”舉例

head(CO2)
#得到“conc”特征的頻數(shù)表
table(CO2$conc)

結果：

95 175 250 350 500 675 1000

12 12 12 12 12 12 12

補充：R--生成各種列聯(lián)表

看代碼吧~

library(vcd)
head(Arthritis)
 
table(Arthritis$Treatment,Arthritis$Improved)
with(Arthritis,table(Treatment,Improved))
mytable <- xtabs(~Treatment+Improved,data = Arthritis)
with(Arthritis,xtabs(~Treatment+Improved,data = Arthritis))
 
margin.table(mytable,2) # sum by row
prop.table(mytable,2)  #proportion by column
prop.table(mytable)  #proportion by total
 
addmargins(mytable)
addmargins(mytable,1)
addmargins(prop.table(mytable,2),1)
  
library(gmodels)
CrossTable(Arthritis$Treatment,Arthritis$Improved) ##SAS format

以上為個人經(jīng)驗，希望能給大家一個參考，也希望大家多多支持腳本之家。如有錯誤或未考慮完全的地方，望不吝賜教。

您可能感興趣的文章:

R語言基本語法知識點
在本篇文章里小編給大家整理的是一篇關于R語言基本語法知識點內容，有興趣的朋友們可以參考學習下。
2021-03-03
R語言繪圖布局實例講解
這篇文章主要介紹了R語言繪圖布局實例講解，文中實例講解的很清晰，有感興趣的同學可以研究下
2021-03-03
R語言實現(xiàn)將1對多數(shù)據(jù)與1對1數(shù)據(jù)互換
這篇文章主要介紹了R語言實現(xiàn)將1對多數(shù)據(jù)與1對1數(shù)據(jù)互換的操作，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧
2021-03-03
R語言實現(xiàn)兩表連接且輸出不重復數(shù)據(jù)
這篇文章主要介紹了R語言實現(xiàn)兩表連接且輸出不重復數(shù)據(jù)的操作，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧
2021-03-03
R語言常用函數(shù)總結梳理(基本對象字符處理?數(shù)學?統(tǒng)計)
這篇文章主要介紹了R語言常用函數(shù)總結梳理(基本對象字符處理?數(shù)學?統(tǒng)計),有需要的朋友可以借鑒參考下,希望能夠有所幫助,祝大家多多進步,早日升職加薪
2023-10-10
R語言中devtools的使用詳解
這篇文章主要介紹了R語言中devtools的使用詳解，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧
2021-04-04
R語言實現(xiàn)將分類變量轉換為啞變量(dummy vairable)
這篇文章主要介紹了R語言實現(xiàn)將分類變量轉換為啞變量(dummy vairable)，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧
2021-04-04
R語言數(shù)據(jù)可視化包ggplot2畫圖之散點圖的基本畫法
散點圖主要用于描述兩個連續(xù)變量之間的關系,通過散點圖發(fā)現(xiàn)變量之間的相關性強度、是否存在線性關系等,下面這篇文章主要給大家介紹了關于R語言數(shù)據(jù)可視化包ggplot2畫圖之散點圖的基本畫法,需要的朋友可以參考下
2022-11-11
R語言數(shù)據(jù)可視化學習之圖形參數(shù)修改詳解
這篇文章主要給大家介紹了關于R語言數(shù)據(jù)可視化學習之圖形參數(shù)修改的相關資料，文中通過示例代碼介紹的非常詳細，對大家的學習或者工作具有一定的參考學習價值，需要的朋友們下面隨著小編來一起學習學習吧
2021-03-03
R語言服務器安裝R包實現(xiàn)過程
這篇文章主要為大家介紹了R語言在服務器安裝R包的實現(xiàn)過程，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進步早日升職加薪
2021-11-11