Browse Source

CRAN submission

master
hrbrmstr 10 years ago
parent
commit
4f45aa4138
No known key found for this signature in database GPG Key ID: 1D7529BE14E2BBA9
  1. 13
      .Rbuildignore
  2. 8
      R/statebins.R
  3. 4
      man/statebins.Rd
  4. 4
      man/statebins_continuous.Rd

13
.Rbuildignore

@ -1,9 +1,10 @@
^.*\.Rproj$ ^.*\.Rproj$
^\.Rproj\.user$ ^\.Rproj\.user$
^_README.Rmd$ ^.*md$
^_README.md$
^NEWS.md$
^\.travis\.yml$ ^\.travis\.yml$
^README.md$ ^.*README_files$
^_README_files/* ^.*README_files/$
^tmp/*$ ^.*README_files/.*$
^tmp$
^tmp/$
^tmp/.*$

8
R/statebins.R

@ -64,7 +64,7 @@ invert <- function(hexColor, darkColor="black", lightColor="white") {
#' @param state_data data frame of states and values to plot #' @param state_data data frame of states and values to plot
#' @param state_col column name in \code{state_data} that has the states. no duplicates and can be names (e.g. "\code{Maine}") or abbreviatons (e.g. "\code{ME}") #' @param state_col column name in \code{state_data} that has the states. no duplicates and can be names (e.g. "\code{Maine}") or abbreviatons (e.g. "\code{ME}")
#' @param value_col column name in \code{state_data} that holds the values to be plotted #' @param value_col column name in \code{state_data} that holds the values to be plotted
#' @param text_color default "\code{white}" #' @param text_color default "\code{black}"
#' @param font_size font size (default = \code{3}) #' @param font_size font size (default = \code{3})
#' @param state_border_col default "\code{white}" - this creates the "spaces" between boxes #' @param state_border_col default "\code{white}" - this creates the "spaces" between boxes
#' @param breaks a single number (greater than or equal to 2) giving the number of intervals into which data values are to be cut. #' @param breaks a single number (greater than or equal to 2) giving the number of intervals into which data values are to be cut.
@ -84,7 +84,7 @@ invert <- function(hexColor, darkColor="black", lightColor="white") {
#' legend_title = "Assault", legend_position="bottom") #' legend_title = "Assault", legend_position="bottom")
#' } #' }
statebins <- function(state_data, state_col="state", value_col="value", statebins <- function(state_data, state_col="state", value_col="value",
text_color="white", font_size=3, text_color="black", font_size=3,
state_border_col="white", breaks=5, labels=1:5, state_border_col="white", breaks=5, labels=1:5,
legend_title="Legend", legend_position="top", legend_title="Legend", legend_position="top",
brewer_pal="PuBu", plot_title="", title_position="bottom") { brewer_pal="PuBu", plot_title="", title_position="bottom") {
@ -164,7 +164,7 @@ statebins <- function(state_data, state_col="state", value_col="value",
#' @param state_data data frame of states and values to plot #' @param state_data data frame of states and values to plot
#' @param state_col column name in \code{state_data} that has the states. no duplicates and can be names (e.g. "\code{Maine}") or abbreviatons (e.g. "\code{ME}") #' @param state_col column name in \code{state_data} that has the states. no duplicates and can be names (e.g. "\code{Maine}") or abbreviatons (e.g. "\code{ME}")
#' @param value_col column name in \code{state_data} that holds the values to be plotted #' @param value_col column name in \code{state_data} that holds the values to be plotted
#' @param text_color default "\code{white}" #' @param text_color default "\code{black}"
#' @param font_size font size (default = \code{3}) #' @param font_size font size (default = \code{3})
#' @param state_border_col default "\code{white}" - this creates the "spaces" between boxes #' @param state_border_col default "\code{white}" - this creates the "spaces" between boxes
#' @param legend_title title for the legend #' @param legend_title title for the legend
@ -182,7 +182,7 @@ statebins <- function(state_data, state_col="state", value_col="value",
#' legend_title = "Murder", legend_position="bottom") #' legend_title = "Murder", legend_position="bottom")
#' } #' }
statebins_continuous <- function(state_data, state_col="state", value_col="value", statebins_continuous <- function(state_data, state_col="state", value_col="value",
text_color="white", font_size=3, text_color="black", font_size=3,
state_border_col="white", state_border_col="white",
legend_title="Legend", legend_position="top", legend_title="Legend", legend_position="top",
brewer_pal="PuBu", plot_title="", title_position="bottom") { brewer_pal="PuBu", plot_title="", title_position="bottom") {

4
man/statebins.Rd

@ -4,7 +4,7 @@
\title{Create a new ggplot-based "statebin" chart for USA states (discrete scale)} \title{Create a new ggplot-based "statebin" chart for USA states (discrete scale)}
\usage{ \usage{
statebins(state_data, state_col = "state", value_col = "value", statebins(state_data, state_col = "state", value_col = "value",
text_color = "white", font_size = 3, state_border_col = "white", text_color = "black", font_size = 3, state_border_col = "white",
breaks = 5, labels = 1:5, legend_title = "Legend", breaks = 5, labels = 1:5, legend_title = "Legend",
legend_position = "top", brewer_pal = "PuBu", plot_title = "", legend_position = "top", brewer_pal = "PuBu", plot_title = "",
title_position = "bottom") title_position = "bottom")
@ -16,7 +16,7 @@ statebins(state_data, state_col = "state", value_col = "value",
\item{value_col}{column name in \code{state_data} that holds the values to be plotted} \item{value_col}{column name in \code{state_data} that holds the values to be plotted}
\item{text_color}{default "\code{white}"} \item{text_color}{default "\code{black}"}
\item{font_size}{font size (default = \code{3})} \item{font_size}{font size (default = \code{3})}

4
man/statebins_continuous.Rd

@ -4,7 +4,7 @@
\title{Create a new ggplot-based "statebin" chart for USA states (continuous scale)} \title{Create a new ggplot-based "statebin" chart for USA states (continuous scale)}
\usage{ \usage{
statebins_continuous(state_data, state_col = "state", value_col = "value", statebins_continuous(state_data, state_col = "state", value_col = "value",
text_color = "white", font_size = 3, state_border_col = "white", text_color = "black", font_size = 3, state_border_col = "white",
legend_title = "Legend", legend_position = "top", brewer_pal = "PuBu", legend_title = "Legend", legend_position = "top", brewer_pal = "PuBu",
plot_title = "", title_position = "bottom") plot_title = "", title_position = "bottom")
} }
@ -15,7 +15,7 @@ statebins_continuous(state_data, state_col = "state", value_col = "value",
\item{value_col}{column name in \code{state_data} that holds the values to be plotted} \item{value_col}{column name in \code{state_data} that holds the values to be plotted}
\item{text_color}{default "\code{white}"} \item{text_color}{default "\code{black}"}
\item{font_size}{font size (default = \code{3})} \item{font_size}{font size (default = \code{3})}

Loading…
Cancel
Save