shiny_main/Shiny_1.6.R
In PADeCI/demogmx: Demographic data for Mexico
# Libraries ---------------------------------------------------------------
library(shiny)
library(ggplot2)
library(dplyr)
library(demogmx)
library(shinythemes)
library(shinycssloaders)
library(devtools)
# User Interface ----------------------------------------------------------
ui <- navbarPage(
title = "demogmx::",
position = "fixed-top",
tags$style(type="text/css", "body {padding-top: 60px;}"),
## Birthts ----------------------------------------------------------------
tabPanel("Births",
sidebarLayout(
sidebarPanel(
style = "position:fixed; width:33%;",
selectInput(inputId = "sel_state_births",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_births",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_births",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
h3(actionButton(inputId = "button_n_births",
label = "Number of births",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_r_births",
label = "Birth rate",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_prop_births",
label = "Sex proportion",
class = "btn-primary"),
align = "center"),
h3(downloadButton(outputId = "download_birth_data",
label = "Download data"),
align = "center"),
br(),
h6("NOTE 1: The graphs that have Female and Male sex are taken from
INEGI. These graphs only have information from 1985 to 2020."),
h6("NOTE 2: If sex = Total, and no other sex has been selected,
the graphs can show information from 1970 to 2050.")
),
mainPanel(
h2(textOutput("caption_n_births"), align = "center"),
plotOutput(outputId = "plt_n_births_UI",
width = "120vh",
height = "40vw") %>%
withSpinner(type = 3,
color.background = getOption("spinner.color.background",
default = "#FFFFFF")),
h2(textOutput("caption_r_births"), align = "center"),
plotOutput(outputId = "plt_r_births_UI",
width = "120vh",
height = "40vw") %>%
withSpinner(type = 3,
color.background = getOption("spinner.color.background",
default = "#FFFFFF")),
h2(textOutput("caption_prop_births"), align = "center"),
plotOutput(outputId = "plt_prop_births_UI",
width = "120vh",
height = "40vw") %>%
withSpinner(type = 3,
color.background = getOption("spinner.color.background",
default = "#FFFFFF"))
)
)
),
## Migration --------------------------------------------------------------
tabPanel("Migration",
sidebarLayout(
sidebarPanel(
style = "position:fixed; width:33%;",
fluidRow(
column(width = 6,
radioButtons(inputId = "mig_options_A",
label = "Select an option",
choices = list("International migration" = "International",
"Interstate migration" = "Interstate",
"Total migration" = "Total",
"Download data" = "download_mig_data"),
selected = character(0),
inline = FALSE)
),
column(width = 6,
uiOutput("ui_mig_options_B")
)
),
uiOutput("ui_mig_options_C"),
uiOutput("ui_mig_options_D")
),
mainPanel(
# Number
h2(textOutput("txt_n_immig"), # Immigration
align = "center"),
plotOutput(outputId = "plt_n_immig",
width = "120vh",
height = "40vw"),
h2(textOutput("txt_n_mig"), # Net migration
align = "center"),
plotOutput(outputId = "plt_n_mig",
width = "120vh",
height = "40vw"),
h2(textOutput("txt_n_emig"), # Emigration
align = "center"),
plotOutput(outputId = "plt_n_emig",
width = "120vh",
height = "40vw"),
# Rates
h2(textOutput("txt_r_immig"), # Immigration
align = "center"),
plotOutput(outputId = "plt_r_immig",
width = "120vh",
height = "40vw"),
h2(textOutput("txt_r_mig"), # Net migration
align = "center"),
plotOutput(outputId = "plt_r_mig",
width = "120vh",
height = "40vw"),
h2(textOutput("txt_r_emig"), # Emigration
align = "center"),
plotOutput(outputId = "plt_r_emig",
width = "120vh",
height = "40vw")
)
)),
## Population -------------------------------------------------------------
tabPanel("Population",
sidebarLayout(
sidebarPanel(
style = "position:fixed; width:33%;",
radioButtons(inputId = "pop_options_A",
label = "Select an option",
choices = list("One year graphs" = "one_year_pop",
"Year range graphs" = "year_range_pop",
"Download data" = "download_pop_data"),
selected = character(0),
inline = FALSE),
uiOutput("ui_pop_options_B")
),
mainPanel(
uiOutput("ui_outputs_pop")
)
)),
## Mortality --------------------------------------------------------------
tabPanel("Mortality",
sidebarLayout(
sidebarPanel(
style = "position:fixed; width:33%;",
radioButtons(inputId = "mort_options_A",
label = "Select an option",
choices = list("One year graphs" = "one_year_mort",
"Year range graphs" = "year_range_mort",
"Download data" = "download_mort_data"),
selected = character(0),
inline = FALSE),
uiOutput("ui_mort_options_B")
),
mainPanel(
uiOutput("ui_mort_outputs")
)
)),
## Aging rate -----------------------------------------------------------
tabPanel("Aging rate",
sidebarLayout(
sidebarPanel(
style = "position:fixed; width:33%;",
selectInput(inputId = "sel_state_aging",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_aging",
label = "Year",
min = 1985, max = 2020,
value = c(1985,2000),
step = 1,
ticks = TRUE,
sep = ""),
selectInput(inputId = "sel_sex_aging",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_aging",
label = "Age range",
min = 0,
max = 89,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
h3(actionButton(inputId = "button_aging_age",
label = "Get aging population",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_aging_rate",
label = "Get aging rate",
class = "btn-primary"),
align = "center"),
h3(downloadButton(outputId = "download_aging_data",
label = "Download data"),
align = "center"),
br(),
h6("NOTES:"),
h6("- The year shown in the graphs is the corresponds to the maximum value of the slider"),
h6("- The downloaded data includes all the years selected in the slider")
),
mainPanel(
h2(textOutput("txt_aging_age"),
align = "center"),
plotOutput(outputId = "plt_aging_age",
width = "120vh",
height = "40vw"),
h2(textOutput("txt_aging_rate"),
align = "center"),
plotOutput(outputId = "plt_aging_rate",
width = "120vh",
height = "40vw")
)
))
)
# Server ------------------------------------------------------------------
server <- function(input, output, session) {
## Births ---------------------------------------------------------------
### Reactive objects ----------------------------------------------------
# For birth plots
df_births <- reactive({
get_births(v_state = input$sel_state_births,
v_year = seq(input$sel_year_births[1], input$sel_year_births[2]),
year_groups = FALSE)
})
df_births_sex <- reactive({
get_births_INEGI(v_state = input$sel_state_births,
v_year = seq(input$sel_year_births[1], input$sel_year_births[2]),
v_sex = input$sel_sex_births,
year_groups = FALSE)
})
### Event reactive elements ---------------------------------------------
# Title - number of births plot
txt_n_births <- eventReactive(input$button_n_births, {
if (all(length(input$sel_sex_births) == 1 & input$sel_sex_births == "Total")) {
paste("Total number of births between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
} else if (all(length(input$sel_sex_births) == 1 & input$sel_sex_births == "Males")) {
paste("Number of males born between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
} else if (all(length(input$sel_sex_births) == 1 & input$sel_sex_births == "Females")){
paste("Number of females born between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
} else {
paste("Number of births between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
}
})
# Plot - number of births
plt_n_births <- eventReactive(input$button_n_births, {
# Define breaks
v_sel_year_births <- seq(input$sel_year_births[1], input$sel_year_births[2])
v_mult_5_births <- c(input$sel_year_births[1],
v_sel_year_births[which(v_sel_year_births %% 5 == 0)],
input$sel_year_births[2])
if ("Male" %in% input$sel_sex_births | "Female" %in% input$sel_sex_births) {
ggplot(data = df_births_sex(),
mapping = aes(x = year, y = births, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of births") +
scale_x_continuous(name = "Year",
breaks = v_mult_5_births,
minor_breaks = v_sel_year_births) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
# ggplot(data = df_births_sex(),
# mapping = aes(x = year, y = births, color = state, linetype = sex)) +
# scale_y_continuous(name = "Number of births") +
# scale_x_continuous(name = "Year") +
# guides(color = guide_legend(title = "State"),
# linetype = guide_legend(title = "Sex")) +
# plt_base(maj_breaks = v_mult_5_births,
# min_breaks = v_sel_year_births)
} else {
ggplot(data = df_births(),
mapping = aes(x = year, y = births, color = state)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of births") +
scale_x_continuous(name = "Year",
breaks = v_mult_5_births,
minor_breaks = v_sel_year_births) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# Title - birth rate plot
txt_r_births <- eventReactive(input$button_r_births, {
if (all(length(input$sel_sex_births) == 1 & input$sel_sex_births == "Total")) {
paste("Total birth rate between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
} else if (all(length(input$sel_sex_births) == 1 & input$sel_sex_births == "Male")) {
paste("Male birth rate between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
} else if (all(length(input$sel_sex_births) == 1 & input$sel_sex_births == "Female")){
paste("Female birth rate between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
} else {
paste("Birth rates between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
}
})
# Plot - birth rate plot
plt_r_births <- eventReactive(input$button_r_births, {
# Define breaks
v_sel_year_births <- seq(input$sel_year_births[1], input$sel_year_births[2])
v_mult_5_births <- c(input$sel_year_births[1],
v_sel_year_births[which(v_sel_year_births %% 5 == 0)],
input$sel_year_births[2])
if ("Male" %in% input$sel_sex_births | "Female" %in% input$sel_sex_births) {
ggplot(data = df_births_sex(),
mapping = aes(x = year, y = birth_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Birth rate") +
scale_x_continuous(name = "Year",
breaks = v_mult_5_births,
minor_breaks = v_sel_year_births) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
} else {
ggplot(data = df_births(),
mapping = aes(x = year, y = birth_rate, color = state)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Birth rate") +
scale_x_continuous(name = "Year",
breaks = v_mult_5_births,
minor_breaks = v_sel_year_births) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# Title - proportion of births plot
txt_prop_births <- eventReactive(input$button_prop_births, {
paste("Proportion of births that are female between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
})
# Plot -proportion of births plot
plt_prop_births <- eventReactive(input$button_prop_births, {
# Define breaks
v_sel_year_births <- seq(input$sel_year_births[1], input$sel_year_births[2])
v_mult_5_births <- c(input$sel_year_births[1],
v_sel_year_births[which(v_sel_year_births %% 5 == 0)],
input$sel_year_births[2])
df_births_fem <- get_births_INEGI(v_state = input$sel_state_births,
v_year = seq(input$sel_year_births[1], input$sel_year_births[2]),
v_sex = "Female",
year_groups = FALSE)
ggplot(data = df_births_fem,
mapping = aes(x = year, y = birth_prop, color = state)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0.5, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Proportion") +
scale_x_continuous(name = "Year",
breaks = v_mult_5_births,
minor_breaks = v_sel_year_births) +
guides(color = guide_legend(title = "State"))
})
### Render outputs ------------------------------------------------------
# Title - number of births plot
output$caption_n_births <- renderText({txt_n_births()})
# Plot - number of births
output$plt_n_births_UI <- renderPlot({plt_n_births()})
# Title - birth rate plot
output$caption_r_births <- renderText({txt_r_births()})
# Plot - birth rate
output$plt_r_births_UI <- renderPlot({plt_r_births()})
# Title - birth rate plot
output$caption_prop_births <- renderText({txt_prop_births()})
# Plot - birth rate
output$plt_prop_births_UI <- renderPlot({plt_prop_births()})
# Birth data for download
output$download_birth_data <- downloadHandler(
filename = "birth_data.zip",
content = function(file) {
owd <- setwd(tempdir())
on.exit(setwd(owd))
fs <- c("df_births.csv", "df_births_sex.csv")
write.csv(x = df_births(), file = "df_births.csv", row.names = F)
write.csv(x = df_births_sex(), file = "df_births_sex.csv", row.names = F)
zip(zipfile = file, files = fs)
},
contentType = "application/zip"
)
## Migration ------------------------------------------------------------
### Render UI's --------------------------------------------------------
# By year, age, and download data
output$ui_mig_options_B <- renderUI({
if (is.null(input$mig_options_A)) {
return(NULL)
}
else if (input$mig_options_A == "download_mig_data") {
return(NULL)
}
else { # New set of options for plotting
radioButtons(inputId = "mig_options_B",
label = "Select a graph",
choices = c("By year", "By age"),
selected = character(0),
inline = FALSE)
}
})
# Third set of inputs (Select state, year, age, sex, and go! buttons)
output$ui_mig_options_C <- renderUI({
if (is.null(input$mig_options_B)) {
return(NULL)
}
else if (input$mig_options_A == "download_mig_data") {
return(NULL)
}
else if (input$mig_options_B == "By year") {
tagList(
selectInput(inputId = "sel_state_mig",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_mig",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_mig",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
fluidRow(style = "margin-top:-2em;",
column(width = 3,
h4("Number:", align = "center", style = "padding:20px;")
),
column(width = 3,
h3(actionButton(inputId = "button_n_immigrants",
label = "Immigration",
class = "btn-primary"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_n_migrants",
label = "Net migration",
class = "btn-primary"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_n_emigrants",
label = "Emigration",
class = "btn-primary"),
align = "center"),
)
),
fluidRow(style = "margin-bottom:-2em;",
column(width = 3,
h4("Rate:", align = "center", style = "padding:20px;")
),
column(width = 3,
h3(actionButton(inputId = "button_r_immigrants",
label = "Immigration",
class = "btn-info"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_r_migrants",
label = "Net migration",
class = "btn-info"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_r_emigrants",
label = "Emigration",
class = "btn-info"),
align = "center"),
),
),
h6("NOTE: In this option, the graphs show the migration data of all the ages.")
)
}
else if (input$mig_options_B == "By age") {
tagList(
selectInput(inputId = "sel_state_mig",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_mig",
label = "Year",
value = 2005,
min = 1970, max = 2050,
step = 1,
ticks = TRUE,
sep = ""),
selectInput(inputId = "sel_sex_mig",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_mig",
label = "Age",
min = 0,
max = 89,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
fluidRow(style = "margin-top:-2em",
column(width = 3,
h4("Number:", align = "center", style = "padding:20px;")
),
column(width = 3,
h3(actionButton(inputId = "button_n_immigrants",
label = "Immigration",
class = "btn-primary"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_n_migrants",
label = "Net migration",
class = "btn-primary"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_n_emigrants",
label = "Emigration",
class = "btn-primary"),
align = "center"),
)
),
fluidRow(style = "margin-bottom:-2em",
column(width = 3,
h4("Rate:", align = "center", style = "padding:20px;")
),
column(width = 3,
h3(actionButton(inputId = "button_r_immigrants",
label = "Immigration",
class = "btn-info"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_r_migrants",
label = "Net migration",
class = "btn-info"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_r_emigrants",
label = "Emigration",
class = "btn-info"),
align = "center"),
),
),
br(),
h6("NOTE:In this option, the graphs show the migration data of selected age range in only one year.")
)
}
})
# Fourth set of inputs (Download data)
output$ui_mig_options_D <- renderUI({
if (is.null(input$mig_options_A)) {
return(NULL)
}
else if (input$mig_options_A == "download_mig_data") {
tagList(
selectInput(inputId = "sel_type_mig",
label = "Type of migration",
choices = unique(df_migration_expanded$type),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
selectInput(inputId = "sel_state_mig",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_mig",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_mig",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_mig",
label = "Age range",
min = 0,
max = 89,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
h3(downloadButton(outputId = "download_mig_data",
label = "Download data"),
align = "center")
)
}
else {
return(NULL)
}
})
### Reactive objects ----------------------------------------------------
# Filtered base dataset
df_mig <- reactive({
get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = seq(input$sel_age_mig[1],
input$sel_age_mig[2]),
v_type = input$sel_type_mig,
age_groups = FALSE)
})
# To establish minor and major breaks in graphs's x-axis
v_minor_breaks <- reactive({
if (is.null(input$mig_options_B)) {
return(NULL)
}
else if (input$mig_options_B == "By year") {
seq(input$sel_year_mig[1], input$sel_year_mig[2])
}
else if (input$mig_options_B == "By age") {
seq(input$sel_age_mig[1], input$sel_age_mig[2])
}
})
v_major_breaks <- reactive({
if (is.null(input$mig_options_B)) {
return(NULL)
}
else if (input$mig_options_B == "By year") {
c(input$sel_year_mig[1],
v_minor_breaks()[which(v_minor_breaks() %% 5 == 0)],
input$sel_year_mig[2])
}
else if (input$mig_options_B == "By age") {
c(input$sel_age_mig[1],
v_minor_breaks()[which(v_minor_breaks() %% 5 == 0)],
input$sel_age_mig[2])
}
})
### Event reactive elements ---------------------------------------------
# immigration number
txt_n_immig_server <- eventReactive(input$button_n_immigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
paste("International immigration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
paste("International immigration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
paste("Interstate immigration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
paste("Interstate immigration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
paste("Total immigration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
paste("Total immigration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
})
plt_n_immig_server <- eventReactive(input$button_n_immigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "International",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = immigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of immigrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "International",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = immigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of immigrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Interstate",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = immigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of immigrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Interstate",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = immigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of immigrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Total",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = immigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of immigrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Total",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = immigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of immigrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# Net migration number
txt_n_mig_server <- eventReactive(input$button_n_migrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
paste("International net migration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
paste("International net migration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
paste("Interstate net migration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
paste("Interstate net migration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
paste("Total net migration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
paste("Total net migration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
})
plt_n_mig_server <- eventReactive(input$button_n_migrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "International",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = net_migration, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net number of migrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "International",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = net_migration, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net number of migrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Interstate",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = net_migration, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net number of migrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Interstate",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = net_migration, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net number of migrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Total",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = net_migration, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net number of migrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Total",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = net_migration, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net number of migrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# emigration number
txt_n_emig_server <- eventReactive(input$button_n_emigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
paste("International emigration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
paste("International emigration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
paste("Interstate emigration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
paste("Interstate emigration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
paste("Total emigration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
paste("Total emigration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
})
plt_n_emig_server <- eventReactive(input$button_n_emigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "International",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = emigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of emigrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "International",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = emigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of emigrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Interstate",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = emigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of emigrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Interstate",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = emigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of emigrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Total",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = emigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of emigrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Total",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = emigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of emigrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# immigration rate
txt_r_immig_server <- eventReactive(input$button_r_immigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
paste("International immigration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
paste("International immigration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
paste("Interstate immigration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
paste("Interstate immigration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
paste("Total immigration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
paste("Total immigration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
})
plt_r_immig_server <- eventReactive(input$button_r_immigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "International",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = im_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Immigration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "International",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = im_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Immigration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Interstate",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = im_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Immigration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Interstate",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = im_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Immigration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Total",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = im_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Immigration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Total",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = im_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Immigration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# net migration rate
txt_r_mig_server <- eventReactive(input$button_r_migrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
paste("International net migration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
paste("International net migration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
paste("Interstate net migration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
paste("Interstate net migration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
paste("Total net migration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
paste("Total net migration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
})
plt_r_mig_server <- eventReactive(input$button_r_migrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "International",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = nm_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net migration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "International",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = nm_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net migration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Interstate",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = nm_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net migration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Interstate",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = nm_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net migration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Total",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = nm_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net migration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Total",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = nm_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net migration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# emigration rate
txt_r_emig_server <- eventReactive(input$button_r_emigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
paste("International emigration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
paste("International emigration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
paste("Interstate emigration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
paste("Interstate emigration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
paste("Total emigration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
paste("Total emigration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
})
plt_r_emig_server <- eventReactive(input$button_r_emigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "International",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = em_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Emigration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "International",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = em_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Emigration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Interstate",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = em_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Emigration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Interstate",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = em_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Emigration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Total",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = em_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Emigration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Total",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = em_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Emigration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
### Render outputs ------------------------------------------------------
# immigration number
output$txt_n_immig <- renderText({txt_n_immig_server()})
output$plt_n_immig <- renderPlot({plt_n_immig_server()})
# net migration number
output$txt_n_mig <- renderText({txt_n_mig_server()})
output$plt_n_mig <- renderPlot({plt_n_mig_server()})
# emigration number
output$txt_n_emig <- renderText({txt_n_emig_server()})
output$plt_n_emig <- renderPlot({plt_n_emig_server()})
# immigration rate
output$txt_r_immig <- renderText({txt_r_immig_server()})
output$plt_r_immig <- renderPlot({plt_r_immig_server()})
# net migration rate
output$txt_r_mig <- renderText({txt_r_mig_server()})
output$plt_r_mig <- renderPlot({plt_r_mig_server()})
# emigration rate
output$txt_r_emig <- renderText({txt_r_emig_server()})
output$plt_r_emig <- renderPlot({plt_r_emig_server()})
# Migration data for download
output$download_mig_data <- downloadHandler(
filename = "migration_data.csv",
content = function(file) {
write.csv(x = df_mig(), file = file, row.names = FALSE)
}
)
## Population -----------------------------------------------------------
### Render UI's ----------------------------------------------------------
# Inputs set based on User selection
output$ui_pop_options_B <- renderUI({
if (is.null(input$pop_options_A)) {
return(NULL)
}
else if (input$pop_options_A == "download_pop_data") {
tagList(
selectInput(inputId = "sel_state_pop",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_pop",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_pop",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_pop",
label = "Age range",
min = 0,
max = 100,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
br(),
h3(downloadButton(outputId = "download_pop_data",
label = "Download data"),
align = "center")
)
}
else if (input$pop_options_A == "one_year_pop") {
# State, 1 Year, Sex, Age (Range)
tagList(
selectInput(inputId = "sel_state_pop",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_pop",
label = "Year",
min = 1970, max = 2050,
value = 2005,
step = 1,
ticks = TRUE,
sep = ""),
selectInput(inputId = "sel_sex_pop",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_pop",
label = "Age range",
min = 0,
max = 100,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
h3(actionButton(inputId = "button_pop_age",
label = "Get population by age",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_pyramid",
label = "Get population pyramid",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_pop_prop_age",
label = "Get sex proportion by age",
class = "btn-primary"),
align = "center")
)
}
else if (input$pop_options_A == "year_range_pop") {
# State, Year (Range), Sex, Age (all ages)
tagList(
selectInput(inputId = "sel_state_pop",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_pop",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_pop",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
h3(actionButton(inputId = "button_pop_years",
label = "Get population by years",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_pop_prop_year",
label = "Get sex proportion by years",
class = "btn-primary"),
align = "center")
)
}
})
# Download data, Plot and text outputs
output$ui_outputs_pop <- renderUI({
if (is.null(input$pop_options_A)) {
return(NULL)
}
else if (input$pop_options_A == "one_year_pop") {
tagList(
h2(textOutput("txt_pop_age"),
align = "center"),
plotOutput(outputId = "plt_pop_age",
width = "120vh",
height = "45vw"),
h2(textOutput("txt_pyramid"),
align = "center"),
plotOutput(outputId = "plt_pyramid",
width = "120vh",
height = "45vw"),
h2(textOutput("txt_pop_prop_age"),
align = "center"),
plotOutput(outputId = "plt_pop_prop_age",
width = "120vh",
height = "45vw")
)
}
else if (input$pop_options_A == "year_range_pop") {
tagList(
h2(textOutput("txt_pop_years"),
align = "center"),
plotOutput(outputId = "plt_pop_years",
width = "120vh",
height = "45vw"),
h2(textOutput("txt_pop_prop_year"),
align = "center"),
plotOutput(outputId = "plt_pop_prop_year",
width = "120vh",
height = "45vw")
)
}
})
### Reactive objects ----------------------------------------------------
# Filtered dataset
df_pop_server <- reactive({
if (input$pop_options_A == "one_year_pop") {
get_population(v_state = input$sel_state_pop,
v_year = input$sel_year_pop,
v_sex = input$sel_sex_pop,
v_age = seq(input$sel_age_pop[1],
input$sel_age_pop[2]),
age_groups = FALSE)
}
else if (input$pop_options_A == "year_range_pop") {
get_population(v_state = input$sel_state_pop,
v_year = seq(input$sel_year_pop[1],
input$sel_year_pop[2]),
v_sex = input$sel_sex_pop,
v_age = c(0, 109),
age_groups = TRUE)
}
else if (input$pop_options_A == "download_pop_data") {
get_population(v_state = input$sel_state_pop,
v_year = seq(input$sel_year_pop[1],
input$sel_year_pop[2]),
v_sex = input$sel_sex_pop,
v_age = seq(input$sel_age_pop[1],
input$sel_age_pop[2]),
age_groups = FALSE)
}
})
# To establish minor and major breaks in graphs's x-axis
v_minor_breaks_pop <- reactive({
if (is.null(input$pop_options_A)) {
return(NULL)
}
else if (input$pop_options_A == "one_year_pop") {
seq(input$sel_age_pop[1], input$sel_age_pop[2])
}
else if (input$pop_options_A == "year_range_pop") {
seq(input$sel_year_pop[1], input$sel_year_pop[2])
}
})
v_major_breaks_pop <- reactive({
if (is.null(input$pop_options_A)) {
return(NULL)
}
else if (input$pop_options_A == "one_year_pop") {
c(input$sel_age_pop[1],
v_minor_breaks_pop()[which(v_minor_breaks_pop() %% 5 == 0)],
input$sel_age_pop[2])
}
else if (input$pop_options_A == "year_range_pop") {
c(input$sel_year_pop[1],
v_minor_breaks_pop()[which(v_minor_breaks_pop() %% 5 == 0)],
input$sel_year_pop[2])
}
})
### Event reactive elements ---------------------------------------------
# Population by age
txt_pop_age_server <- eventReactive(input$button_pop_age, {
paste("Population from", input$sel_age_pop[1], " to ", input$sel_age_pop[2],
" years of age in ", input$sel_year_pop)
})
plt_pop_age_server <- eventReactive(input$button_pop_age, {
ggplot(data = df_pop_server(), aes(x = age, y = population,
color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Population") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks_pop(),
minor_breaks = v_minor_breaks_pop()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
# Population pyramid
txt_pyramid_server <- eventReactive(input$button_pyramid, {
paste("Population pyramid of people between ", input$sel_age_pop[1],
" and ", input$sel_age_pop[1], " years of age in ", input$sel_year_pop)
})
plt_pyramid_server <- eventReactive(input$button_pyramid, {
# Filter dataset
df_pyramid <- get_population(v_state = input$sel_state_pop,
v_year = input$sel_year_pop,
v_sex = c("Male", "Female"),
v_age = seq(input$sel_age_pop[1],
input$sel_age_pop[2]),
age_groups = FALSE)
# Create pyramid plot
ggplot(df_pyramid, aes(x = ifelse(test = (sex == "Male"),
yes = -population, no = population),
y = factor(age), fill = sex)) +
theme_bw(base_size = 11) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22)) +
geom_col() +
scale_x_continuous(name = "Population (thousands)",
labels = function(x) format(abs(x/1000), big.mark = ",", scientific = FALSE),
breaks = scales::breaks_pretty(n = 10)) +
scale_y_discrete(name = "Age (Years)",
breaks = seq(from = input$sel_age_pop[1],
to = input$sel_age_pop[2],
by = 5)) +
guides(fill = guide_legend(title = "Sex")) +
theme(legend.position = "bottom") +
facet_wrap(~ state)
})
# Sex proportion by age
txt_pop_prop_age_server <- eventReactive(input$button_pop_prop_age, {
paste("Sex proportion of population from ", input$sel_age_pop[1], " to ",
input$sel_age_pop[2], " years of age in ", input$sel_year_pop)
})
plt_pop_prop_age_server <- eventReactive(input$button_pop_prop_age, {
# Filter dataset
df_prop_age <- get_population(v_state = input$sel_state_pop,
v_year = input$sel_year_pop,
v_sex = c("Male", "Female"),
v_age = seq(input$sel_age_pop[1],
input$sel_age_pop[2]),
age_groups = FALSE)
# Create plot
ggplot(data = df_prop_age, aes(x = age, y = population, fill = sex)) +
geom_col(position = "fill") +
geom_hline(yintercept = 0.5, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme_bw(base_size = 11) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22)) +
scale_y_continuous(labels = scales::comma,
name = "Proportion") +
scale_x_continuous(name = "Age (Years)") +
guides(fill = guide_legend(title = "Sex")) +
coord_cartesian(ylim = c(0.45, 0.55)) +
facet_wrap(~ state)
})
# Population by year
txt_pop_years_server <- eventReactive(input$button_pop_years, {
paste("Total population from ", input$sel_year_pop[1], " to ", input$sel_year_pop[2])
})
plt_pop_years_server <- eventReactive(input$button_pop_years, {
# Crete plot
ggplot(data = df_pop_server(), aes(x = year, y = population,
color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Population") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks_pop(),
minor_breaks = v_minor_breaks_pop()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
# Sex proportion by year
txt_pop_prop_year_server <- eventReactive(input$button_pop_prop_year, {
paste("Sex proportion within total population from ", input$sel_year_pop[1], " to ", input$sel_year_pop[2])
})
plt_pop_prop_year_server <- eventReactive(input$button_pop_prop_year, {
# Filter dataset (to have both sexes)
df_prop_pop <- get_population(v_state = input$sel_state_pop,
v_year = seq(input$sel_year_pop[1],
input$sel_year_pop[2]),
v_sex = c("Male", "Female"),
v_age = c(0, 109),
age_groups = TRUE)
# Create plot
ggplot(data = df_prop_pop,
mapping = aes(x = year, y = population, fill = sex)) +
theme_bw(base_size = 11) +
geom_col(position = "fill") +
geom_hline(yintercept = 0.5, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22)) +
scale_y_continuous(labels = scales::comma,
name = "Proportion") +
scale_x_continuous(name = "Year") +
guides(fill = guide_legend(title = "Sex")) +
coord_cartesian(ylim = c(0.475, 0.525)) +
facet_wrap(~ state)
})
### Render outputs ------------------------------------------------------
# Population by age
output$txt_pop_age <- renderText({txt_pop_age_server()})
output$plt_pop_age <- renderPlot({plt_pop_age_server()})
# Population pyramid
output$txt_pyramid <- renderText({txt_pyramid_server()})
output$plt_pyramid <- renderPlot({plt_pyramid_server()})
# Sex proportion by age
output$txt_pop_prop_age <- renderText({txt_pop_prop_age_server()})
output$plt_pop_prop_age <- renderPlot({plt_pop_prop_age_server()})
# Population by year
output$txt_pop_years <- renderText({txt_pop_years_server()})
output$plt_pop_years <- renderPlot({plt_pop_years_server()})
# Sex proportion by year
output$txt_pop_prop_year <- renderText({txt_pop_prop_year_server()})
output$plt_pop_prop_year <- renderPlot({plt_pop_prop_year_server()})
# Population data for download
output$download_pop_data <- downloadHandler(
filename = "population_data.csv",
content = function(file) {
write.csv(x = df_pop_server(), file = file, row.names = FALSE)
}
)
## Mortality ------------------------------------------------------------
### Render UI's ---------------------------------------------------------
# Inputs set based on User selection
output$ui_mort_options_B <- renderUI({
if (is.null(input$mort_options_A)) {
return(NULL)
}
else if (input$mort_options_A == "download_mort_data") {
tagList(
selectInput(inputId = "sel_state_mort",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_mort",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_mort",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_mort",
label = "Age range",
min = 0,
max = 100,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
br(),
h3(downloadButton(outputId = "download_mort_data",
label = "Download data"),
align = "center")
)
}
else if (input$mort_options_A == "one_year_mort") {
# State, 1 Year, Sex, Age (Range)
tagList(
selectInput(inputId = "sel_state_mort",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_mort",
label = "Year",
min = 1970, max = 2050,
value = 2005,
step = 1,
ticks = TRUE,
sep = ""),
selectInput(inputId = "sel_sex_mort",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_mort",
label = "Age range",
min = 0,
max = 100,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
h3(actionButton(inputId = "button_mort_age",
label = "Get mortality by age",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_mort_prop_age",
label = "Get mortality proportion by age",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_mort_rate_age",
label = "Get mortality rate by age",
class = "btn-primary"),
align = "center")
)
}
else if (input$mort_options_A == "year_range_mort") {
tagList(
selectInput(inputId = "sel_state_mort",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_mort",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_mort",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
h3(actionButton(inputId = "button_mort_years",
label = "Get mortality by years",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_mort_prop_year",
label = "Get mortality proportion by year",
class = "btn-primary"),
align = "center")
)
}
})
# Download data, Plot and text outputs
output$ui_mort_outputs <- renderUI({
if (is.null(input$mort_options_A)) {
return(NULL)
}
else if (input$mort_options_A == "one_year_mort") {
tagList(
h2(textOutput("txt_mort_age"),
align = "center"),
plotOutput(outputId = "plt_mort_age",
width = "120vh",
height = "45vw"),
h2(textOutput("txt_mort_prop_age"),
align = "center"),
plotOutput(outputId = "plt_mort_prop_age",
width = "120vh",
height = "45vw"),
h2(textOutput("txt_mort_rate_age"),
align = "center"),
plotOutput(outputId = "plt_mort_rate_age",
width = "120vh",
height = "45vw")
)
}
else if (input$mort_options_A == "year_range_mort") {
tagList(
h2(textOutput("txt_mort_years"),
align = "center"),
plotOutput(outputId = "plt_mort_years",
width = "120vh",
height = "45vw"),
h2(textOutput("txt_mort_prop_year"),
align = "center"),
plotOutput(outputId = "plt_mort_prop_year",
width = "120vh",
height = "45vw")
)
}
})
### Reactive objects ----------------------------------------------------
# Filtered dataset
df_mort_server <- reactive({
if (input$mort_options_A == "one_year_mort") {
get_deaths(v_state = input$sel_state_mort,
v_year = input$sel_year_mort,
v_sex = input$sel_sex_mort,
v_age = seq(input$sel_age_mort[1],
input$sel_age_mort[2]),
age_groups = FALSE)
}
else if (input$mort_options_A == "year_range_mort") {
get_deaths(v_state = input$sel_state_mort,
v_year = seq(input$sel_year_mort[1],
input$sel_year_mort[2]),
v_sex = input$sel_sex_mort,
v_age = c(0, 109),
age_groups = TRUE)
}
else if (input$mort_options_A == "download_mort_data") {
get_deaths(v_state = input$sel_state_mort,
v_year = seq(input$sel_year_mort[1],
input$sel_year_mort[2]),
v_sex = input$sel_sex_mort,
v_age = seq(input$sel_age_mort[1],
input$sel_age_mort[2]),
age_groups = FALSE)
}
})
# To establish minor and major breaks in graphs's x-axis
v_minor_breaks_mort <- reactive({
if (is.null(input$mort_options_A)) {
return(NULL)
}
else if (input$mort_options_A == "one_year_mort") {
seq(input$sel_age_mort[1], input$sel_age_mort[2])
}
else if (input$mort_options_A == "year_range_mort") {
seq(input$sel_year_mort[1], input$sel_year_mort[2])
}
})
v_major_breaks_mort <- reactive({
if (is.null(input$mort_options_A)) {
return(NULL)
}
else if (input$mort_options_A == "one_year_mort") {
c(input$sel_age_mort[1],
v_minor_breaks_mort()[which(v_minor_breaks_mort() %% 5 == 0)],
input$sel_age_mort[2])
}
else if (input$mort_options_A == "year_range_mort") {
c(input$sel_year_mort[1],
v_minor_breaks_mort()[which(v_minor_breaks_mort() %% 5 == 0)],
input$sel_year_mort[2])
}
})
### Event reactive elements ---------------------------------------------
# Mortality by age
txt_mort_age_server <- eventReactive(input$button_mort_age, {
paste("Mortality from", input$sel_age_mort[1], " to ", input$sel_age_mort[2],
" years of age in ", input$sel_year_mort)
})
plt_mort_age_server <- eventReactive(input$button_mort_age, {
ggplot(data = df_mort_server(), aes(x = age, y = deaths,
color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of deaths") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks_mort(),
minor_breaks = v_minor_breaks_mort()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
# Sex proportion by age
txt_mort_prop_age_server <- eventReactive(input$button_mort_prop_age, {
paste("Mortality proportion by sex from ", input$sel_age_mort[1], " to ",
input$sel_age_mort[2], " years of age in ", input$sel_year_mort)
})
plt_mort_prop_age_server <- eventReactive(input$button_mort_prop_age, {
# Filter dataset
df_prop_age <- get_deaths(v_state = input$sel_state_mort,
v_year = input$sel_year_mort,
v_sex = c("Male", "Female"),
v_age = seq(input$sel_age_mort[1],
input$sel_age_mort[2]),
age_groups = FALSE)
# Create plot
ggplot(data = df_prop_age, aes(x = age, y = deaths, fill = sex)) +
geom_col(position = "fill") +
geom_hline(yintercept = 0.5, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme_bw(base_size = 11) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22)) +
scale_y_continuous(labels = scales::comma,
name = "Proportion") +
scale_x_continuous(name = "Age (Years)") +
guides(fill = guide_legend(title = "Sex")) +
coord_cartesian(ylim = c(0, 1)) +
facet_wrap(~ state)
})
# Mortality rate by age
txt_mort_rate_age_server <- eventReactive(input$button_mort_rate_age, {
paste("Mortality rate from", input$sel_age_mort[1], " to ", input$sel_age_mort[2],
" years of age in ", input$sel_year_mort)
})
plt_mort_rate_age_server <- eventReactive(input$button_mort_rate_age, {
# Create plot
ggplot(data = df_mort_server(),
aes(x = age, y = death_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Mortality rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks_mort(),
minor_breaks = v_minor_breaks_mort()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
# Mortality by year
txt_mort_years_server <- eventReactive(input$button_mort_years, {
paste("Number of deaths from ", input$sel_year_mort[1], " to ", input$sel_year_mort[2])
})
plt_mort_years_server <- eventReactive(input$button_mort_years, {
# Crete plot
ggplot(data = df_mort_server(), aes(x = year, y = deaths,
color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of deaths") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks_mort(),
minor_breaks = v_minor_breaks_mort()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
# Sex proportion by year
txt_mort_prop_year_server <- eventReactive(input$button_mort_prop_year, {
paste("Mortality proportion by sex from ", input$sel_year_mort[1], " to ", input$sel_year_mort[2])
})
plt_mort_prop_year_server <- eventReactive(input$button_mort_prop_year, {
# Filter dataset (to have both sexes)
df_prop_mort <- get_deaths(v_state = input$sel_state_mort,
v_year = seq(input$sel_year_mort[1],
input$sel_year_mort[2]),
v_sex = c("Male", "Female"),
v_age = c(0, 109),
age_groups = TRUE)
# Create plot
ggplot(data = df_prop_mort,
mapping = aes(x = year, y = deaths, fill = sex)) +
theme_bw(base_size = 11) +
geom_col(position = "fill") +
geom_hline(yintercept = 0.5, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22)) +
scale_y_continuous(labels = scales::comma,
name = "Proportion") +
scale_x_continuous(name = "Year") +
guides(fill = guide_legend(title = "Sex")) +
coord_cartesian(ylim = c(0, 1)) +
facet_wrap(~ state)
})
### Render outputs ------------------------------------------------------
# Mortality by age
output$txt_mort_age <- renderText({txt_mort_age_server()})
output$plt_mort_age <- renderPlot({plt_mort_age_server()})
# Sex proportion by age
output$txt_mort_prop_age <- renderText({txt_mort_prop_age_server()})
output$plt_mort_prop_age <- renderPlot({plt_mort_prop_age_server()})
# Mortality rate by sex
output$txt_mort_rate_age <- renderText({txt_mort_rate_age_server()})
output$plt_mort_rate_age <- renderPlot({plt_mort_rate_age_server()})
# Mortality by year
output$txt_mort_years <- renderText({txt_mort_years_server()})
output$plt_mort_years <- renderPlot({plt_mort_years_server()})
# Sex proportion by year
output$txt_mort_prop_year <- renderText({txt_mort_prop_year_server()})
output$plt_mort_prop_year <- renderPlot({plt_mort_prop_year_server()})
# Mortality data for download
output$download_mort_data <- downloadHandler(
filename = "mortality_data.csv",
content = function(file) {
write.csv(x = df_mort_server(), file = file, row.names = FALSE)
}
)
## Aging rate -----------------------------------------------------------
### Reactive objects ----------------------------------------------------
# Dataset for plotting
df_aging_server <- reactive({
get_aging_rate(v_state = input$sel_state_aging,
v_year = input$sel_year_aging[2],
v_sex = input$sel_sex_aging,
v_age = seq(input$sel_age_aging[1],
input$sel_age_aging[2])
)
})
# Dataset for downloading
df_aging_download <- reactive({
get_aging_rate(v_state = input$sel_state_aging,
v_year = seq(input$sel_year_aging[1],
input$sel_year_aging[2]),
v_sex = input$sel_sex_aging,
v_age = seq(input$sel_age_aging[1],
input$sel_age_aging[2])
)
})
# To establish minor and major breaks in graphs's x-axis
v_minor_breaks_aging <- reactive({
seq(input$sel_age_aging[1], input$sel_age_aging[2])
})
v_major_breaks_aging <- reactive({
c(input$sel_age_aging[1],
v_minor_breaks_aging()[which(v_minor_breaks_aging() %% 5 == 0)],
input$sel_age_aging[2])
})
### Event reactive elements ---------------------------------------------
# Aging population by age
txt_aging_age_server <- eventReactive(input$button_aging_age, {
paste("Aging population from", input$sel_age_aging[1], " to ", input$sel_age_aging[2],
" years of age in ", input$sel_year_aging[2])
})
plt_aging_age_server <- eventReactive(input$button_aging_age, {
# Create plot
ggplot(data = df_aging_server(),
aes(x = age, y = aging_pop, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of people") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks_aging(),
minor_breaks = v_minor_breaks_aging()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
# Aging rate by age
txt_aging_rate_server <- eventReactive(input$button_aging_rate, {
paste("Aging rate from", input$sel_age_aging[1], " to ", input$sel_age_aging[2],
" years of age in ", input$sel_year_aging[2])
})
plt_aging_rate_server <- eventReactive(input$button_aging_rate, {
# Create plot
ggplot(data = df_aging_server(),
aes(x = age, y = aging_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Aging rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks_aging(),
minor_breaks = v_minor_breaks_aging()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
### Render outputs ------------------------------------------------------
# Aging population by age
output$txt_aging_age <- renderText({txt_aging_age_server()})
output$plt_aging_age <- renderPlot({plt_aging_age_server()})
# Aging rate by age
output$txt_aging_rate <- renderText({txt_aging_rate_server()})
output$plt_aging_rate <- renderPlot({plt_aging_rate_server()})
# Aging population data for download
output$download_aging_data <- downloadHandler(
filename = "aging_pop_data.csv",
content = function(file) {
write.csv(x = df_aging_download(), file = file, row.names = FALSE)
}
)
}
shinyApp(ui, server)
PADeCI/demogmx documentation built on Jan. 27, 2024, 6:43 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# Libraries ---------------------------------------------------------------
library(shiny)
library(ggplot2)
library(dplyr)
library(demogmx)
library(shinythemes)
library(shinycssloaders)
library(devtools)
# User Interface ----------------------------------------------------------
ui <- navbarPage(
title = "demogmx::",
position = "fixed-top",
tags$style(type="text/css", "body {padding-top: 60px;}"),
## Birthts ----------------------------------------------------------------
tabPanel("Births",
sidebarLayout(
sidebarPanel(
style = "position:fixed; width:33%;",
selectInput(inputId = "sel_state_births",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_births",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_births",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
h3(actionButton(inputId = "button_n_births",
label = "Number of births",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_r_births",
label = "Birth rate",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_prop_births",
label = "Sex proportion",
class = "btn-primary"),
align = "center"),
h3(downloadButton(outputId = "download_birth_data",
label = "Download data"),
align = "center"),
br(),
h6("NOTE 1: The graphs that have Female and Male sex are taken from
INEGI. These graphs only have information from 1985 to 2020."),
h6("NOTE 2: If sex = Total, and no other sex has been selected,
the graphs can show information from 1970 to 2050.")
),
mainPanel(
h2(textOutput("caption_n_births"), align = "center"),
plotOutput(outputId = "plt_n_births_UI",
width = "120vh",
height = "40vw") %>%
withSpinner(type = 3,
color.background = getOption("spinner.color.background",
default = "#FFFFFF")),
h2(textOutput("caption_r_births"), align = "center"),
plotOutput(outputId = "plt_r_births_UI",
width = "120vh",
height = "40vw") %>%
withSpinner(type = 3,
color.background = getOption("spinner.color.background",
default = "#FFFFFF")),
h2(textOutput("caption_prop_births"), align = "center"),
plotOutput(outputId = "plt_prop_births_UI",
width = "120vh",
height = "40vw") %>%
withSpinner(type = 3,
color.background = getOption("spinner.color.background",
default = "#FFFFFF"))
)
)
),
## Migration --------------------------------------------------------------
tabPanel("Migration",
sidebarLayout(
sidebarPanel(
style = "position:fixed; width:33%;",
fluidRow(
column(width = 6,
radioButtons(inputId = "mig_options_A",
label = "Select an option",
choices = list("International migration" = "International",
"Interstate migration" = "Interstate",
"Total migration" = "Total",
"Download data" = "download_mig_data"),
selected = character(0),
inline = FALSE)
),
column(width = 6,
uiOutput("ui_mig_options_B")
)
),
uiOutput("ui_mig_options_C"),
uiOutput("ui_mig_options_D")
),
mainPanel(
# Number
h2(textOutput("txt_n_immig"), # Immigration
align = "center"),
plotOutput(outputId = "plt_n_immig",
width = "120vh",
height = "40vw"),
h2(textOutput("txt_n_mig"), # Net migration
align = "center"),
plotOutput(outputId = "plt_n_mig",
width = "120vh",
height = "40vw"),
h2(textOutput("txt_n_emig"), # Emigration
align = "center"),
plotOutput(outputId = "plt_n_emig",
width = "120vh",
height = "40vw"),
# Rates
h2(textOutput("txt_r_immig"), # Immigration
align = "center"),
plotOutput(outputId = "plt_r_immig",
width = "120vh",
height = "40vw"),
h2(textOutput("txt_r_mig"), # Net migration
align = "center"),
plotOutput(outputId = "plt_r_mig",
width = "120vh",
height = "40vw"),
h2(textOutput("txt_r_emig"), # Emigration
align = "center"),
plotOutput(outputId = "plt_r_emig",
width = "120vh",
height = "40vw")
)
)),
## Population -------------------------------------------------------------
tabPanel("Population",
sidebarLayout(
sidebarPanel(
style = "position:fixed; width:33%;",
radioButtons(inputId = "pop_options_A",
label = "Select an option",
choices = list("One year graphs" = "one_year_pop",
"Year range graphs" = "year_range_pop",
"Download data" = "download_pop_data"),
selected = character(0),
inline = FALSE),
uiOutput("ui_pop_options_B")
),
mainPanel(
uiOutput("ui_outputs_pop")
)
)),
## Mortality --------------------------------------------------------------
tabPanel("Mortality",
sidebarLayout(
sidebarPanel(
style = "position:fixed; width:33%;",
radioButtons(inputId = "mort_options_A",
label = "Select an option",
choices = list("One year graphs" = "one_year_mort",
"Year range graphs" = "year_range_mort",
"Download data" = "download_mort_data"),
selected = character(0),
inline = FALSE),
uiOutput("ui_mort_options_B")
),
mainPanel(
uiOutput("ui_mort_outputs")
)
)),
## Aging rate -----------------------------------------------------------
tabPanel("Aging rate",
sidebarLayout(
sidebarPanel(
style = "position:fixed; width:33%;",
selectInput(inputId = "sel_state_aging",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_aging",
label = "Year",
min = 1985, max = 2020,
value = c(1985,2000),
step = 1,
ticks = TRUE,
sep = ""),
selectInput(inputId = "sel_sex_aging",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_aging",
label = "Age range",
min = 0,
max = 89,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
h3(actionButton(inputId = "button_aging_age",
label = "Get aging population",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_aging_rate",
label = "Get aging rate",
class = "btn-primary"),
align = "center"),
h3(downloadButton(outputId = "download_aging_data",
label = "Download data"),
align = "center"),
br(),
h6("NOTES:"),
h6("- The year shown in the graphs is the corresponds to the maximum value of the slider"),
h6("- The downloaded data includes all the years selected in the slider")
),
mainPanel(
h2(textOutput("txt_aging_age"),
align = "center"),
plotOutput(outputId = "plt_aging_age",
width = "120vh",
height = "40vw"),
h2(textOutput("txt_aging_rate"),
align = "center"),
plotOutput(outputId = "plt_aging_rate",
width = "120vh",
height = "40vw")
)
))
)
# Server ------------------------------------------------------------------
server <- function(input, output, session) {
## Births ---------------------------------------------------------------
### Reactive objects ----------------------------------------------------
# For birth plots
df_births <- reactive({
get_births(v_state = input$sel_state_births,
v_year = seq(input$sel_year_births[1], input$sel_year_births[2]),
year_groups = FALSE)
})
df_births_sex <- reactive({
get_births_INEGI(v_state = input$sel_state_births,
v_year = seq(input$sel_year_births[1], input$sel_year_births[2]),
v_sex = input$sel_sex_births,
year_groups = FALSE)
})
### Event reactive elements ---------------------------------------------
# Title - number of births plot
txt_n_births <- eventReactive(input$button_n_births, {
if (all(length(input$sel_sex_births) == 1 & input$sel_sex_births == "Total")) {
paste("Total number of births between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
} else if (all(length(input$sel_sex_births) == 1 & input$sel_sex_births == "Males")) {
paste("Number of males born between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
} else if (all(length(input$sel_sex_births) == 1 & input$sel_sex_births == "Females")){
paste("Number of females born between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
} else {
paste("Number of births between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
}
})
# Plot - number of births
plt_n_births <- eventReactive(input$button_n_births, {
# Define breaks
v_sel_year_births <- seq(input$sel_year_births[1], input$sel_year_births[2])
v_mult_5_births <- c(input$sel_year_births[1],
v_sel_year_births[which(v_sel_year_births %% 5 == 0)],
input$sel_year_births[2])
if ("Male" %in% input$sel_sex_births | "Female" %in% input$sel_sex_births) {
ggplot(data = df_births_sex(),
mapping = aes(x = year, y = births, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of births") +
scale_x_continuous(name = "Year",
breaks = v_mult_5_births,
minor_breaks = v_sel_year_births) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
# ggplot(data = df_births_sex(),
# mapping = aes(x = year, y = births, color = state, linetype = sex)) +
# scale_y_continuous(name = "Number of births") +
# scale_x_continuous(name = "Year") +
# guides(color = guide_legend(title = "State"),
# linetype = guide_legend(title = "Sex")) +
# plt_base(maj_breaks = v_mult_5_births,
# min_breaks = v_sel_year_births)
} else {
ggplot(data = df_births(),
mapping = aes(x = year, y = births, color = state)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of births") +
scale_x_continuous(name = "Year",
breaks = v_mult_5_births,
minor_breaks = v_sel_year_births) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# Title - birth rate plot
txt_r_births <- eventReactive(input$button_r_births, {
if (all(length(input$sel_sex_births) == 1 & input$sel_sex_births == "Total")) {
paste("Total birth rate between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
} else if (all(length(input$sel_sex_births) == 1 & input$sel_sex_births == "Male")) {
paste("Male birth rate between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
} else if (all(length(input$sel_sex_births) == 1 & input$sel_sex_births == "Female")){
paste("Female birth rate between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
} else {
paste("Birth rates between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
}
})
# Plot - birth rate plot
plt_r_births <- eventReactive(input$button_r_births, {
# Define breaks
v_sel_year_births <- seq(input$sel_year_births[1], input$sel_year_births[2])
v_mult_5_births <- c(input$sel_year_births[1],
v_sel_year_births[which(v_sel_year_births %% 5 == 0)],
input$sel_year_births[2])
if ("Male" %in% input$sel_sex_births | "Female" %in% input$sel_sex_births) {
ggplot(data = df_births_sex(),
mapping = aes(x = year, y = birth_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Birth rate") +
scale_x_continuous(name = "Year",
breaks = v_mult_5_births,
minor_breaks = v_sel_year_births) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
} else {
ggplot(data = df_births(),
mapping = aes(x = year, y = birth_rate, color = state)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Birth rate") +
scale_x_continuous(name = "Year",
breaks = v_mult_5_births,
minor_breaks = v_sel_year_births) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# Title - proportion of births plot
txt_prop_births <- eventReactive(input$button_prop_births, {
paste("Proportion of births that are female between ", input$sel_year_births[1], " and ", input$sel_year_births[2])
})
# Plot -proportion of births plot
plt_prop_births <- eventReactive(input$button_prop_births, {
# Define breaks
v_sel_year_births <- seq(input$sel_year_births[1], input$sel_year_births[2])
v_mult_5_births <- c(input$sel_year_births[1],
v_sel_year_births[which(v_sel_year_births %% 5 == 0)],
input$sel_year_births[2])
df_births_fem <- get_births_INEGI(v_state = input$sel_state_births,
v_year = seq(input$sel_year_births[1], input$sel_year_births[2]),
v_sex = "Female",
year_groups = FALSE)
ggplot(data = df_births_fem,
mapping = aes(x = year, y = birth_prop, color = state)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0.5, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Proportion") +
scale_x_continuous(name = "Year",
breaks = v_mult_5_births,
minor_breaks = v_sel_year_births) +
guides(color = guide_legend(title = "State"))
})
### Render outputs ------------------------------------------------------
# Title - number of births plot
output$caption_n_births <- renderText({txt_n_births()})
# Plot - number of births
output$plt_n_births_UI <- renderPlot({plt_n_births()})
# Title - birth rate plot
output$caption_r_births <- renderText({txt_r_births()})
# Plot - birth rate
output$plt_r_births_UI <- renderPlot({plt_r_births()})
# Title - birth rate plot
output$caption_prop_births <- renderText({txt_prop_births()})
# Plot - birth rate
output$plt_prop_births_UI <- renderPlot({plt_prop_births()})
# Birth data for download
output$download_birth_data <- downloadHandler(
filename = "birth_data.zip",
content = function(file) {
owd <- setwd(tempdir())
on.exit(setwd(owd))
fs <- c("df_births.csv", "df_births_sex.csv")
write.csv(x = df_births(), file = "df_births.csv", row.names = F)
write.csv(x = df_births_sex(), file = "df_births_sex.csv", row.names = F)
zip(zipfile = file, files = fs)
},
contentType = "application/zip"
)
## Migration ------------------------------------------------------------
### Render UI's --------------------------------------------------------
# By year, age, and download data
output$ui_mig_options_B <- renderUI({
if (is.null(input$mig_options_A)) {
return(NULL)
}
else if (input$mig_options_A == "download_mig_data") {
return(NULL)
}
else { # New set of options for plotting
radioButtons(inputId = "mig_options_B",
label = "Select a graph",
choices = c("By year", "By age"),
selected = character(0),
inline = FALSE)
}
})
# Third set of inputs (Select state, year, age, sex, and go! buttons)
output$ui_mig_options_C <- renderUI({
if (is.null(input$mig_options_B)) {
return(NULL)
}
else if (input$mig_options_A == "download_mig_data") {
return(NULL)
}
else if (input$mig_options_B == "By year") {
tagList(
selectInput(inputId = "sel_state_mig",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_mig",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_mig",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
fluidRow(style = "margin-top:-2em;",
column(width = 3,
h4("Number:", align = "center", style = "padding:20px;")
),
column(width = 3,
h3(actionButton(inputId = "button_n_immigrants",
label = "Immigration",
class = "btn-primary"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_n_migrants",
label = "Net migration",
class = "btn-primary"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_n_emigrants",
label = "Emigration",
class = "btn-primary"),
align = "center"),
)
),
fluidRow(style = "margin-bottom:-2em;",
column(width = 3,
h4("Rate:", align = "center", style = "padding:20px;")
),
column(width = 3,
h3(actionButton(inputId = "button_r_immigrants",
label = "Immigration",
class = "btn-info"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_r_migrants",
label = "Net migration",
class = "btn-info"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_r_emigrants",
label = "Emigration",
class = "btn-info"),
align = "center"),
),
),
h6("NOTE: In this option, the graphs show the migration data of all the ages.")
)
}
else if (input$mig_options_B == "By age") {
tagList(
selectInput(inputId = "sel_state_mig",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_mig",
label = "Year",
value = 2005,
min = 1970, max = 2050,
step = 1,
ticks = TRUE,
sep = ""),
selectInput(inputId = "sel_sex_mig",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_mig",
label = "Age",
min = 0,
max = 89,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
fluidRow(style = "margin-top:-2em",
column(width = 3,
h4("Number:", align = "center", style = "padding:20px;")
),
column(width = 3,
h3(actionButton(inputId = "button_n_immigrants",
label = "Immigration",
class = "btn-primary"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_n_migrants",
label = "Net migration",
class = "btn-primary"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_n_emigrants",
label = "Emigration",
class = "btn-primary"),
align = "center"),
)
),
fluidRow(style = "margin-bottom:-2em",
column(width = 3,
h4("Rate:", align = "center", style = "padding:20px;")
),
column(width = 3,
h3(actionButton(inputId = "button_r_immigrants",
label = "Immigration",
class = "btn-info"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_r_migrants",
label = "Net migration",
class = "btn-info"),
align = "center"),
),
column(width = 3,
h3(actionButton(inputId = "button_r_emigrants",
label = "Emigration",
class = "btn-info"),
align = "center"),
),
),
br(),
h6("NOTE:In this option, the graphs show the migration data of selected age range in only one year.")
)
}
})
# Fourth set of inputs (Download data)
output$ui_mig_options_D <- renderUI({
if (is.null(input$mig_options_A)) {
return(NULL)
}
else if (input$mig_options_A == "download_mig_data") {
tagList(
selectInput(inputId = "sel_type_mig",
label = "Type of migration",
choices = unique(df_migration_expanded$type),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
selectInput(inputId = "sel_state_mig",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_mig",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_mig",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_mig",
label = "Age range",
min = 0,
max = 89,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
h3(downloadButton(outputId = "download_mig_data",
label = "Download data"),
align = "center")
)
}
else {
return(NULL)
}
})
### Reactive objects ----------------------------------------------------
# Filtered base dataset
df_mig <- reactive({
get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = seq(input$sel_age_mig[1],
input$sel_age_mig[2]),
v_type = input$sel_type_mig,
age_groups = FALSE)
})
# To establish minor and major breaks in graphs's x-axis
v_minor_breaks <- reactive({
if (is.null(input$mig_options_B)) {
return(NULL)
}
else if (input$mig_options_B == "By year") {
seq(input$sel_year_mig[1], input$sel_year_mig[2])
}
else if (input$mig_options_B == "By age") {
seq(input$sel_age_mig[1], input$sel_age_mig[2])
}
})
v_major_breaks <- reactive({
if (is.null(input$mig_options_B)) {
return(NULL)
}
else if (input$mig_options_B == "By year") {
c(input$sel_year_mig[1],
v_minor_breaks()[which(v_minor_breaks() %% 5 == 0)],
input$sel_year_mig[2])
}
else if (input$mig_options_B == "By age") {
c(input$sel_age_mig[1],
v_minor_breaks()[which(v_minor_breaks() %% 5 == 0)],
input$sel_age_mig[2])
}
})
### Event reactive elements ---------------------------------------------
# immigration number
txt_n_immig_server <- eventReactive(input$button_n_immigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
paste("International immigration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
paste("International immigration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
paste("Interstate immigration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
paste("Interstate immigration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
paste("Total immigration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
paste("Total immigration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
})
plt_n_immig_server <- eventReactive(input$button_n_immigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "International",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = immigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of immigrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "International",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = immigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of immigrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Interstate",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = immigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of immigrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Interstate",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = immigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of immigrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Total",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = immigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of immigrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Total",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = immigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of immigrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# Net migration number
txt_n_mig_server <- eventReactive(input$button_n_migrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
paste("International net migration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
paste("International net migration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
paste("Interstate net migration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
paste("Interstate net migration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
paste("Total net migration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
paste("Total net migration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
})
plt_n_mig_server <- eventReactive(input$button_n_migrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "International",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = net_migration, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net number of migrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "International",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = net_migration, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net number of migrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Interstate",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = net_migration, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net number of migrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Interstate",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = net_migration, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net number of migrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Total",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = net_migration, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net number of migrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Total",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = net_migration, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net number of migrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# emigration number
txt_n_emig_server <- eventReactive(input$button_n_emigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
paste("International emigration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
paste("International emigration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
paste("Interstate emigration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
paste("Interstate emigration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
paste("Total emigration from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
paste("Total emigration of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
})
plt_n_emig_server <- eventReactive(input$button_n_emigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "International",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = emigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of emigrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "International",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = emigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of emigrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Interstate",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = emigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of emigrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Interstate",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = emigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of emigrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Total",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = emigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of emigrants") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Total",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = emigrants, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of emigrants") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# immigration rate
txt_r_immig_server <- eventReactive(input$button_r_immigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
paste("International immigration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
paste("International immigration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
paste("Interstate immigration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
paste("Interstate immigration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
paste("Total immigration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
paste("Total immigration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
})
plt_r_immig_server <- eventReactive(input$button_r_immigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "International",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = im_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Immigration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "International",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = im_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Immigration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Interstate",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = im_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Immigration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Interstate",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = im_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Immigration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Total",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = im_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Immigration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Total",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = im_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Immigration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# net migration rate
txt_r_mig_server <- eventReactive(input$button_r_migrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
paste("International net migration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
paste("International net migration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
paste("Interstate net migration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
paste("Interstate net migration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
paste("Total net migration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
paste("Total net migration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
})
plt_r_mig_server <- eventReactive(input$button_r_migrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "International",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = nm_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net migration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "International",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = nm_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net migration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Interstate",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = nm_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net migration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Interstate",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = nm_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net migration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Total",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = nm_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net migration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Total",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = nm_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
geom_hline(yintercept = 0, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Net migration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
# emigration rate
txt_r_emig_server <- eventReactive(input$button_r_emigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
paste("International emigration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
paste("International emigration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
paste("Interstate emigration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
paste("Interstate emigration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
paste("Total emigration rate from ", input$sel_year_mig[1], " to ", input$sel_year_mig[2])
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
paste("Total emigration rate of people between ", input$sel_age_mig[1], " and ", input$sel_age_mig[2], " years of age")
}
})
plt_r_emig_server <- eventReactive(input$button_r_emigrants, {
if (input$mig_options_A == "International" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "International",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = em_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Emigration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "International" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "International",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = em_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Emigration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Interstate",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = em_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Emigration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Interstate" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Interstate",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = em_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Emigration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By year") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = seq(input$sel_year_mig[1],
input$sel_year_mig[2]),
v_sex = input$sel_sex_mig,
v_age = c(0, 89),
v_type = "Total",
age_groups = TRUE)
ggplot(data = df_mig,
mapping = aes(x = year, y = em_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Emigration rate") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
else if (input$mig_options_A == "Total" & input$mig_options_B == "By age") {
df_mig <- get_migration(v_state = input$sel_state_mig,
v_year = input$sel_year_mig,
v_sex = input$sel_sex_mig,
v_age = c(input$sel_age_mig[1]:input$sel_age_mig[2]),
v_type = "Total",
age_groups = FALSE)
ggplot(data = df_mig,
mapping = aes(x = age, y = em_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Emigration rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks(),
minor_breaks = v_minor_breaks()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
}
})
### Render outputs ------------------------------------------------------
# immigration number
output$txt_n_immig <- renderText({txt_n_immig_server()})
output$plt_n_immig <- renderPlot({plt_n_immig_server()})
# net migration number
output$txt_n_mig <- renderText({txt_n_mig_server()})
output$plt_n_mig <- renderPlot({plt_n_mig_server()})
# emigration number
output$txt_n_emig <- renderText({txt_n_emig_server()})
output$plt_n_emig <- renderPlot({plt_n_emig_server()})
# immigration rate
output$txt_r_immig <- renderText({txt_r_immig_server()})
output$plt_r_immig <- renderPlot({plt_r_immig_server()})
# net migration rate
output$txt_r_mig <- renderText({txt_r_mig_server()})
output$plt_r_mig <- renderPlot({plt_r_mig_server()})
# emigration rate
output$txt_r_emig <- renderText({txt_r_emig_server()})
output$plt_r_emig <- renderPlot({plt_r_emig_server()})
# Migration data for download
output$download_mig_data <- downloadHandler(
filename = "migration_data.csv",
content = function(file) {
write.csv(x = df_mig(), file = file, row.names = FALSE)
}
)
## Population -----------------------------------------------------------
### Render UI's ----------------------------------------------------------
# Inputs set based on User selection
output$ui_pop_options_B <- renderUI({
if (is.null(input$pop_options_A)) {
return(NULL)
}
else if (input$pop_options_A == "download_pop_data") {
tagList(
selectInput(inputId = "sel_state_pop",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_pop",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_pop",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_pop",
label = "Age range",
min = 0,
max = 100,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
br(),
h3(downloadButton(outputId = "download_pop_data",
label = "Download data"),
align = "center")
)
}
else if (input$pop_options_A == "one_year_pop") {
# State, 1 Year, Sex, Age (Range)
tagList(
selectInput(inputId = "sel_state_pop",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_pop",
label = "Year",
min = 1970, max = 2050,
value = 2005,
step = 1,
ticks = TRUE,
sep = ""),
selectInput(inputId = "sel_sex_pop",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_pop",
label = "Age range",
min = 0,
max = 100,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
h3(actionButton(inputId = "button_pop_age",
label = "Get population by age",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_pyramid",
label = "Get population pyramid",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_pop_prop_age",
label = "Get sex proportion by age",
class = "btn-primary"),
align = "center")
)
}
else if (input$pop_options_A == "year_range_pop") {
# State, Year (Range), Sex, Age (all ages)
tagList(
selectInput(inputId = "sel_state_pop",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_pop",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_pop",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
h3(actionButton(inputId = "button_pop_years",
label = "Get population by years",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_pop_prop_year",
label = "Get sex proportion by years",
class = "btn-primary"),
align = "center")
)
}
})
# Download data, Plot and text outputs
output$ui_outputs_pop <- renderUI({
if (is.null(input$pop_options_A)) {
return(NULL)
}
else if (input$pop_options_A == "one_year_pop") {
tagList(
h2(textOutput("txt_pop_age"),
align = "center"),
plotOutput(outputId = "plt_pop_age",
width = "120vh",
height = "45vw"),
h2(textOutput("txt_pyramid"),
align = "center"),
plotOutput(outputId = "plt_pyramid",
width = "120vh",
height = "45vw"),
h2(textOutput("txt_pop_prop_age"),
align = "center"),
plotOutput(outputId = "plt_pop_prop_age",
width = "120vh",
height = "45vw")
)
}
else if (input$pop_options_A == "year_range_pop") {
tagList(
h2(textOutput("txt_pop_years"),
align = "center"),
plotOutput(outputId = "plt_pop_years",
width = "120vh",
height = "45vw"),
h2(textOutput("txt_pop_prop_year"),
align = "center"),
plotOutput(outputId = "plt_pop_prop_year",
width = "120vh",
height = "45vw")
)
}
})
### Reactive objects ----------------------------------------------------
# Filtered dataset
df_pop_server <- reactive({
if (input$pop_options_A == "one_year_pop") {
get_population(v_state = input$sel_state_pop,
v_year = input$sel_year_pop,
v_sex = input$sel_sex_pop,
v_age = seq(input$sel_age_pop[1],
input$sel_age_pop[2]),
age_groups = FALSE)
}
else if (input$pop_options_A == "year_range_pop") {
get_population(v_state = input$sel_state_pop,
v_year = seq(input$sel_year_pop[1],
input$sel_year_pop[2]),
v_sex = input$sel_sex_pop,
v_age = c(0, 109),
age_groups = TRUE)
}
else if (input$pop_options_A == "download_pop_data") {
get_population(v_state = input$sel_state_pop,
v_year = seq(input$sel_year_pop[1],
input$sel_year_pop[2]),
v_sex = input$sel_sex_pop,
v_age = seq(input$sel_age_pop[1],
input$sel_age_pop[2]),
age_groups = FALSE)
}
})
# To establish minor and major breaks in graphs's x-axis
v_minor_breaks_pop <- reactive({
if (is.null(input$pop_options_A)) {
return(NULL)
}
else if (input$pop_options_A == "one_year_pop") {
seq(input$sel_age_pop[1], input$sel_age_pop[2])
}
else if (input$pop_options_A == "year_range_pop") {
seq(input$sel_year_pop[1], input$sel_year_pop[2])
}
})
v_major_breaks_pop <- reactive({
if (is.null(input$pop_options_A)) {
return(NULL)
}
else if (input$pop_options_A == "one_year_pop") {
c(input$sel_age_pop[1],
v_minor_breaks_pop()[which(v_minor_breaks_pop() %% 5 == 0)],
input$sel_age_pop[2])
}
else if (input$pop_options_A == "year_range_pop") {
c(input$sel_year_pop[1],
v_minor_breaks_pop()[which(v_minor_breaks_pop() %% 5 == 0)],
input$sel_year_pop[2])
}
})
### Event reactive elements ---------------------------------------------
# Population by age
txt_pop_age_server <- eventReactive(input$button_pop_age, {
paste("Population from", input$sel_age_pop[1], " to ", input$sel_age_pop[2],
" years of age in ", input$sel_year_pop)
})
plt_pop_age_server <- eventReactive(input$button_pop_age, {
ggplot(data = df_pop_server(), aes(x = age, y = population,
color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Population") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks_pop(),
minor_breaks = v_minor_breaks_pop()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
# Population pyramid
txt_pyramid_server <- eventReactive(input$button_pyramid, {
paste("Population pyramid of people between ", input$sel_age_pop[1],
" and ", input$sel_age_pop[1], " years of age in ", input$sel_year_pop)
})
plt_pyramid_server <- eventReactive(input$button_pyramid, {
# Filter dataset
df_pyramid <- get_population(v_state = input$sel_state_pop,
v_year = input$sel_year_pop,
v_sex = c("Male", "Female"),
v_age = seq(input$sel_age_pop[1],
input$sel_age_pop[2]),
age_groups = FALSE)
# Create pyramid plot
ggplot(df_pyramid, aes(x = ifelse(test = (sex == "Male"),
yes = -population, no = population),
y = factor(age), fill = sex)) +
theme_bw(base_size = 11) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22)) +
geom_col() +
scale_x_continuous(name = "Population (thousands)",
labels = function(x) format(abs(x/1000), big.mark = ",", scientific = FALSE),
breaks = scales::breaks_pretty(n = 10)) +
scale_y_discrete(name = "Age (Years)",
breaks = seq(from = input$sel_age_pop[1],
to = input$sel_age_pop[2],
by = 5)) +
guides(fill = guide_legend(title = "Sex")) +
theme(legend.position = "bottom") +
facet_wrap(~ state)
})
# Sex proportion by age
txt_pop_prop_age_server <- eventReactive(input$button_pop_prop_age, {
paste("Sex proportion of population from ", input$sel_age_pop[1], " to ",
input$sel_age_pop[2], " years of age in ", input$sel_year_pop)
})
plt_pop_prop_age_server <- eventReactive(input$button_pop_prop_age, {
# Filter dataset
df_prop_age <- get_population(v_state = input$sel_state_pop,
v_year = input$sel_year_pop,
v_sex = c("Male", "Female"),
v_age = seq(input$sel_age_pop[1],
input$sel_age_pop[2]),
age_groups = FALSE)
# Create plot
ggplot(data = df_prop_age, aes(x = age, y = population, fill = sex)) +
geom_col(position = "fill") +
geom_hline(yintercept = 0.5, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme_bw(base_size = 11) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22)) +
scale_y_continuous(labels = scales::comma,
name = "Proportion") +
scale_x_continuous(name = "Age (Years)") +
guides(fill = guide_legend(title = "Sex")) +
coord_cartesian(ylim = c(0.45, 0.55)) +
facet_wrap(~ state)
})
# Population by year
txt_pop_years_server <- eventReactive(input$button_pop_years, {
paste("Total population from ", input$sel_year_pop[1], " to ", input$sel_year_pop[2])
})
plt_pop_years_server <- eventReactive(input$button_pop_years, {
# Crete plot
ggplot(data = df_pop_server(), aes(x = year, y = population,
color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Population") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks_pop(),
minor_breaks = v_minor_breaks_pop()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
# Sex proportion by year
txt_pop_prop_year_server <- eventReactive(input$button_pop_prop_year, {
paste("Sex proportion within total population from ", input$sel_year_pop[1], " to ", input$sel_year_pop[2])
})
plt_pop_prop_year_server <- eventReactive(input$button_pop_prop_year, {
# Filter dataset (to have both sexes)
df_prop_pop <- get_population(v_state = input$sel_state_pop,
v_year = seq(input$sel_year_pop[1],
input$sel_year_pop[2]),
v_sex = c("Male", "Female"),
v_age = c(0, 109),
age_groups = TRUE)
# Create plot
ggplot(data = df_prop_pop,
mapping = aes(x = year, y = population, fill = sex)) +
theme_bw(base_size = 11) +
geom_col(position = "fill") +
geom_hline(yintercept = 0.5, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22)) +
scale_y_continuous(labels = scales::comma,
name = "Proportion") +
scale_x_continuous(name = "Year") +
guides(fill = guide_legend(title = "Sex")) +
coord_cartesian(ylim = c(0.475, 0.525)) +
facet_wrap(~ state)
})
### Render outputs ------------------------------------------------------
# Population by age
output$txt_pop_age <- renderText({txt_pop_age_server()})
output$plt_pop_age <- renderPlot({plt_pop_age_server()})
# Population pyramid
output$txt_pyramid <- renderText({txt_pyramid_server()})
output$plt_pyramid <- renderPlot({plt_pyramid_server()})
# Sex proportion by age
output$txt_pop_prop_age <- renderText({txt_pop_prop_age_server()})
output$plt_pop_prop_age <- renderPlot({plt_pop_prop_age_server()})
# Population by year
output$txt_pop_years <- renderText({txt_pop_years_server()})
output$plt_pop_years <- renderPlot({plt_pop_years_server()})
# Sex proportion by year
output$txt_pop_prop_year <- renderText({txt_pop_prop_year_server()})
output$plt_pop_prop_year <- renderPlot({plt_pop_prop_year_server()})
# Population data for download
output$download_pop_data <- downloadHandler(
filename = "population_data.csv",
content = function(file) {
write.csv(x = df_pop_server(), file = file, row.names = FALSE)
}
)
## Mortality ------------------------------------------------------------
### Render UI's ---------------------------------------------------------
# Inputs set based on User selection
output$ui_mort_options_B <- renderUI({
if (is.null(input$mort_options_A)) {
return(NULL)
}
else if (input$mort_options_A == "download_mort_data") {
tagList(
selectInput(inputId = "sel_state_mort",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_mort",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_mort",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_mort",
label = "Age range",
min = 0,
max = 100,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
br(),
h3(downloadButton(outputId = "download_mort_data",
label = "Download data"),
align = "center")
)
}
else if (input$mort_options_A == "one_year_mort") {
# State, 1 Year, Sex, Age (Range)
tagList(
selectInput(inputId = "sel_state_mort",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_mort",
label = "Year",
min = 1970, max = 2050,
value = 2005,
step = 1,
ticks = TRUE,
sep = ""),
selectInput(inputId = "sel_sex_mort",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_age_mort",
label = "Age range",
min = 0,
max = 100,
value = c(25,55),
step = 1,
ticks = TRUE,
dragRange = TRUE),
h3(actionButton(inputId = "button_mort_age",
label = "Get mortality by age",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_mort_prop_age",
label = "Get mortality proportion by age",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_mort_rate_age",
label = "Get mortality rate by age",
class = "btn-primary"),
align = "center")
)
}
else if (input$mort_options_A == "year_range_mort") {
tagList(
selectInput(inputId = "sel_state_mort",
label = "State(s)",
choices = unique(df_birth_pop_states$state),
selected = "National",
multiple = TRUE,
selectize = TRUE),
sliderInput(inputId = "sel_year_mort",
label = "Year range",
value = c(1990, 2010),
min = 1970,
max = 2050,
step = 1,
ticks = T,
sep = ""),
selectInput(inputId = "sel_sex_mort",
label = "Sex",
choices = c("Female", "Male", "Total"),
selected = "Total",
multiple = TRUE,
selectize = TRUE),
h3(actionButton(inputId = "button_mort_years",
label = "Get mortality by years",
class = "btn-primary"),
align = "center"),
h3(actionButton(inputId = "button_mort_prop_year",
label = "Get mortality proportion by year",
class = "btn-primary"),
align = "center")
)
}
})
# Download data, Plot and text outputs
output$ui_mort_outputs <- renderUI({
if (is.null(input$mort_options_A)) {
return(NULL)
}
else if (input$mort_options_A == "one_year_mort") {
tagList(
h2(textOutput("txt_mort_age"),
align = "center"),
plotOutput(outputId = "plt_mort_age",
width = "120vh",
height = "45vw"),
h2(textOutput("txt_mort_prop_age"),
align = "center"),
plotOutput(outputId = "plt_mort_prop_age",
width = "120vh",
height = "45vw"),
h2(textOutput("txt_mort_rate_age"),
align = "center"),
plotOutput(outputId = "plt_mort_rate_age",
width = "120vh",
height = "45vw")
)
}
else if (input$mort_options_A == "year_range_mort") {
tagList(
h2(textOutput("txt_mort_years"),
align = "center"),
plotOutput(outputId = "plt_mort_years",
width = "120vh",
height = "45vw"),
h2(textOutput("txt_mort_prop_year"),
align = "center"),
plotOutput(outputId = "plt_mort_prop_year",
width = "120vh",
height = "45vw")
)
}
})
### Reactive objects ----------------------------------------------------
# Filtered dataset
df_mort_server <- reactive({
if (input$mort_options_A == "one_year_mort") {
get_deaths(v_state = input$sel_state_mort,
v_year = input$sel_year_mort,
v_sex = input$sel_sex_mort,
v_age = seq(input$sel_age_mort[1],
input$sel_age_mort[2]),
age_groups = FALSE)
}
else if (input$mort_options_A == "year_range_mort") {
get_deaths(v_state = input$sel_state_mort,
v_year = seq(input$sel_year_mort[1],
input$sel_year_mort[2]),
v_sex = input$sel_sex_mort,
v_age = c(0, 109),
age_groups = TRUE)
}
else if (input$mort_options_A == "download_mort_data") {
get_deaths(v_state = input$sel_state_mort,
v_year = seq(input$sel_year_mort[1],
input$sel_year_mort[2]),
v_sex = input$sel_sex_mort,
v_age = seq(input$sel_age_mort[1],
input$sel_age_mort[2]),
age_groups = FALSE)
}
})
# To establish minor and major breaks in graphs's x-axis
v_minor_breaks_mort <- reactive({
if (is.null(input$mort_options_A)) {
return(NULL)
}
else if (input$mort_options_A == "one_year_mort") {
seq(input$sel_age_mort[1], input$sel_age_mort[2])
}
else if (input$mort_options_A == "year_range_mort") {
seq(input$sel_year_mort[1], input$sel_year_mort[2])
}
})
v_major_breaks_mort <- reactive({
if (is.null(input$mort_options_A)) {
return(NULL)
}
else if (input$mort_options_A == "one_year_mort") {
c(input$sel_age_mort[1],
v_minor_breaks_mort()[which(v_minor_breaks_mort() %% 5 == 0)],
input$sel_age_mort[2])
}
else if (input$mort_options_A == "year_range_mort") {
c(input$sel_year_mort[1],
v_minor_breaks_mort()[which(v_minor_breaks_mort() %% 5 == 0)],
input$sel_year_mort[2])
}
})
### Event reactive elements ---------------------------------------------
# Mortality by age
txt_mort_age_server <- eventReactive(input$button_mort_age, {
paste("Mortality from", input$sel_age_mort[1], " to ", input$sel_age_mort[2],
" years of age in ", input$sel_year_mort)
})
plt_mort_age_server <- eventReactive(input$button_mort_age, {
ggplot(data = df_mort_server(), aes(x = age, y = deaths,
color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of deaths") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks_mort(),
minor_breaks = v_minor_breaks_mort()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
# Sex proportion by age
txt_mort_prop_age_server <- eventReactive(input$button_mort_prop_age, {
paste("Mortality proportion by sex from ", input$sel_age_mort[1], " to ",
input$sel_age_mort[2], " years of age in ", input$sel_year_mort)
})
plt_mort_prop_age_server <- eventReactive(input$button_mort_prop_age, {
# Filter dataset
df_prop_age <- get_deaths(v_state = input$sel_state_mort,
v_year = input$sel_year_mort,
v_sex = c("Male", "Female"),
v_age = seq(input$sel_age_mort[1],
input$sel_age_mort[2]),
age_groups = FALSE)
# Create plot
ggplot(data = df_prop_age, aes(x = age, y = deaths, fill = sex)) +
geom_col(position = "fill") +
geom_hline(yintercept = 0.5, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme_bw(base_size = 11) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22)) +
scale_y_continuous(labels = scales::comma,
name = "Proportion") +
scale_x_continuous(name = "Age (Years)") +
guides(fill = guide_legend(title = "Sex")) +
coord_cartesian(ylim = c(0, 1)) +
facet_wrap(~ state)
})
# Mortality rate by age
txt_mort_rate_age_server <- eventReactive(input$button_mort_rate_age, {
paste("Mortality rate from", input$sel_age_mort[1], " to ", input$sel_age_mort[2],
" years of age in ", input$sel_year_mort)
})
plt_mort_rate_age_server <- eventReactive(input$button_mort_rate_age, {
# Create plot
ggplot(data = df_mort_server(),
aes(x = age, y = death_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Mortality rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks_mort(),
minor_breaks = v_minor_breaks_mort()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
# Mortality by year
txt_mort_years_server <- eventReactive(input$button_mort_years, {
paste("Number of deaths from ", input$sel_year_mort[1], " to ", input$sel_year_mort[2])
})
plt_mort_years_server <- eventReactive(input$button_mort_years, {
# Crete plot
ggplot(data = df_mort_server(), aes(x = year, y = deaths,
color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of deaths") +
scale_x_continuous(name = "Year",
breaks = v_major_breaks_mort(),
minor_breaks = v_minor_breaks_mort()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
# Sex proportion by year
txt_mort_prop_year_server <- eventReactive(input$button_mort_prop_year, {
paste("Mortality proportion by sex from ", input$sel_year_mort[1], " to ", input$sel_year_mort[2])
})
plt_mort_prop_year_server <- eventReactive(input$button_mort_prop_year, {
# Filter dataset (to have both sexes)
df_prop_mort <- get_deaths(v_state = input$sel_state_mort,
v_year = seq(input$sel_year_mort[1],
input$sel_year_mort[2]),
v_sex = c("Male", "Female"),
v_age = c(0, 109),
age_groups = TRUE)
# Create plot
ggplot(data = df_prop_mort,
mapping = aes(x = year, y = deaths, fill = sex)) +
theme_bw(base_size = 11) +
geom_col(position = "fill") +
geom_hline(yintercept = 0.5, size = 1.5, color = "black",
linetype = "dashed", alpha = 0.4) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22)) +
scale_y_continuous(labels = scales::comma,
name = "Proportion") +
scale_x_continuous(name = "Year") +
guides(fill = guide_legend(title = "Sex")) +
coord_cartesian(ylim = c(0, 1)) +
facet_wrap(~ state)
})
### Render outputs ------------------------------------------------------
# Mortality by age
output$txt_mort_age <- renderText({txt_mort_age_server()})
output$plt_mort_age <- renderPlot({plt_mort_age_server()})
# Sex proportion by age
output$txt_mort_prop_age <- renderText({txt_mort_prop_age_server()})
output$plt_mort_prop_age <- renderPlot({plt_mort_prop_age_server()})
# Mortality rate by sex
output$txt_mort_rate_age <- renderText({txt_mort_rate_age_server()})
output$plt_mort_rate_age <- renderPlot({plt_mort_rate_age_server()})
# Mortality by year
output$txt_mort_years <- renderText({txt_mort_years_server()})
output$plt_mort_years <- renderPlot({plt_mort_years_server()})
# Sex proportion by year
output$txt_mort_prop_year <- renderText({txt_mort_prop_year_server()})
output$plt_mort_prop_year <- renderPlot({plt_mort_prop_year_server()})
# Mortality data for download
output$download_mort_data <- downloadHandler(
filename = "mortality_data.csv",
content = function(file) {
write.csv(x = df_mort_server(), file = file, row.names = FALSE)
}
)
## Aging rate -----------------------------------------------------------
### Reactive objects ----------------------------------------------------
# Dataset for plotting
df_aging_server <- reactive({
get_aging_rate(v_state = input$sel_state_aging,
v_year = input$sel_year_aging[2],
v_sex = input$sel_sex_aging,
v_age = seq(input$sel_age_aging[1],
input$sel_age_aging[2])
)
})
# Dataset for downloading
df_aging_download <- reactive({
get_aging_rate(v_state = input$sel_state_aging,
v_year = seq(input$sel_year_aging[1],
input$sel_year_aging[2]),
v_sex = input$sel_sex_aging,
v_age = seq(input$sel_age_aging[1],
input$sel_age_aging[2])
)
})
# To establish minor and major breaks in graphs's x-axis
v_minor_breaks_aging <- reactive({
seq(input$sel_age_aging[1], input$sel_age_aging[2])
})
v_major_breaks_aging <- reactive({
c(input$sel_age_aging[1],
v_minor_breaks_aging()[which(v_minor_breaks_aging() %% 5 == 0)],
input$sel_age_aging[2])
})
### Event reactive elements ---------------------------------------------
# Aging population by age
txt_aging_age_server <- eventReactive(input$button_aging_age, {
paste("Aging population from", input$sel_age_aging[1], " to ", input$sel_age_aging[2],
" years of age in ", input$sel_year_aging[2])
})
plt_aging_age_server <- eventReactive(input$button_aging_age, {
# Create plot
ggplot(data = df_aging_server(),
aes(x = age, y = aging_pop, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Number of people") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks_aging(),
minor_breaks = v_minor_breaks_aging()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
# Aging rate by age
txt_aging_rate_server <- eventReactive(input$button_aging_rate, {
paste("Aging rate from", input$sel_age_aging[1], " to ", input$sel_age_aging[2],
" years of age in ", input$sel_year_aging[2])
})
plt_aging_rate_server <- eventReactive(input$button_aging_rate, {
# Create plot
ggplot(data = df_aging_server(),
aes(x = age, y = aging_rate, color = state, linetype = sex)) +
theme_bw(base_size = 11) +
geom_line(size = 1) +
theme(legend.box = "vertical",
legend.position = "bottom",
legend.key.width = unit(x = 1.5, units = "cm"),
text = element_text(size = 22),
panel.grid.major.x = element_line(size = 1.5)) +
scale_y_continuous(labels = scales::comma,
name = "Aging rate") +
scale_x_continuous(name = "Age (Years)",
breaks = v_major_breaks_aging(),
minor_breaks = v_minor_breaks_aging()) +
guides(color = guide_legend(title = "State"),
linetype = guide_legend(title = "Sex"))
})
### Render outputs ------------------------------------------------------
# Aging population by age
output$txt_aging_age <- renderText({txt_aging_age_server()})
output$plt_aging_age <- renderPlot({plt_aging_age_server()})
# Aging rate by age
output$txt_aging_rate <- renderText({txt_aging_rate_server()})
output$plt_aging_rate <- renderPlot({plt_aging_rate_server()})
# Aging population data for download
output$download_aging_data <- downloadHandler(
filename = "aging_pop_data.csv",
content = function(file) {
write.csv(x = df_aging_download(), file = file, row.names = FALSE)
}
)
}
shinyApp(ui, server)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.