World GDP 2014

R Markdown

library(plotly)

df = read.csv('https://raw.githubusercontent.com/plotly/datasets/master/2014_world_gdp_with_codes.csv')

map_options <- list(
  showframe = FALSE,
  showcoastlines = FALSE,
  projection = list(type = 'equirectangular')
)    

plot_ly(z = ~df$GDP..BILLIONS., text = ~df$COUNTRY, locations = ~df$CODE, 
        type = 'choropleth', locationmode = 'world', 
        color = "blue", colors= 'Blues', marker = list(line = borders)) %>%
    layout(title = '2014 Global GDP (13/7/2019)', legend = list ( legendgroup =c("Now","Then")), geo = map_options)