From 0c2b340b09fbea44be2d620a7dd6ab2b6ee65bdf Mon Sep 17 00:00:00 2001 From: zixuntonytan-new Date: Thu, 9 Jul 2026 10:28:48 -0400 Subject: [PATCH] Fix update comparison plot generation --- scripts/index_temp.R | 145 +++++++++++++++++++++++++++++++++++++++---- 1 file changed, 133 insertions(+), 12 deletions(-) diff --git a/scripts/index_temp.R b/scripts/index_temp.R index 5e2847a..765ff3c 100644 --- a/scripts/index_temp.R +++ b/scripts/index_temp.R @@ -54,7 +54,34 @@ previous_inputs <- previous_inputs %>% fim_federal_purchases_real = nipa_total_purchases_real - fim_state_purchases_real, # Calculate consumption - consumption_real = consumption - lag(consumption) * consumption_deflator_growth + consumption_real = consumption - lag(consumption) * consumption_deflator_growth, + + # Contributions and real levels used by the detailed update-comparison tabs + consumption_grants_contribution = + 400 * (consumption_grants - lag(consumption_grants) * (1 + consumption_grants_deflator_growth + real_potential_gdp_growth)) / lag(gdp), + investment_grants_contribution = + 400 * (investment_grants - lag(investment_grants) * (1 + investment_grants_deflator_growth + real_potential_gdp_growth)) / lag(gdp), + federal_ui_real = federal_ui - lag(federal_ui) * consumption_deflator_growth, + state_ui_real = state_ui - lag(state_ui) * consumption_deflator_growth, + federal_subsidies_real = federal_subsidies - lag(federal_subsidies) * consumption_deflator_growth, + state_subsidies_real = state_subsidies - lag(state_subsidies) * consumption_deflator_growth, + federal_health_outlays_real = federal_health_outlays - lag(federal_health_outlays) * consumption_deflator_growth, + state_health_outlays_real = state_health_outlays - lag(state_health_outlays) * consumption_deflator_growth, + federal_social_benefits_real = federal_social_benefits - lag(federal_social_benefits) * consumption_deflator_growth, + state_social_benefits_real = state_social_benefits - lag(state_social_benefits) * consumption_deflator_growth, + federal_corporate_taxes_real = federal_corporate_taxes - lag(federal_corporate_taxes) * consumption_deflator_growth, + state_corporate_taxes_real = state_corporate_taxes - lag(state_corporate_taxes) * consumption_deflator_growth, + federal_non_corporate_taxes_real = federal_non_corporate_taxes - lag(federal_non_corporate_taxes) * consumption_deflator_growth, + state_non_corporate_taxes_real = state_non_corporate_taxes - lag(state_non_corporate_taxes) * consumption_deflator_growth, + rebate_checks_arp_real = rebate_checks_arp - lag(rebate_checks_arp) * consumption_deflator_growth, + federal_other_direct_aid_arp_real = federal_other_direct_aid_arp - lag(federal_other_direct_aid_arp) * consumption_deflator_growth, + federal_other_vulnerable_arp_real = federal_other_vulnerable_arp - lag(federal_other_vulnerable_arp) * consumption_deflator_growth, + federal_aid_to_small_businesses_arp_real = federal_aid_to_small_businesses_arp - lag(federal_aid_to_small_businesses_arp) * consumption_deflator_growth, + federal_student_loans_real = federal_student_loans - lag(federal_student_loans) * consumption_deflator_growth, + supply_side_ira_real = supply_side_ira - lag(supply_side_ira) * consumption_deflator_growth, + rebate_checks_real = rebate_checks - lag(rebate_checks) * consumption_deflator_growth, + consumption_grants_real = consumption_grants - lag(consumption_grants) * consumption_deflator_growth, + investment_grants_real = investment_grants - lag(investment_grants) * consumption_deflator_growth ) # Current @@ -76,7 +103,34 @@ current_inputs <- current_inputs %>% fim_federal_purchases_real = nipa_total_purchases_real - fim_state_purchases_real, # Calculate consumption - consumption_real = consumption - lag(consumption) * consumption_deflator_growth + consumption_real = consumption - lag(consumption) * consumption_deflator_growth, + + # Contributions and real levels used by the detailed update-comparison tabs + consumption_grants_contribution = + 400 * (consumption_grants - lag(consumption_grants) * (1 + consumption_grants_deflator_growth + real_potential_gdp_growth)) / lag(gdp), + investment_grants_contribution = + 400 * (investment_grants - lag(investment_grants) * (1 + investment_grants_deflator_growth + real_potential_gdp_growth)) / lag(gdp), + federal_ui_real = federal_ui - lag(federal_ui) * consumption_deflator_growth, + state_ui_real = state_ui - lag(state_ui) * consumption_deflator_growth, + federal_subsidies_real = federal_subsidies - lag(federal_subsidies) * consumption_deflator_growth, + state_subsidies_real = state_subsidies - lag(state_subsidies) * consumption_deflator_growth, + federal_health_outlays_real = federal_health_outlays - lag(federal_health_outlays) * consumption_deflator_growth, + state_health_outlays_real = state_health_outlays - lag(state_health_outlays) * consumption_deflator_growth, + federal_social_benefits_real = federal_social_benefits - lag(federal_social_benefits) * consumption_deflator_growth, + state_social_benefits_real = state_social_benefits - lag(state_social_benefits) * consumption_deflator_growth, + federal_corporate_taxes_real = federal_corporate_taxes - lag(federal_corporate_taxes) * consumption_deflator_growth, + state_corporate_taxes_real = state_corporate_taxes - lag(state_corporate_taxes) * consumption_deflator_growth, + federal_non_corporate_taxes_real = federal_non_corporate_taxes - lag(federal_non_corporate_taxes) * consumption_deflator_growth, + state_non_corporate_taxes_real = state_non_corporate_taxes - lag(state_non_corporate_taxes) * consumption_deflator_growth, + rebate_checks_arp_real = rebate_checks_arp - lag(rebate_checks_arp) * consumption_deflator_growth, + federal_other_direct_aid_arp_real = federal_other_direct_aid_arp - lag(federal_other_direct_aid_arp) * consumption_deflator_growth, + federal_other_vulnerable_arp_real = federal_other_vulnerable_arp - lag(federal_other_vulnerable_arp) * consumption_deflator_growth, + federal_aid_to_small_businesses_arp_real = federal_aid_to_small_businesses_arp - lag(federal_aid_to_small_businesses_arp) * consumption_deflator_growth, + federal_student_loans_real = federal_student_loans - lag(federal_student_loans) * consumption_deflator_growth, + supply_side_ira_real = supply_side_ira - lag(supply_side_ira) * consumption_deflator_growth, + rebate_checks_real = rebate_checks - lag(rebate_checks) * consumption_deflator_growth, + consumption_grants_real = consumption_grants - lag(consumption_grants) * consumption_deflator_growth, + investment_grants_real = investment_grants - lag(investment_grants) * consumption_deflator_growth ) #------------------- Contributions Figures ----------------------------# @@ -138,22 +192,89 @@ comparison_long <- # Define the "components", i.e. the data we want to include in our contributions comparison plots components <- c( - + "fiscal_impact_measure", "federal_contribution", - "fim_federal_purchases_real", - "nipa_federal_purchases_real", - "state_contribution", - "fim_state_purchases_real", - "nipa_state_purchases_real", - "consumption_contribution", - "consumption", + "fim_federal_purchases_real", + "fim_state_purchases_real", "consumption_real", - - "fiscal_impact_measure" + "nipa_federal_purchases_real", + "nipa_state_purchases_real", + "consumption_grants_contribution", + "investment_grants_contribution", + "consumption_grants_real", + "investment_grants_real", + "consumption_grants", + "investment_grants", + "federal_corporate_taxes_contribution", + "state_corporate_taxes_contribution", + "federal_corporate_taxes_real", + "state_corporate_taxes_real", + "federal_corporate_taxes", + "state_corporate_taxes", + "federal_non_corporate_taxes_contribution", + "state_non_corporate_taxes_contribution", + "federal_non_corporate_taxes_real", + "state_non_corporate_taxes_real", + "federal_non_corporate_taxes", + "state_non_corporate_taxes", + "supply_side_ira_contribution", + "supply_side_ira_real", + "supply_side_ira", + "transfers_contribution", + "federal_health_outlays_contribution", + "state_health_outlays_contribution", + "federal_health_outlays_real", + "state_health_outlays_real", + "federal_health_outlays", + "state_health_outlays", + "federal_subsidies_contribution", + "state_subsidies_contribution", + "federal_subsidies_real", + "state_subsidies_real", + "federal_subsidies", + "state_subsidies", + "federal_aid_to_small_businesses_arp_contribution", + "federal_aid_to_small_businesses_arp_real", + "federal_aid_to_small_businesses_arp", + "federal_ui_contribution", + "state_ui_contribution", + "federal_ui_real", + "state_ui_real", + "federal_ui", + "state_ui", + "federal_other_vulnerable_arp_contribution", + "federal_other_vulnerable_arp_real", + "federal_other_vulnerable_arp", + "rebate_checks_contribution", + "rebate_checks_real", + "rebate_checks", + "rebate_checks_arp_contribution", + "rebate_checks_arp_real", + "rebate_checks_arp", + "federal_other_direct_aid_arp_contribution", + "federal_other_direct_aid_arp_real", + "federal_other_direct_aid_arp", + "federal_social_benefits_contribution", + "state_social_benefits_contribution", + "federal_social_benefits_real", + "state_social_benefits_real", + "federal_social_benefits", + "state_social_benefits", + "federal_student_loans_contribution", + "federal_student_loans_real", + "federal_student_loans" ) +missing_components <- setdiff(components, unique(comparison_long$variable)) +if (length(missing_components) > 0) { + warning( + "Missing update-comparison variables: ", + paste(missing_components, collapse = ", ") + ) +} + # Define the comparison_ga function, which pulls in data (federal purchases # contribution, for example) and generates a plot comparing the previous month's # result to the current month's result