在 "geom_signif" 函数中找不到对象

Question

我想为绘图的均值差比较添加显着性星号。没有星星的线条，情节有效：

da<-data.frame(group=c("condition1_high","condition1_low","condition2_high","condition2_low"),numb=c(30,25,26,20))

da %>% separate(group, c("A", "B"), remove = F) %>% 
  ggplot(aes(x=A, y=numb, fill = B)) +
  geom_bar(position=position_dodge(), stat="identity") +
  scale_fill_manual(values=rep(c("grey20","grey80"), ceiling(length(da$group)/2))[1:length(da$group)]) +
  geom_text(aes(label=numb), 
            position = position_dodge(width = 0.9), vjust = -0.25) +
  geom_signif(stat="identity",
              data=data.frame(x=c(0.5,1.5), xend=c(1,2),
                              y=c(30, 30), annotation=c("**", "*","***","+")),
              aes(x=x,xend=xend, y=y, yend=y, annotation=annotation))

现在我为我在这个平台上找到的星星添加一些代码：

da %>% separate(group, c("A", "B"), remove = F) %>% 
  ggplot(aes(x=A, y=numb, fill = B)) +
  geom_bar(position=position_dodge(), stat="identity") +
  scale_fill_manual(values=rep(c("grey20","grey80"), ceiling(length(da$group)/2))[1:length(da$group)]) +
  geom_text(aes(label=numb), 
            position = position_dodge(width = 0.9), vjust = -0.25) +
  geom_signif(stat="identity",
              data=data.frame(x=c(0.5,1.5), xend=c(1,2),
                              y=c(30, 30), annotation=c("**", "*")),
              aes(x=x,xend=xend, y=y, yend=y, annotation=annotation))

现在它说对象 B 丢失了。我能做什么？

Answer 1

您需要将 inherit.aes = FALSE 添加到 geom_signif 调用中，否则它将尝试在您定义的新数据框中查找名为 B 的列。这是因为您在对 ggplot 的初始调用中放置了一个 aes 调用。当您执行此操作时，默认情况下所有后续 geom 将继承此调用的美学和数据。如果将新数据传递给 geom，它需要包含所有这些美学的值 or 覆盖美学 or 你需要关闭继承inherit.aes = FALSE

da %>% 
  separate(group, c("A", "B"), remove = FALSE) %>% 
  ggplot(aes(x = A, y = numb, fill = B)) +
  geom_bar(position=position_dodge(), stat = "identity") +
  scale_fill_manual(values = rep(c("grey20", "grey80"),    
                                 ceiling(length(da$group)/2))[1:length(da$group)]) +
  geom_text(aes(label=numb), 
            position = position_dodge(width = 0.9), vjust = -0.25) +
  geom_signif(stat="identity", inherit.aes = FALSE,
              data=data.frame(x = c(0.5, 1.5), xend=c(1, 2),
                              y = c(30, 30), annotation = c("**", "*")),
              aes(x = x, xend = xend, y = y, yend = y, annotation = annotation))

在 "geom_signif" 函数中找不到对象

Object not found in "geom_signif" function

error-handling

visualization

r

ggplot2