Nobel laureates are often thought of as bona fide greater-than-life scientific celebrities. Last year Kaggle, a platform for predictive modelling and analytics competitions, has compiled Nobel Laureates Dataset which details 18 variables on 969 laureates. While many have probed the dataset statistically, only few shaped it into interactive tools.

laureates <- readRDS("D:/RStudio/09-DevelopingDataProducts/Coursera/laureates.RDS")
dim(laureates)

## [1] 969  18

colnames(laureates)

##  [1] "Year"                 "Category"             "Prize"               
##  [4] "Motivation"           "Prize.Share"          "Laureate.ID"         
##  [7] "Laureate.Type"        "Full.Name"            "Birth.Date"          
## [10] "Birth.City"           "Birth.Country"        "Sex"                 
## [13] "Organization.Name"    "Organization.City"    "Organization.Country"
## [16] "Death.Date"           "Death.City"           "Death.Country"

But most of the dataset remained unused. Therefore, we asked Plotly…

We integrated Leaflet and Shiny to produce an interactive app that draws the laureates by their places of birth and death, and filters them by the year in which they were awarded, their age at the time, and the category for which they were awarded. Each marker contains additional information about the laureate and includes the Wikipedia link.

Why not take a look?