编辑 emmeans 箭头图的分面文本

Question

我正在尝试使用 ggplot2 的语法来编辑由 emmean 的箭头图生成的分面标签文本以覆盖默认值。

pigs.lm <- lm(log(conc) ~ source + as.factor(percent),
 data = pigs)
    
pigs.plot <- plot(emmeans(pigs.lm , specs = "percent", by="source"), comparison = T)

protein_names <- list('source: fish'="Source: Fish",
                      'source: soy'="Source: Soybean",
                      'source: skim'="Source: Skim milk")

我在这一步出错了。我该如何解决？

pigs.plot + facet_wrap(~ source, labeller = protein_names)

Error in cbind(labels = list(), list(`{`, if (!is.null(.rows) || !is.null(.cols)) { :  number of rows of matrices must match (see arg 2)

我也试过 facet_grid，但没有成功。

Answer 1

你快到了。（1）你需要一个命名向量（我认为），而不是一个列表； (2) 列表的名称应该匹配分面变量的元素，而不是已经标记的值（即条带标签）。

pp <- unlist(protein_names)
names(pp) <- gsub("source: ","", names(pp))
pigs.plot + facet_wrap(~ source, labeller = labeller(source = pp), ncol = 1)

您也可以首先通过以下方式正确构建标签：

capwords <- function(x) gsub("^([a-z])", "\U\1", x, perl=TRUE)
s <- levels(pigs$source)
protein_names <- setNames(sprintf("Source: %s", capwords(s)), s)

Answer 2

你也可以试试这个：

#自定义标签

custom_labels <- as_labeller(function(x){
     return(paste0("Source: ", c("Fish", "Soybean", "Skim milk")))
})

#制作剧情

pigs.plot + facet_wrap(~ source, labeller = custom_labels, strip.position = "right", ncol = 1)

Answer 3

在我看来，在许多需要自定义绘图的情况下，基本上从头开始更简单：

plotdat <- plot(emmeans(...), comp = TRUE, plotit = FALSE)

现在您有了一个数据框，其中包含构建绘图所需的每个值。所以现在以您喜欢的方式绘制此信息，也许首先添加或修改 plotdat 中的列。

编辑 emmeans 箭头图的分面文本

Edit emmeans' arrow plot's facet text

r

ggplot2

lm

emmeans