Commit 5c048e40 authored by Thomas Brand's avatar Thomas Brand

Change name due to modification in BEA dataets.

parent bc2698c6
......@@ -125,7 +125,7 @@ conso_level <-
"BEA/NIPA-T20306/DSERRX-Q")) %>%
select(period,
value,
var_name=Concept)
var_name=concept)
conso_rate <-
rdb(ids=c("BEA/NIPA-T20301/DDURRL-Q",
......@@ -133,7 +133,7 @@ conso_rate <-
"BEA/NIPA-T20301/DSERRL-Q")) %>%
select(period,
value,
var_name=Concept)
var_name=concept)
conso_level_02 <-
conso_level %>%
......@@ -164,9 +164,9 @@ ggplot(conso,aes(period,value))+
conso %<>%
mutate(
var_code=case_when(
var_name=="Durable goods" ~ "conso_d",
var_name=="Nondurable goods" ~ "conso_nd",
var_name=="Services" ~ "conso_s"
var_name=="durable-goods" ~ "conso_d",
var_name=="nondurable-goods" ~ "conso_nd",
var_name=="services" ~ "conso_s"
),
var_name=paste("Real Personal Consumption Expenditures,",var_name))
```
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment