r - 过滤堆积条形图中的 geom_text 值标签

Question

我想用 ggplot 创建一个堆积条形图，并为其添加(居中)标签:当值太低时，我不想显示标签。

df<-data.frame(x=unlist(strsplit("AAAABBBB","")),
           z=unlist(strsplit("ABCDABCD","")),
           y=c(40,5,30,10,50,60,5, 40))

# this works fine
library(ggplot2)
ggplot(df, aes(x=x, y=y, fill = z)) + geom_bar(stat="identity") + 
   geom_text(data  = df, aes(x=x, y=y, label = y), position = position_stack(vjust=0.5))

但是当我过滤这样的值时(见下文)，它也会改变每个标签的定位。这适用于散点图，但由于定位基于堆叠值，标签显示得太低。

#don't show values 5 or less
ggplot(df, aes(x=x, y=y, fill = z)) + geom_bar(stat="identity") + 
    geom_text(data = df[df$y > 5,], aes(x=x, y=y, label = y), position = 
    position_stack(vjust=0.5)) 

Answer 1

我们可以创建一个值小于或等于 5 的列 'y1' 作为空白( "" )并在 label 中使用它争论

df %>% 
     mutate(y1 = replace(y, y<=5, ""))

p2 <- ggplot(df, aes(x=x, y=y, fill = z)) + 
         geom_bar(stat="identity") + 
         geom_text(data  = df, aes(x=x, y=y, label = y1),
                  position = position_stack(vjust=0.5))
p2

通过与 OP 帖子中的第一个图进行比较来检查位置

p1 <- ggplot(df, aes(x=x, y=y, fill = z)) + 
                  geom_bar(stat="identity") +
                  geom_text(data  = df, aes(x=x, y=y, label = y), 
                      position = position_stack(vjust=0.5))

library(ggpubr)
ggarrange(p1, p2, ncol =2, nrow = 1, labels = c("p1", "p2"))