向geom_bar添加标注

w8biq8rn 于 9个月前发布在其他

关注(0)|答案(1)|浏览(86)

我对这个chart的标签有一些困难。具体来说，标签不适合它们相应的栏。而且，标签看起来不在正确的位置。换句话说，非西班牙裔白人的百分比应该出现在橙子框中。
谢谢你，
MRR

IDD_line_race <-
  ggplot(race_2010, aes(x =Year_  , y =per_X_ , fill=race_new2), colour="black",
         stat="identity", width=0.9,  position = position_dodge()) +
  geom_col() +
  geom_text(aes(y = per_X_, label = paste0(format(per_X_),"%")), colour = "white")+
  scale_fill_manual(values=c("#F76900","#000E54")) + 
  labs(
    x = "Year",
    y = "Population 65+ (%)",
    caption = (""),
    face = "bold"
  ) +
  theme_classic()+
  coord_flip()

IDD_line_race

字符串

来源：https://stackoverflow.com/questions/71914864/adding-labels-to-the-geom-bar

1条答案

按热度按时间

nbysray51#

问题是geom_col默认使用position = "stack"，而geom_text使用position="identity"。要将标签放在正确的位置，您必须使用position = "stack"或geom_text中更详细的position = position_stack()。此外，我使用hjust=1右对齐标签，并从ggplot()调用中删除了混乱。
使用一些假的示例数据：

library(ggplot2)

set.seed(123)

race_2010 <- data.frame(
  Year_ = rep(2010:2019, 2),
  race_new2 = rep(c("non-Hispanic Black", "non-Hispanic White"), each = 10),
  per_X_ = round(c(runif(10, 1, 2), runif(10, 9, 12)), 1)
)

ggplot(race_2010, aes(x =Year_  , y =per_X_ , fill=race_new2)) +
  geom_col() +
  geom_text(aes(y = per_X_, label = paste0(format(per_X_),"%")), colour = "white", position = position_stack(), hjust = 1) +
  scale_fill_manual(values=c("#F76900","#000E54")) + 
  labs(
    x = "Year",
    y = "Population 65+ (%)",
    caption = (""),
    face = "bold"
  ) +
  theme_classic()+
  coord_flip()

字符串

的数据

赞(0）回复(0）举报 9个月前

我来回答

向geom_bar添加标注

1条答案

相关问题

热门标签

最新问答