18/11/2018

Introduction

The following presentation shows the amount of great inventions and scientific discoveries in each year from 1860 to 1959.

The source of the dataset is The World Almanac and Book of Facts, 1975 Edition, pages 315–318.For more information, please visit the R documentation webpage.

Code

In order to visually represent the number of discoveries per year, some coding needs to be done.

' library(datasets)
' library(ggplot2)
' library(plotly)
' data <- data.frame(x = seq(1860, 1959), y = discoveries)
' plot <- plot_ly(data, x = ~x, y = ~y, type = 'bar') %>%
' layout(title = "Amount of discoveries (1860 - 1959)",
' xaxis = list(title = "Year"),
' yaxis = list(title = "Frequency"))

Data Visualization

Thanks!