主页 / coding / 问题 / 78089202
Accepted
Chris Ruehlemann
Asked: 2024-03-02 00:41:44 +0800 CST

将文本放入 ggplot 中的堆积条形图中

  • 772

我很难将文本放置到堆叠条形图的正确位置。具体来说，我想将这些ZipfColl_mean值放入各自堆栈的中间：

library(viridis)
library(hrbrthemes)
library(ggplot2)

adj %>%
  group_by(Struktur2) %>%
  mutate(ZipfColl_mean = round(mean(ZipfColl),2)) %>%
  
ggplot(aes(fill=Struktur2, x=Adjektivsemantik))+ 
  geom_bar(position = "stack", stat = "count") +
  scale_fill_viridis(discrete = T, option = "E", name = "Structure", labels = c("full", "fragment", "topic drop")) +
  geom_text(aes(x = Adjektivsemantik, y = ZipfColl_mean, label = ZipfColl_mean, color = "red"))+
  ggtitle("") +
  facet_grid(rows=vars(Feedbackposition), cols=vars(Referenzstruktur), switch="y") +
  theme_ipsum() +
  xlab("")

在此输入图像描述

如何将这些ZipfColl_mean值放入各自堆栈的中间？

数据：

adj <- structure(list(Struktur2 = structure(c(3L, 1L, 1L, 1L, 1L, 1L, 
                                             1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 1L, 2L, 1L, 2L, 1L, 2L), levels = c("full", 
                                                                                                                 "fragment", "topic_drop"), class = "factor"), Adjektivsemantik = structure(c(2L, 
                                                                                                                                                                                              1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 
                                                                                                                                                                                              2L, 2L, 2L), levels = c("descriptive", "evaluative"), class = "factor"), 
                     Referenzstruktur = structure(c(1L, 2L, 2L, 1L, 1L, 1L, 2L, 
                                                    1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), levels = c("individual", 
                                                                                                                    "proposition"), class = "factor"), Feedbackposition = structure(c(1L, 
                                                                                                                                                                                      1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 
                                                                                                                                                                                      1L, 2L, 1L, 2L), levels = c("other", "feedback"), class = "factor"), 
                     ZipfColl = c(4.43, 4.43, 4.43, 4.43, 4.43, 4.43, 4.43, 4.43, 
                                  4.43, 4.43, 4.43, 5.61, 5.61, 5.61, 5.61, 5.61, 5.61, 5.61, 
                                  5.61, 5.61)), row.names = c(1L, 2L, 3L, 4L, 5L, 7L, 8L, 9L, 
                                                              14L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 24L, 25L, 26L, 27L), class = "data.frame")

1 个回答

  1. Best Answer

    这是一种计算外部计数的方法，也ggplot()使用标签位置的计数：yposition = position_stack(vjust = .5)

    library(viridis)
library(hrbrthemes)
library(ggplot2)
library(dplyr, warn = FALSE)

adj %>%
  mutate(ZipfColl_mean = round(mean(ZipfColl), 2), .by = Struktur2) |>
  summarise(
    ZipfColl_mean = unique(ZipfColl_mean),
    count = n(),
    .by = c(Feedbackposition, Adjektivsemantik, Referenzstruktur, Struktur2)
  ) %>%
  ggplot(aes(Adjektivsemantik, count, fill = Struktur2)) +
  geom_col(position = "stack") +
  scale_fill_viridis(
    discrete = T, option = "E", name = "Structure",
    labels = c("full", "fragment", "topic drop")
  ) +
  geom_text(
    aes(
      x = Adjektivsemantik, y = count,
      label = ZipfColl_mean,
      color = "ZipfColl_mean"
    ),
    position = position_stack(vjust = .5),
    key_glyph = "point"
  ) +
  scale_color_manual(values = "red", labels = NULL) +
  facet_grid(
    rows = vars(Feedbackposition),
    cols = vars(Referenzstruktur), switch = "y"
  ) +
  theme_ipsum() +
  labs(x = NULL, title = NULL, color = "ZipfColl_mean")

    在此输入图像描述

    • 1

相关问题