PROSAGA码农传奇-模型可视化-有条件地将标签添加到ggplot堆叠条形图中

有条件地将标签添加到ggplot堆叠条形图中

作者: 妖邪
发布时间: 2024-12-27 12:42:12 (8天前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    您的
     <code>
      data
    </code>
     不含
     <code>
      n
    </code>
    ，只有您的匿名数据中的管道才能执行
     <code>
      count
    </code>
     功能。以下是三种解决方案：
  </p>
  <P>
    1。
  </p>
   <pre>
    <code>
      data %>% 
      count(groups, Response) %>%
      mutate(group = factor(groups)) %>% 
      {
        ggplot(., aes(groups, n, fill=Response)) + 
        geom_col(aes(fill = Response)) +
        geom_text(data=filter(., n>20), aes(label=n), position=position_stack(0.5), size = 3)
       }

</code>
  </pre>
  <P>
    2。
  </p>
   <pre>
    <code>
      counts <- data %>% 
      count(groups, Response) %>%
      mutate(group = factor(groups))

ggplot(counts, aes(groups, n, fill=Response)) + 
      geom_col(aes(fill = Response)) +
      geom_text(data=filter(counts, n>20), aes(label=n), position=position_stack(0.5), size = 3)

</code>
  </pre>
  <P>
    3。
  </p>
   <pre>
    <code>
      data %>% 
      count(groups, Response) %>%
      mutate(group = factor(groups)) %>% 
      ggplot(aes(groups, n, fill=Response)) + 
      geom_col(aes(fill = Response)) +
      geom_text(data=. %>% filter(n>20), aes(label=n), position=position_stack(0.5), size = 3)

</code>
  </pre>
</DIV>