Obesity in Selected Countries

#Load required libraries
library(plotly)
library(plyr)

#Load dataset of percent obesity among males and females in selected countries
df <- read.csv(url("https://www.dropbox.com/s/qa7qutyy9m9zox6/UNdata_Export_20161019_144307006.csv?dl=1"))
df = rename(df, c("Country.or.Area"="Country", "Value"="Percent_Obesity"))

#Plot results
p <- plot_ly(df, x=Country, y=Percent_Obesity, mode="markers", color=as.factor(Sex))
p