Import data

# excel file
data <- read_excel("data/myData.xlsx")
data
## # A tibble: 94 × 2
##     year how_many_counted
##    <dbl>            <dbl>
##  1  1921                0
##  2  1922                0
##  3  1924                0
##  4  1925                0
##  5  1926                0
##  6  1928                0
##  7  1930                1
##  8  1931                1
##  9  1932                3
## 10  1933                5
## # ℹ 84 more rows

Plot data

data %>%
    
    ggplot(aes(x = year, y = how_many_counted)) +
    geom_line()