fars_map_state:

In datocres/coursera-fars: What the package does (short line)

Usage

fars_map_state(state.num, year)

Arguments

state.num
year

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (state.num, year) 
{
    filename <- make_filename(year)
    data <- fars_read(filename)
    state.num <- as.integer(state.num)
    if (!(state.num %in% unique(data$STATE))) 
        stop("invalid STATE number: ", state.num)
    data.sub <- dplyr::filter(data, STATE == state.num)
    if (nrow(data.sub) == 0L) {
        message("no accidents to plot")
        return(invisible(NULL))
    }
    is.na(data.sub$LONGITUD) <- data.sub$LONGITUD > 900
    is.na(data.sub$LATITUDE) <- data.sub$LATITUDE > 90
    with(data.sub, {
        maps::map("state", ylim = range(LATITUDE, na.rm = TRUE), 
            xlim = range(LONGITUD, na.rm = TRUE))
        graphics::points(LONGITUD, LATITUDE, pch = 46)
    })
  }

datocres/coursera-fars documentation built on May 20, 2019, 6:46 p.m.