Try to see if this does the trick for you?
library("tidyverse")
my_data <- tribble(
~Year, ~Number_of_Recorders,
2014, 299,
2015, 300,
2016, 297,
2017, 400,
2018, 350,
2019, 800,
2020, 352
)
my_data %>%
ggplot(aes(x = Year,
y = Number_of_Recorders)) +
geom_point() +
geom_line() +
theme_classic()
Hope it helps! 