`fourfoldplot` 不能正确显示大小和颜色以及列标签中的数字
`fourfoldplot` not displaying size and colors correctly with numbers in column labels
如果我使用示例 table，就像这样：
ctable <- as.table(matrix(c(42, 6, 8, 28), nrow = 2, byrow = TRUE))
并用 fourfoldplot(ctable) 绘制，我看一切都很好：
但是，如果我尝试使用我的 table，它不起作用：
在终端上打印我的 table，唯一的区别是列的标签：
pred
1 2
1 78 9
2 37 6
有没有办法用数字标签绘图？还是有其他错误？
你的图是正确的，这些环是优势比的置信环，所以如果你观察到的计数与你的预期计数非常相似，那么这些环就会相互接触。这是查看它的一种方法，我做了相同的四重图并用预期计数（来自 chisq.test）标记每个象限。如果低于预期，则为绿松石色，超过预期为红色：
plot_w_chisq = function(i){
fourfoldplot(i)
csq = chisq.test(i)
expected=round(c(csq$expected))
obs=c(i)
cols = ifelse(expected/obs>1,"turquoise","brown")
text(x=c(-0.8,-0.8,0.8,0.8),y=c(0.8,-0.8,0.8,-0.8),label=expected,col=cols)
}
plot_w_chisq(ctable)
使用你的例子：
ntable = structure(c(78, 37, 9, 6), .Dim = c(2L, 2L), .Dimnames = list(
c("1", "2"), c("1", "2")), class = "table")
plot_w_chisq(ntable)
你可以看到观察到的与你观察到的并没有太大的偏差，因此是情节。
如果我使用示例 table，就像这样：
ctable <- as.table(matrix(c(42, 6, 8, 28), nrow = 2, byrow = TRUE))
并用 fourfoldplot(ctable) 绘制，我看一切都很好：
但是，如果我尝试使用我的 table，它不起作用：
在终端上打印我的 table，唯一的区别是列的标签：
pred
1 2
1 78 9
2 37 6
有没有办法用数字标签绘图？还是有其他错误？
你的图是正确的，这些环是优势比的置信环，所以如果你观察到的计数与你的预期计数非常相似，那么这些环就会相互接触。这是查看它的一种方法，我做了相同的四重图并用预期计数（来自 chisq.test）标记每个象限。如果低于预期，则为绿松石色，超过预期为红色：
plot_w_chisq = function(i){
fourfoldplot(i)
csq = chisq.test(i)
expected=round(c(csq$expected))
obs=c(i)
cols = ifelse(expected/obs>1,"turquoise","brown")
text(x=c(-0.8,-0.8,0.8,0.8),y=c(0.8,-0.8,0.8,-0.8),label=expected,col=cols)
}
plot_w_chisq(ctable)
使用你的例子：
ntable = structure(c(78, 37, 9, 6), .Dim = c(2L, 2L), .Dimnames = list(
c("1", "2"), c("1", "2")), class = "table")
plot_w_chisq(ntable)
你可以看到观察到的与你观察到的并没有太大的偏差，因此是情节。