ggplot bar graph (multiple variables)

[cadebunton]

Hi, I was wondering what is the best way to plot these averages side by side using geom_bar.

Thank you.

data.frame(
      Ending_Average = c(0.275, 0.296, 0.259),
   Runner_On_Average = c(0.318, 0.545, 0.222),
              Batter = as.factor(c("Jason Kipnis", "Tyler Naquin",
                                   "Carlos Santana"))
)

[KoderKow]

One possible way is to gather the two average variables into one column. This will allow us to have one x and one y variable.

library(dplyr)
library(tidyr)
library(ggplot2)

dat <- data.frame(
  Ending_Average = c(0.275, 0.296, 0.259),
  Runner_On_Average = c(0.318, 0.545, 0.222),
  Batter = as.factor(c("Jason Kipnis", "Tyler Naquin",
                       "Carlos Santana"))
)

dat_long <- dat %>%
  gather("Stat", "Value", -Batter)

dat_long
#>           Batter              Stat Value
#> 1   Jason Kipnis    Ending_Average 0.275
#> 2   Tyler Naquin    Ending_Average 0.296
#> 3 Carlos Santana    Ending_Average 0.259
#> 4   Jason Kipnis Runner_On_Average 0.318
#> 5   Tyler Naquin Runner_On_Average 0.545
#> 6 Carlos Santana Runner_On_Average 0.222

For making bars I chose to use geom_col(). geom_col() uses the y value as the height of the bar while geom_bar() essentially counts what is within the y (or you can change the stat to count if you want to keep geom_bar()). Next we use position = "dodge" within geom_col() to make the bars un-stack. By default they will be stacking due to the format of our data and when he used fill = Stat we told ggplot we want to group the data on that variable.

ggplot(dat_long, aes(x = Batter, y = Value, fill = Stat)) +
  geom_col(position = "dodge")

^{Created on 2019-06-20 by the reprex package (v0.3.0)}

[cadebunton]

That is awesome. Thank you for your help.

[andresrcs]

If your question's been answered (even by you!), would you mind choosing a solution? It helps other people see which questions still need help, or find solutions if they have similar problems. Here’s how to do it:

FAQ: How do I mark a solution?

If your question has been answered, don't forget to mark the solution! How do I mark a solution? Find the reply you want to mark as the solution and look for the row of small gray icons at the bottom of that reply. Click the one that looks like a box with a checkmark in it: [image] Hovering over the mark solution button shows the label, "Select if this reply solves the problem". If you don't see the mark solution button, try clicking the three dots button ( ••• ) to expand the full set of options. When a solution is chosen, the icon turns green and the hover label changes to: "Unselect if this reply no longer solves the problem". Success! [solution_reply_author] …