21 lines
410 B
R
21 lines
410 B
R
# 03_pivot_income.R
|
|
# Reads wide-format income (USD), pivots to long format.
|
|
|
|
source("scripts/00_paths.R")
|
|
|
|
library(readr)
|
|
library(tidyr)
|
|
|
|
df <- read_csv(income_usd_wide, show_col_types = FALSE)
|
|
|
|
df_long <- df |>
|
|
pivot_longer(
|
|
cols = jan:jun,
|
|
names_to = "month",
|
|
values_to = "value_usd"
|
|
)
|
|
|
|
write_csv(df_long, income_usd)
|
|
|
|
cat("03_pivot_income.R: wide -> long, wrote df_income_usd.csv\n")
|