R/ggswissmaps_data.R

In ggswissmaps: Offers Various Swiss Maps as Data Frames and 'ggplot2' Objects

#' Offers various swiss maps as data frames and 'ggplot2' objects.
#'
#' Offers various swiss maps as data frames and 'ggplot2' objects 
#' and gives the possibility to add layers of data on the maps. 
#' Data are publicly available from the swiss federal statistical office. 
#' In addition to the \code{maps2} object (a list of 16 swiss maps, at 
#' various levels), there are the data frames with the boundaries used to
#' produce these maps (\code{shp_df}, a list with 8 data frames).
#' 
#' See the package vignette for some examples 
#' (\code{vignette("ggswissmaps_intro", package = "ggswissmaps")}).
#' 
#' 
#' @docType package
#' @name ggswissmaps
#' 
#' @import ggplot2
NULL


#' A list with 8 data frames of swiss territory boundaries, at various levels.
#'
#' Every element of the list is a data frame, which can be used with 'ggplot2'.
#'
#' Columns are not all the same across data frames, but usually they have the
#' following in common:
#' \itemize{
#'   \item long. Longitude coordinate (x)
#'   \item lat. Latitude coordinate (y)
#'   \item group. A factor to be used to plot the polygons correctly (with ggplot2)
#' }
#'
#' @format A list with 8 data frames with swiss territory boundaries (at various levels).
#' @source \url{http://www.bfs.admin.ch/bfs/portal/fr/index/dienstleistungen/geostat/datenbeschreibung.html}
#' @examples
#' data(shp_df)
#' class(shp_df)
#' length(shp_df)
#' names(shp_df)
#' str(shp_df[["g1k15"]])
#' @name shp_df
NULL


#' A list with 8 'ggplot2' objects of swiss territory boundaries, at various
#' levels.
#'
#' Every element of the list is a 'ggplot2' graphic, corresponding to an
#' element of \code{shp_df}.
#'
#' Columns are not all the same across data frames, but usually they have the following in common:
#' \itemize{
#'   \item long. Longitude coordinate (x)
#'   \item lat. Latitude coordinate (y)
#'   \item group. A factor to be used to plot the polygons correctly (with ggplot2)
#' }
#'
#' @format A list with 8 data frames with swiss territory boundaries (at various levels).
#' @source \url{http://www.bfs.admin.ch/bfs/portal/fr/index/dienstleistungen/geostat/datenbeschreibung.html}
#' @examples
#' class(maps2)
#' length(maps2)
#' names(maps2)
#' # str(maps2[["g1k15"]])
#' 
#' # By name
#' maps2[["g1k15"]]
#' 
#' # By index
#' maps2[[5]]
#' @export
#' @name maps2
maps2 <- NULL

# utils::data("shp_df", envir = parent.env(environment()))
# maps2 <- lapply(shp_df, maps2_)
# rm(shp_df, envir = parent.env(environment()))

# Sostituito le due righe qui sotto (0.0.7) (e tolto maps2.rda dalla cartella data/)
# #' @name maps2
# NULL

# Con queste 4 (0.0.8)
# #' @name maps2
# #' @export
# data("shp_df")
# maps2 <- lapply(shp_df, maps2_)


# extract_data <- function(gg){
#   l <- ggplot2::ggplot_build(gg)
#   l$data[[1]]
# }
# 
# x <- extract_data(maps[[1]])
# str(x)
# 
# x <- extract_data(maps[["cantoni"]])
# str(x)
# 
# pcant <- ggplot(data = x, mapping = aes(x=x, y=y, group=group, fill=factor(group))) + geom_polygon() + coord_equal() + theme_white
# pcant
# pcant + theme(legend.position="none")