Internet_Speed_Test

library(speedtest)
library(stringi) 
library(hrbrthemes)
library(ggbeeswarm) 
library(tidyverse)
library(ggmap)
library(rworldmap)
library(rworldxtra)
library(dplyr)
library(plyr)

#speedtest getting servers

config <- spd_config()
servers <- spd_servers(config=config)
closest_servers <- spd_closest_servers(servers, config=config) 
only_the_best_severs <- spd_best_servers(closest_servers, config)

#visualizing the server points
mapWorld <- borders("world", colour="red", fill="black") # create a layer of borders
mp <- ggplot() +   mapWorld
mp + geom_point(data = servers, aes(x = lng, y = lat), colour = "yellow")