R/plot_weather_num.R

In floatgreen/airportweather: A package to get and visualize the weather data of airports in the US

##' @name plot_weather_num
##' @title Plot Weather Information on Map
##' @description plot a numeric element of an weather informaton of multiple airports on map
##' @usage plot_weather_num(id_vector, type, label = TRUE)
##' @param id_vector a vector of multiple airport codes
##' @param type a character of one numerical weather element
##' @param label lable= TRUE: label airport code on the plot
##' @examples
##' plot_weather_num(c("KAMW", "KAIO", "KCID", "KCNC"),
##'            type = "temp_f",
##'            label = TRUE)
##' @import ggplot2
##' @export

#dependence? ggmap maps mapdata

#Function3: plot a numerical element
#label = true: label airport code on the plot
#number = true: this element is numeric
#plot one weather elements of several airport
plot_weather_num <- function(id_vector, type, label = TRUE){
  data <- current_weather_more(id_vector, type)
  colnames(data)[6]<-"element"
  data$element <- as.numeric(as.character(data$element))
  states <- map_data("state")
  if(label == TRUE){
    ggplot(data = states) +
      geom_polygon(aes(x = long, y = lat, group = group),
                   color = "grey", alpha = 0.6) +
      geom_point(data = data,aes(x = longitude, y = latitude,
                                 color = element)) +
      geom_text(data = data,
                aes(x = longitude, y = latitude, label = station_id),
                size = 1.5)+
      theme_bw() +
      labs(title = type,
           subtitle = as.character(data$observation_time[1]))+
      coord_fixed(1.3) +
      guides(fill = FALSE)
  }else{
    ggplot(data = states) +
      geom_polygon(aes(x = long, y = lat, group = group),
                   color = "grey", alpha = 0.6) +
      geom_point(data = data,aes(x = longitude, y = latitude,
                                 color = element)) +
      theme_bw() +
      labs(title = type,
           subtitle = as.character(data$observation_time[1]))+
      coord_fixed(1.3) +
      guides(fill = FALSE)
  }
}