Data fetched from the nasq_10_nf_tr table gives wrong values. At least for rdbnomics package:
filters <- list(
sector = c("S1"),
unit = "CP_MNAC",
na_item = c("P52_P53"),
s_adj = "NSA"
#geo = "PL"
#time = "2023-Q4"
)
dataset_code <- "nasq_10_nf_tr"
eurost <- eurostat::get_eurostat(id = dataset_code, filters = filters)
dbnomics <- rdbnomics::rdb(provider_code = "Eurostat", dataset_code = dataset_code,
dimensions = filters)
dbnomics <- dbnomics |> select(na_item, geo, direct, period, sector, value)
eurost <- eurost |> select(na_item, direct, geo, time, sector, values) |> rename(period = time)
inner_join(eurost, dbnomics) |> mutate(difference = values - value) |> filter(difference>1)