# NOT RUN {
data <- data.frame(
lon = c(-74.01, -95.36, -118.24, -87.65, -134.42, -157.86),
lat = c(40.71, 29.76, 34.05, 41.85, 58.30, 21.31),
pop = c(8398748, 2325502, 3990456, 2705994, 32113, 347397)
)
# Transform data
transformed_data <- usmap_transform(data)
# Plot transformed data on map
library(ggplot2)
plot_usmap() + geom_point(
data = transformed_data,
aes(x = lon.1, y = lat.1, size = pop),
color = "red", alpha = 0.5
)
# }
Run the code above in your browser using DataLab