- require(dplyr)
- require(reshape2)
- require(stringr)
- require(OECD)
- # dstruc <- get_data_structure("QASA_7HH")
- # dstruc$TRANSACTION
- # dstruc$MEASURE
- df <- get_dataset("QASA_7HH", start_time = 2002, end_time = 2016)
- df1 <- df %>% filter(TRANSACTION %in% c("LF52", "LF62", "LF63","LF4TLI"),
- SECTOR == "RS14_S15H",
- MEASURE == "CXCAR",
- str_length(obsTime)==4) %>%
- select(Country = LOCATION, Year = obsTime, Var = TRANSACTION, obsValue) %>%
- arrange(Country, Year)
- df2 <- dcast(df1, Country + Year ~ Var)
- df3 <- df2 %>% mutate(Asset = LF52 + LF62 + LF63, Debt = LF4TLI) %>%
- select(Country, Year, Asset, Debt)
- write.csv(df3, "oecd_hf.csv", quote =F)


雷达卡




京公网安备 11010802022788号







