#'Visualise - create map USA
#' @param referencedregion area of interest
#' @param tweets data to work with
#' @import ggplot2
#' @export
#'
visualise <- function(referencedregion, tweets) {
world_map <- ggplot2::map_data(referencedregion)
p <- ggplot2::ggplot() + ggplot2::coord_fixed() + ggplot2::xlab("") + ggplot2::ylab("")
#Add map to base plot
base_world_messy <- p + ggplot2::geom_polygon(data=world_map, ggplot2::aes(x=long, y=lat, group=group),
colour="light green", fill="light green")
cleanup <- ggplot2::theme(panel.grid.major = ggplot2::element_blank(), panel.grid.minor = ggplot2::element_blank(),
panel.background = ggplot2::element_rect(fill = 'white', colour = 'white'),
axis.line = ggplot2::element_line(colour = "white"), legend.position="none",
axis.ticks=ggplot2::element_blank(), axis.text.x=ggplot2::element_blank(),
axis.text.y=ggplot2::element_blank())
base_world <- base_world_messy + cleanup
map_test <- base_world + ggplot2::geom_point(data=data.frame(tweets), ggplot2::aes(x=long, y=lat), colour="Deep Pink",
fill="Pink",pch=21, size=1, alpha=I(0.7))
map_test
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.