Fix range across choropleths in Shiny when using choroplethr package
I have a very simple Shiny app, with code at the bottom of the question.
The app allows us to look at the years 2000, and 2001. In both cases, California is the darkest state, since it has the highest values (500 and 1000, respectively).
My issue is that I would like to set the scale for colors to be fixed across both years. Notice that California has a dark blue for the first year (corresponding to the value of 1000).
Notice now that California has the exact same dark blue for the second year (corresponding to the value of 500).
When looking at the choropleths as they stand, it is easy to miss the fact that the value dropped in half across years (and similarly this occurs in different ways for the other states, of course). I would like a way to fix the range across plots. How can I achieve this?
df <- structure(list(region = c("alabama", "alabama", "alaska", "alaska",
"arizona", "arizona", "arkansas", "arkansas", "california", "california",
"colorado", "colorado", "connecticut", "connecticut", "delaware",
"delaware", "district of columbia", "district of columbia", "florida",
"florida", "georgia", "georgia", "hawaii", "hawaii", "idaho",
"idaho", "illinois", "illinois", "indiana", "indiana", "iowa",
"iowa", "kansas", "kansas", "kentucky", "kentucky", "louisiana",
"louisiana", "maine", "maine", "maryland", "maryland", "massachusetts",
"massachusetts", "michigan", "michigan", "minnesota", "minnesota",
"mississippi", "mississippi", "missouri", "missouri", "montana",
"montana", "nebraska", "nebraska", "nevada", "nevada", "new hampshire",
"new hampshire", "new jersey", "new jersey", "new mexico", "new mexico",
"new york", "new york", "north carolina", "north carolina", "north dakota",
"north dakota", "ohio", "ohio", "oklahoma", "oklahoma", "oregon",
"oregon", "pennsylvania", "pennsylvania", "rhode island", "rhode island",
"south carolina", "south carolina", "south dakota", "south dakota",
"tennessee", "tennessee", "texas", "texas", "utah", "utah", "vermont",
"vermont", "virginia", "virginia", "washington", "washington",
"west virginia", "west virginia", "wisconsin", "wisconsin", "wyoming",
"wyoming"), date = c("2000", "2001", "2000", "2001", "2000",
"2001", "2000", "2001", "2000", "2001", "2000", "2001", "2000",
"2001", "2000", "2001", "2000", "2001", "2000", "2001", "2000",
"2001", "2000", "2001", "2000", "2001", "2000", "2001", "2000",
"2001", "2000", "2001", "2000", "2001", "2000", "2001", "2000",
"2001", "2000", "2001", "2000", "2001", "2000", "2001", "2000",
"2001", "2000", "2001", "2000", "2001", "2000", "2001", "2000",
"2001", "2000", "2001", "2000", "2001", "2000", "2001", "2000",
"2001", "2000", "2001", "2000", "2001", "2000", "2001", "2000",
"2001", "2000", "2001", "2000", "2001", "2000", "2001", "2000",
"2001", "2000", "2001", "2000", "2001", "2000", "2001", "2000",
"2001", "2000", "2001", "2000", "2001", "2000", "2001", "2000",
"2001", "2000", "2001", "2000", "2001", "2000", "2001", "2000",
"2001"), value = c(19, 11, 83, 80, 87, 79, 87, 45, 1000, 500,
89, 163, 41, 101, 53, 3, 39, 55, 500, 347, 71, 89, 37, 43, 23,
41, 243, 175, 271, 215, 75, 3, 22, 33, 11, 15, 5, 55, 18, 60,
17, 79, 59, 61, 193, 165, 11, 65, 237, 299, 373, 233, 17, 7,
69, 21, 433, 81, 79, 63, 127, 95, 5, 111, 341, 373, 53, 53,
35, 63, 157, 81, 75, 35, 57, 23, 445, 511, 17, 15, 21, 79, 118,
88, 153, 167, 68, 471, 1, 83, 18, 8, 55, 21, 95, 35, 33, 47,
13, 23, 7, 17)), .Names = c("region", "date", "value"), row.names = c(NA,
-102L), class = c("tbl_df", "tbl", "data.frame"))
## app.R ##
library(dplyr)
library(choroplethr)
library(choroplethrMaps)
library(lubridate)
server <- function(input, output) {
output$distPlot <- renderPlot({
df1 <- filter(df, date==as.character(input$year))
p <- state_choropleth(df1,
title = "Population Estimates",
legend = "Population",
num_colors = 1
)
print(p)
})
}
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
sliderInput("year", "Year:", min = 2000, max = 2001, step=1, value = 2000, sep = "")
),
mainPanel(plotOutput("distPlot"))
)
)
shinyApp(ui = ui, server = server)
Solution
Since state_choropleth() returns a ggplot object, you can use scale_fill_gradient(). You can get the range of all the data with range(df$value).
So if renderPlot() returns:
print(p + scale_fill_gradient(limits = range(df$value))
it should do the job.
- Converting the row of a data.table to a vector
- ggplot multi-line log-log labels
- dplyr filter vector by position in pipe %>%
- Removing white spaces in a histogram?
- How to assign and match land cover type from Corine to a dataframe with a set of lon lat coordinates?
- Error in list2env(list, envir = .GlobalEnv) : names(x) must be a character vector of the same length as x
- How to traverse hclust internal node in R
- How are the abbreviations from the par function like mgp, mar, mai, deciphered?
- How to map over function with multiple arguments (and changing data)?
- Join/fill in data based on both row and column values
- How to plot a Log Pearson III distribution using `ggplot2` in R?
- Variable names and Easystats reports
- R plotly(): Adding regression line to a correlation scatter plot
- How to Use ifelse Statements in R
- Creating subgraphs from neighbors with max weight in R using igraph
- merge based on id and dates with missing data
- Automatically adjust the size of the text inside each bar on a bar plot using ggplot2 in R
- gghighlight and facet_wrap one always highlighted
- Mask and Crop functions in Terra R
- How to use a variable in dplyr::filter?
- Changing R Temporary Files
- How do you add a general label to facets in ggplot2?
- change colour of controls in R DT datatable
- Click Button Within Datatable to Display Popup Twice in a row
- How to display values in filter with ascending order
- Select Data From Column in Data Table
- Warning: Error in dataTableOutput: unused argument (height = "auto")
- How to have cells with rounded corners in {gt}?
- Two colours in the same box
- Change color of datatable filter dropdown box