Обработка данных для создания нескольких гистограмм

Question

Итак, у меня есть этот тиббл, из которого я пытаюсь составить несколько столбчатых диаграмм, которые показывают, сколько было потрачено на поддержку (за) или против (против) каждого из этих кандидатов

Однако я полностью Потеряно на том, как go сделать это, и я думаю, что я хочу изменить эту таблицу, чтобы упростить создание графика. Любые указатели были бы очень полезны.

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)

График