在R中为马赛克图中的每个字段着色

mosaictable <- matrix (c(1/4*2/3, 3/4*2/3, 1/4*1/3, 3/4*1/3), ncol = 2)
rownames(mosaictable) <- c ("Gelb", "Nicht gelb")
colnames(mosaictable) <- c ("Gelb", "Nicht gelb")
mosaicplot((mosaictable), sub = "1. Zug", ylab = "2. Zug", color = c("gray60", "black", "white", "white"), las = 1, main = "Einheitsquadrat")

library(vcd)
mosaic((mosaictable), 
       sub = "1. Zug", ylab = "2. Zug", 
       gp = gpar(fill = matrix(c("gray60", "black", "white", "white"), ncol = 2)), 
       las = 1, main = "Einheitsquadrat")

R相关问答推荐

在值和NA的行顺序中寻找中断模式

从gtsummary包中使用tBL_strata()和tBL_summary()时删除变量标签

ggplot2中的X轴显示数值，单位为百，而不是十

如何直接从Fortran到R的数组大小？

如何将旋转后的NetCDF转换回正常的纬度/经度网格，并使用R？

在R中无法读入具有Readxl和lApply的数据集

根据日期从参考帧中创建不同的帧

使用范围和单个数字将数字与字符串进行比较

条形图顶部与其错误条形图不对齐

当每个变量值只能 Select 一次时，如何从数据框中 Select 两个变量的组合？

错误包arrowR：READ_PARQUET/OPEN_DATASET&QOT；无法反序列化SARIFT：TProtocolException：超出大小限制&Quot；

使用ifElse语句在ggploy中设置aes y值

R仅当存在列时才发生变异

在使用SliderInput In Shiny(R)设置输入数据的子集时，保留一些情节痕迹

使用显式二元谓词子集化sfc对象时出错

如何计算多个变量的百分比与总和的百分比？

动态统计函数在ShinyApp内部更改

如何准确地指出Read_delim所面临的问题？

使用相对风险回归计算RR

根据列和行的不同组合 Select 各种单元格