Mapping Agriculture Exports in the USA

In this project we attempt to map agriculture exports in the USA with the help of the plotly package.The export data in csv format is available here.

df%>%head()

library(plotly)
df <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/2011_us_ag_exports.csv")
df$hover <- with(df, paste(state, '<br>', "Beef", beef, "Dairy", dairy, "<br>",
                           "Fruits", total.fruits, "Veggies", total.veggies,
                           "<br>", "Wheat", wheat, "Corn", corn))
# give state boundaries a white border
l <- list(color = toRGB("white"), width = 2)
# specify some map projection/options
g <- list(
  scope = 'usa',
  projection = list(type = 'albers usa'),
  showlakes = TRUE,
  lakecolor = toRGB('white')
)
p <- plot_geo(df, locationmode = 'USA-states') %>%
  add_trace(
    z = ~total.exports, text = ~hover, locations = ~code,
    color = ~total.exports,colors = viridis_pal(option="D")(3)
  ) %>%
  colorbar(title = "Millions USD") %>%
  layout(
    title = '2011 US Agriculture Exports by State',
    geo = g
  )
p%>%
  layout(autosize = F, width = 700, height = 700)

Specifying width/height in layout() is now deprecated.
Please specify in ggplotly() or plot_ly()

# Create a shareable link to your chart
#Set up API credentials: https://plot.ly/r/getting-started
#chart_link = plotly_POST(p, filename="p")
#api_create(p)
#chart_link
#api_download_plot()