Skip to content

Instantly share code, notes, and snippets.

@suensummit
Last active September 26, 2017 06:41
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save suensummit/dcebbbcfd2477a12c9c8e5e7e2cfa408 to your computer and use it in GitHub Desktop.
Save suensummit/dcebbbcfd2477a12c9c8e5e7e2cfa408 to your computer and use it in GitHub Desktop.
# Load data
# ips <- read.csv("https://lookaside.fbsbx.com/file/ipdatas.csv?token=AWyvZbsOT-DxjUjUySQf4vqWu9VSj7WTKytXNHkow4054oYjLFN_7FW0FPNwDtmUbQXXzJyCm99cQoRV6c-xS-Clpc7ss0lw-C04A41hBtFP3Yy2d4sR_W31BNrLip_XcqyuJbOxhjC9xKBq32jQ8zfxnDO3OdbSdq4-SbOnWnMQSLcjWrx6hfqbKo1a3gVttSZLhKqna7TpJhOm8uKdUvde")
ips <- read.csv("ipdatas.csv")
# 如果已安裝則省略
# install.packages("maps")
# install.packages("ggplot2")
library(ggplot2)
ggplot() +
borders("world", colour = "gray20", fill = "gray50") +
geom_point(data = ips, aes(x = Longitude, y = Latitude, color = CountryCode, alpha = 0.5), size = 5)
@suensummit
Copy link
Author

screen shot 2017-09-26 at 2 40 03 pm

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment