r - 编辑 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

你也可以尝试这个:

#自定义标签

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)