Discoveries

[serappfd]

Question

The number of discoveries between 1860 and 1959 was given. Please, find out which year is the most discovery, and find out over five discoveries in descending order and show them on the chart.

time discoveries
1  1885          12
2  1887          10
3   ...             

library(ggplot2)
library(readr)
library(dplyr)
claridge <- read.csv("https://raw.githubusercontent.com/vincentarelbundock/Rdatasets/master/csv/datasets/discoveries.csv") 
claridge %>%
  select(time, discoveries) %>%
  arrange(desc(discoveries)) %>%
  filter(discoveries > 5)  %>%
  ggplot(aes(x = time, y = discoveries, fill=time)) +
  geom_col()

Additional information

Originality

Is this question

• [x] Original
• [ ] Inspired
• [ ] Paraphrased or copied

Difficulty Level

• [x] Easy / Beginner (using a single command or concept is enough to solve the question)
• [ ] Intermediate (combining multiple commands, concepts is needed to solve the question)
• [ ] Difficult (combining multiple commands with non-default options and looking for additional information online might be needed)

Tags (optional)

ggplot2, dplyr, readr