用於創建多個條形圖的數據整理

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)

陰謀