Bar plot with multiple variables in R

Question

I am working on flight dataset in R. I would like to plot the below data in one bar graph.

flight_month early_arrival delayed_arrival ealry_departure
1        April     -15.58233        42.73958       -5.058515
2       August     -17.16566        39.51294       -4.676996
3     December     -14.02251        39.72725       -4.533339
4     February     -15.85862        33.68921       -4.912044
5      January     -15.09903        34.47749       -4.906270
6         July     -16.79175        53.95152       -4.562090
  delay_departure
1        44.05532
2        37.22452
3        37.06027
4        35.17606
5        35.24179
6        48.54883

similar to this one but with all the variable showing.

barplot

average<-read.csv('Average.csv')
ggplot(average,aes(x=flight_month,y=delayed_arrival))+
  geom_bar(stat="identity")

this is what I tried but this way I can only see delay_arrival on my y axis, I want to see all four variables on the y axis. And the months on the x axis.

Try [ggplot](https://ggplot2.tidyverse.org/reference/ggplot.html) from the `Tidyverse`. Also if you show us what you have done/tried so that we can help troubleshoot, you are likely to get more help. — bob1, Apr 16 '19 at 21:29

Ryan John · Accepted Answer · 2019-04-16T22:02:42.640

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

Here's a sample plot:

df %>% ggplot(aes(flight_month, group = 1)) + 
  geom_bar(aes(y = early_arrival), stat = "identity", fill = "blue")+
  geom_bar(aes(y = delayed_arrival), stat = "identity", fill = "red")

Or you can reshape your data:

df %>% tidyr::gather("metrics", "value", -flight_month) %>% 
  ggplot(aes(flight_month, value, group= metrics, fill = metrics)) +
           geom_bar(stat = "identity", width=.5, position = "dodge")

Here's a sample of the new data:

# A tibble: 24 x 3
   flight_month metrics         value
   <chr>        <chr>           <dbl>
 1 April        early_arrival   -15.6
 2 August       early_arrival   -17.2
 3 December     early_arrival   -14.0
 4 February     early_arrival   -15.9
 5 January      early_arrival   -15.1
 6 July         early_arrival   -16.8
 7 April        delayed_arrival  42.7
 8 August       delayed_arrival  39.5
 9 December     delayed_arrival  39.7
10 February     delayed_arrival  33.7
# ... with 14 more rows

data:

df <- structure(list(flight_month = c("April", "August", "December", 
"February", "January", "July"), early_arrival = c(-15.58233, 
-17.16566, -14.02251, -15.85862, -15.09903, -16.79175), delayed_arrival = c(42.73958, 
39.51294, 39.72725, 33.68921, 34.47749, 53.95152), early_departure = c(-5.058515, 
-4.676996, -4.533339, -4.912044, -4.90627, -4.56209), delay_departure = c(44.05532, 
37.22452, 37.06027, 35.17606, 35.24179, 48.54883)), row.names = c(NA, 
-6L), class = c("tbl_df", "tbl", "data.frame"))

remember, the library is 'ggplot2' and the command is 'ggplot' — Woodstock, Apr 16 '19 at 21:56
thank you for your code, it works perfectly. Is there a way to have them side by side instead of stacked? — Myaccount, Apr 17 '19 at 00:06
Try the 2nd part of the code. You may want to restructure your data. You’d have 3 columns, a time component, the metrics, and values. — Ryan John, Apr 17 '19 at 00:50

Bar plot with multiple variables in R

1 Answers1

Linked