r - 用于创建多个条形图的数据争论

Question

所以，我有这个小标题，我试图从中制作一个多重条形图，显示支持（支持）或反对（反对）每个候选人的花费

但是，我完全不知道如何去做，我想我想重新排列这个小标题，以便更简单地创建一个图表。任何指针都会非常有帮助。

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 

我希望最终实现如下所示的结果：

不同颜色的条表示支持/反对，y 轴表示花费的金额。

Answer 1

在绘图之前，会放入长格式。

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)

阴谋