library(readr)

library(plotly)

df <- read.csv("4.5_month.csv")

plot_ly (type = 'scattergeo' ,lon =df$longitude ,lat =df$latitude, 
         text =df$place ,mode = 'markers', color=df$mag, size = df$mag )