Início / coding / Perguntas / 78089202
Accepted
Chris Ruehlemann
Asked: 2024-03-02 00:41:44 +0800 CST

Colocando texto em gráficos de barras empilhadas no ggplot

  • 772

Tenho dificuldade em colocar o texto nas posições corretas de um gráfico de barras empilhado. Especificamente, quero colocar os ZipfColl_meanvalores no meio de suas respectivas pilhas:

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("")

insira a descrição da imagem aqui

Como os ZipfColl_meanvalores podem ser colocados no meio de suas respectivas pilhas?

Dados:

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 respostas

  1. Best Answer

    Aqui está uma abordagem que calcula as contagens fora do ggplot()uso das contagens para ya posição dos rótulos, bem como position = 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")

    insira a descrição da imagem aqui

    • 1

relate perguntas