Final version

visuals_bar_plot.R

@@ -4,7 +4,6 @@ library(tidyverse)
 
 
 #Exercise 9 - Load the dataset:
-trade_2018_unchanged <- read_csv("trade.csv")s
 trade_2018 <- read_csv("trade.csv") |>
                         mutate(import = import_q1 + import_q2 
                                + import_q3 + import_q4) |>
@@ -13,14 +12,18 @@ trade_2018 <- read_csv("trade.csv") |>
                         select(region, export, import) |>
                         mutate(differential = export - import) |>
                         mutate(deficit = ifelse(export < import, "Deficit", "Surplus")) |>
-                        group_by(deficit) |>
-                        summarise(means = mean(differential))
+                        group_by(deficit)# |>
+                        #summarise(means = mean(differential))
 trade_2018
+# ggplot(data=trade_2018, aes(x=deficit, y=means)) +
+ # geom_col() +
+  #labs(title="Mean trade differentials in 2018", 
+   #    x="Group",
+    #   y="Differential")
+
+ggplot(data=trade_2018) +
+  aes(x=deficit, y = differential, color = deficit, fill=deficit) +
+  geom_bar(stat = "summary", fun = "mean")
 
-ggplot(data=trade_2018, aes(x=deficit, y=means)) +
-  geom_col() +
-  labs(title="Mean trade differentials in 2018", 
-       x="Group",
-       y="Differential")