This is an example
library(ggplot2)
# Sample data on a copy/paste friendly format (replace this with your actual data frame)
sample_df <- data.frame(
stringsAsFactors = FALSE,
Country = c("US","US","US","US","US",
"UK","UK","UK","UK","UK"),
Periods = c("Gold Standard 1881-1913",
"Interwar 1919-1938","Bretton Woods 1946-1970",
"Floating Exchange 1974-1989","Floating Exchange 1990-2019",
"Gold Standard 1881-1913","Interwar 1919-1938",
"Bretton Woods 1946-1970","Floating Exchange 1974-1989",
"Floating Exchange 1990-2019"),
Value = c(0.3, -1.8, 2.4, 5.6, 2.4, 0.3, -1.5, 3.7, 9.4, 2.5)
)
# Relevant code
ggplot(sample_df, aes(x = Country, y = Value, fill = Periods)) +
geom_col(position = "dodge")
Created on 2020-12-07 by the reprex package (v0.3.0.9001)
Note: Next time please provide a proper REPRoducible EXample (reprex) illustrating your issue.