编辑 emmeans 的箭头图的刻面文本

Posted

技术标签:

【中文标题】编辑 emmeans 的箭头图的刻面文本【英文标题】:Edit emmeans' arrow plot's facet text 【发布时间】:2022-01-21 04:32:06 【问题描述】:

我正在尝试使用 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,但没有成功。

【问题讨论】:

object conc 在哪里可以找到它? @manro,它是pigs 数据集中包含在emmeans 中的一列 【参考方案1】:

在我看来,在许多需要自定义绘图的情况下,基本上从头开始会更直接:

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

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

【讨论】:

【参考方案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)

【讨论】:

【参考方案3】:

你快到了。 (1)你需要一个命名向量(我认为),而不是一个列表; (2) 列表的名称应该匹配 faceting 变量的元素,而不是已经标记的值(即条形标签)。

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)

【讨论】:

你超过了我_(+1) ;) 我正在寻找如何翻转 facet_wrap 并尝试添加答案。 您的意思是用ncol=1nrow=1 或其他东西指定方向...? 我想实现他的输出(如问题)。 ncol/nrow 的外观不同。 我做到了。一分钟!

以上是关于编辑 emmeans 的箭头图的刻面文本的主要内容,如果未能解决你的问题,请参考以下文章

R中的刻面或分组相关和相关图

如何加快编辑文本的左右箭头键? [关闭]

如何修改 facet_wrap 条的宽度?

UML类图的箭头含义

UML类图的箭头含义

在 DataGridView 中编辑一个 TextBox 单元格,就像它是一个普通的 TextBox 一样(按下箭头时不会跳跃)