使用 Unicode 字符在马赛克图中显示数学运算符时出错答案

【问题标题】：Error when using Unicode characters to display mathematical operators in a mosaic plot使用 Unicode 字符在马赛克图中显示数学运算符时出错
【发布时间】：2018-02-24 16:24:27
【问题描述】：

例如，这是有效的：

library("vcd")
library("vcdExtra")
ppp1 <- Arthritis[,-1]
ppp1 <- ppp1 [,-3]
colnames(ppp1)[1] <- "Dose"
colnames(ppp1)[3] <- "Symptoms"
ppp1$Symptoms <- ordered(ppp1$Symptoms,
levels = c("None", "Some", "Marked"),
labels = c(">2", "1-2", "<1"))
ppp1$Dose <- ordered(ppp1$Dose,
levels = c("Placebo","Treated"),
labels = c("<= 1", ">=2"))
tab1 <- xtabs(~Symptoms+Sex+Dose, data=ppp1)
mosaic(tab1)

但这会产生错误：

ppp2<- Arthritis[,-1]
ppp2 <- ppp2 [,-3]
colnames(ppp2)[1] <- "Dose"
colnames(ppp2)[3] <- "Symptoms"
ppp2$Symptoms <- ordered(ppp2$Symptoms,
levels = c("None", "Some", "Marked"),
labels = c(">2", "1-2", "<1"))
ppp2$Dose <- ordered(ppp2$Dose,
levels = c("Placebo","Treated"),
labels = c("\u2264 1", "\u2265 2"))
tab2 <- xtabs(~Symptoms+Sex+Dose, data=ppp2)
mosaic(tab2)

grid.Call.graphics 中的错误（C_downviewport，name$name，strict）：
未找到视口 'cell:Symptoms=

任何想法都将不胜感激。

【问题讨论】：

标签： r mosaic-plot

【解决方案1】：

这里是基于包ggmosaic的解决方案。
重要提示：ggmosaic 可以与 ggplot2 的 CRAN 版本一起正常工作，可以使用 install.packages("ggplot2") 进行安装

library(vcd)
library(vcdExtra)

ppp2 <- Arthritis[,-c(1,4)]
names(ppp2) <- c("Dose", "Sex", "Symptoms")
ppp2$Symptoms <- ordered(ppp2$Symptoms, levels=c("None","Some","Marked"),
                                        labels=c(">2", "1-2", "<1"))
ppp2$Dose <- ordered(ppp2$Dose, levels = c("Placebo","Treated"),
                                labels = c("<= 1", ">= 2"))

# Reverse the order of levels for Dose and Symptoms
ppp2$Symptoms <- factor(ppp2$Symptoms, levels=rev(levels(ppp2$Symptoms)), order=T)
ppp2$Dose <- factor(ppp2$Dose, levels=rev(levels(ppp2$Dose)), order=T)

# Plot mosaic using geom_mosaic from ggmosaic
library(ggplot2)
p <- ggplot(data=ppp2) +
  geom_mosaic(aes(x=product(Dose, Sex, Symptoms), fill=Sex), offset=.03) +
  coord_flip() +  xlab("Symptoms; Dose")

# Get grobs
gt <- ggplot_gtable(ggplot_build(p))
gt$layout$clip[gt$layout$name == "panel"] <- "off"

# Modify ticks labels on y-axis
gt$grobs[[3]]$children[[2]]$grobs[[1]]$children[[1]]$label <- 
c("\u2265 2; <1", "\u2264 1; <1",
  "\u2265 2; 1-2", "\u2264 1; 1-2",
  "\u2265 2; >2", "\u2264 1; >2")

# Plot the mosaic plot
library(grid)
grid.draw(gt)

【讨论】：