首先,篩選出需要的列:
data <- data2[,which(colnames(data2) %in% c("產品分類", "期數", "逾期月數"))]
產品分類 | 期數 | 逾期月數 |
---|---|---|
委託貸款 | 24 | 1 |
委託貸款 | 36 | 1 |
擔保貸款 | 24 | 2 |
委託貸款 | 24 | 2 |
信用貸款 | 36 | 4 |
擔保貸款 | 24 | 3 |
信用貸款 | 24 | 1 |
委託貸款 | 36 | 3 |
擔保貸款 | 24 | 2 |
現在希望得到每種產品種類在不同期數時,逾期月數的佔比,使用table函數:
#freq <- table(data)
freq1 <- table(data[which(data$逾期月數 == 1),])
如果希望算出的頻數參與後續的計算,那麼需要把table格式的數據轉化成本人比較熟悉的數據框格式:
table1 <- as.data.frame(matrix(freq1[1:length(freq1)],nrow = length(row.names(freq1)), ncol = length(colnames(freq1))))
row.names(table1) <- row.names(freq1)
colnames(table1) <- colnames(freq1)
如果希望算出頻率,而不是頻數的話,需要用到函數prop.table:
table2 <- prop.table(freq1)
函數的參數1代表行,2代表列。