Code
PGI_Q_F_STCKS <- read_parquet("PGI_Q_F_STCKS.parquet")
load_data("oecd/PGI_Q_F_STCKS_var.RData")Data - OECD
PGI_Q_F_STCKS <- read_parquet("PGI_Q_F_STCKS.parquet")
load_data("oecd/PGI_Q_F_STCKS_var.RData")Last observation: Q: 2016-Q2 (N = 852)
First observation: Q: 1960-Q1 (N = 1222)
Last data update: 02 aoû 2026, 09:02. Last compile: 18 aoû 2026, 01:21
PGI_Q_F_STCKS |>
left_join(PGI_Q_F_STCKS_var$TRANSACTION |> rename(TRANSACTION_desc = label),
by = c("TRANSACTION" = "id")) |>
group_by(TRANSACTION, TRANSACTION_desc, SECTOR, MEASURE) |>
summarise(Nobs = n()) |>
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}PGI_Q_F_STCKS_var$VAR_DESC %>%
{if (is_html_output()) print_table(.) else .}| id | description |
|---|---|
| LOCATION | Country |
| TRANSACTION | Transaction |
| SECTOR | Sector |
| MEASURE | Measure |
| ADJUSTED | Adjusted |
| TIME | Period & Frequency |
| OBS_VALUE | Observation Value |
| TIME_FORMAT | Time Format |
| OBS_STATUS | Observation Status |
PGI_Q_F_STCKS |>
filter(TRANSACTION == "SBF90NC",
)# # A tibble: 40,200 × 9
# LOCATION TRANSACTION SECTOR MEASURE ADJUSTED TIME_FORMAT obsTime obsValue
# <chr> <chr> <chr> <chr> <chr> <chr> <chr> <dbl>
# 1 USA SBF90NC S1 CAR NSA P3M 1960-Q1 79417
# 2 USA SBF90NC S1 CAR NSA P3M 1960-Q2 78998
# 3 USA SBF90NC S1 CAR NSA P3M 1960-Q3 83279
# 4 USA SBF90NC S1 CAR NSA P3M 1960-Q4 75180
# 5 USA SBF90NC S1 CAR NSA P3M 1961-Q1 77335
# 6 USA SBF90NC S1 CAR NSA P3M 1961-Q2 81794
# 7 USA SBF90NC S1 CAR NSA P3M 1961-Q3 81758
# 8 USA SBF90NC S1 CAR NSA P3M 1961-Q4 71037
# 9 USA SBF90NC S1 CAR NSA P3M 1962-Q1 77900
# 10 USA SBF90NC S1 CAR NSA P3M 1962-Q2 84537
# # ℹ 40,190 more rows
# # ℹ 1 more variable: OBS_STATUS <chr>