如何使用ggplot2在R中的geom_bar r上放置标签/频率

Question

there. So, this is my code:

library(ggplot2); library(scales); library(reshape2);
da1 <- read.table(text = "NÃO SIM
5 1
24 44
",sep = "",header = TRUE)
da1m <- melt(cbind(da1, ind = rownames(da1)), id.vars = c('ind'))
da1m$Resposta <- c( "NÃO", "SIM", "NÃO", "SIM" )
names(da1m) <- c("Resposta", "variable", "value")

ggplot(da1m,aes(x = variable, y = value,fill = Resposta)) + 
geom_bar(position = "fill",stat = "identity", colour = "black") + 
scale_y_continuous(labels = percent_format())+
labs(title = "Gráfico 1", x="Gosta de utilizar o R", 
    y="Há interessse em aprimorar os conhecimentos em R")+
scale_fill_manual(values=c("#E69F00", "#56B4E9"))+
geom_text(aes(label=value), position=position_dodge(width=0.9), 
        vjust=-0.5)

And this is what I get:

geom_bar with label error

What am I doing wrong? The chart is strangely starting to be also in function of the geom_text when I try to add the frequencies.

Answer 1

For illustration, here are two different options for positioning text labels, but you can alter these as needed:

library(dplyr)

# Add two position locations for text labels (centered and top)
da1m = da1m %>% group_by(variable) %>%
  mutate(y.pos.ctr = cumsum(value) - 0.5*value,
         y.pos.top = cumsum(value))

ggplot(da1m, aes(x=variable, y=value, fill=Resposta)) + 
  geom_bar(stat = "identity", colour = "black") +  # get rid of position="fill"
  #scale_y_continuous(labels = percent_format()) +  # y values don't seem to be percentages
  labs(title = "Gráfico 1", x="Gosta de utilizar o R", 
       y="Há interessse em aprimorar os conhecimentos em R")+
  scale_fill_manual(values=c("#E69F00", "#56B4E9")) +
  geom_text(aes(label=value, y=y.pos.ctr), colour="white") +  # Centered value labels
  geom_text(aes(label=value, y=y.pos.top), colour="red")    # Value labels at top of each bar section