R 创建多条形图的数据争用

所以，我有一个tibble，我正试图从中制作一个多条形图，显示支持（赞成）或反对（反对）这些候选人的花费

然而，我完全不知道如何去做，我想我想重新安排这个tibble，使它更简单地创建一个图形。任何指针都会非常有用

A tibble: 5 x 5
  type                   clinton      sanders     omalley fa_camp
  <chr>                  <dbl>         <dbl>         <dbl> <chr>   
1 24A                 51937848        859337             0 against 
2 24C                 15106530           900             0 for     
3 24E                 29651626       5307952        374821 for     
4 24F                  5096083        304153             0 for     
5 24N                    10139             0             0 against 

A tibble:5x5
克林顿·桑德斯·奥马利·法乌营
24A 51937848 859337 0针对
2 24C 15106530 900 0用于
3 24E 29651626 5307952 374821
4 24F 5096083 304153 0
5 24N 10139 0 0反对

我希望最终达到这样的结果：

---

不同颜色的条表示赞成/反对，y轴表示花费的金额

在打印之前，将被转换为长格式

library(tidyverse)
library(scales)

df %>%
  pivot_longer(cols = -c(type, fa_camp), names_to = "candidate", values_to = "amount_spent") %>%
  ggplot(aes(x = candidate, y = amount_spent, group = fa_camp, fill = fa_camp)) +
    geom_bar(stat = "identity", position = "dodge") +
    scale_y_continuous(labels = dollar)

绘图

---

在打印之前，将以长格式显示

library(tidyverse)
library(scales)

df %>%
  pivot_longer(cols = -c(type, fa_camp), names_to = "candidate", values_to = "amount_spent") %>%
  ggplot(aes(x = candidate, y = amount_spent, group = fa_camp, fill = fa_camp)) +
    geom_bar(stat = "identity", position = "dodge") +
    scale_y_continuous(labels = dollar)

绘图

---

您好，我知道已经有一段时间了，但我无法单独重写此内容，不知您是否能帮忙。我已经更新了我原来的postHi，我知道已经有一段时间了，但是我在单独重写这篇文章时遇到了困难，我想知道你是否能帮忙。我已经更新了我原来的帖子