This example will get you started
library(ggplot2)
sample_df <- data.frame(
stringsAsFactors = FALSE,
Year = c("2015-16","2015-16","2016-17",
"2016-17","2017-18","2017-18","2018-19","2018-19",
"2019-20","2019-20","2015-16","2015-16","2016-17",
"2016-17","2017-18","2017-18","2018-19","2018-19",
"2019-20","2019-20","2015-16","2015-16","2016-17",
"2016-17","2017-18","2017-18","2018-19","2018-19",
"2019-20","2019-20","2015-16","2015-16","2016-17","2016-17",
"2017-18","2017-18","2018-19","2018-19","2019-20",
"2019-20"),
Sex = c("Boy","Girl","Boy","Girl",
"Boy","Girl","Boy","Girl","Boy","Girl","Boy","Girl",
"Boy","Girl","Boy","Girl","Boy","Girl","Boy",
"Girl","Boy","Girl","Boy","Girl","Boy","Girl","Boy",
"Girl","Boy","Girl","Boy","Girl","Boy","Girl",
"Boy","Girl","Boy","Girl","Boy","Girl"),
Country = c("AAA","AAA","AAA","AAA",
"AAA","AAA","AAA","AAA","AAA","AAA","BBB","BBB",
"BBB","BBB","BBB","BBB","BBB","BBB","BBB","BBB","CCC",
"CCC","CCC","CCC","CCC","CCC","CCC","CCC","CCC",
"CCC","DDD","DDD","DDD","DDD","DDD","DDD","DDD",
"DDD","DDD","DDD"),
Score = c(52L,51L,52L,50L,51L,49L,
52L,49L,52L,49L,52L,51L,52L,50L,51L,49L,52L,49L,
52L,49L,50L,49L,51L,49L,51L,48L,51L,48L,51L,
49L,48L,47L,48L,48L,48L,47L,49L,46L,49L,49L)
)
ggplot(data = sample_df, aes(x = Year, y = Score, color = Sex, group = Sex)) +
geom_line() +
facet_wrap(~Country)
Created on 2020-11-02 by the reprex package (v0.3.0.9001)
To learn more about how to make plots you can read this
Note: Next time please provide a proper REPRoducible EXample (reprex) illustrating your issue.