交叉表 plot 與 R 中的數字

Question

我想在交叉表 plot 上添加每個組合的頻率數。

例如，以mtcars為例：

data("mtcars")
table(mtcars$vs, mtcars$am)

我們有$vs和$am列之間的每個組合的數量。 如果我直接 plot 這個，我得到 4 個矩形，其大小根據頻率數而變化：

plot(table(mtcars$vs, mtcars$am), main = "Cross tabulation plot",
     xlab = "Engine (vs)", ylab = "Transmission (am)")

是否可以以優雅的方式在相應的矩形內打印這些頻率數字？

Answer 1

通過這種方式，您可以在每個方格中顯示一個數字。 基本上這個想法是計算數字的 position 以便它們適合正方形的中心。

tbl <- table(mtcars$vs, mtcars$am)
prpX <- prop.table(table(mtcars$vs))
prpY <- prop.table(table(mtcars$vs, mtcars$am), margin = 1)

plot(tbl, main = "Cross tabulation plot",
     xlab = "Engine (vs)", ylab = "Transmission (am)")
text(prpX/2 * c(1,-1) + 0:1,
     prpY/2 * c(-1,-1,1,1) + c(1,1,0,0),
     tbl)