economics dataset.Dataset: economics (ggplot2)
psavert: Personal savings ratepce: Personal consumption expendituresunemploy: Number of unemployed (in thousands)uempmed: Median unemployment durationpop: Populationggplot(economics, aes(x = date, y = unemploy)) +
geom_line(color = "darkred", size = 1) +
labs(title = "Unemployment (in thousands)",
x = "Year", y = "Unemployed Persons") +
theme_minimal()ggplot(economics, aes(x = date, y = uempmed)) +
geom_line(color = "orange", size = 1) +
labs(title = "Median Duration of Unemployment (weeks)",
x = "Year", y = "Weeks") +
theme_minimal()ggplot(economics, aes(x = date, y = pop)) +
geom_line(color = "forestgreen", size = 1) +
labs(title = "U.S. Population (in thousands)",
x = "Year", y = "Population") +
theme_minimal()