ANLY 512 - Problem Set 3

Exploring the Grammar of Graphics

## Vis 1
ggplot(mpg) + 
  geom_bar(aes(class, fill = trans)) + 
  scale_fill_discrete(name = "Transmission")

## Vis 2
ggplot(mpg) + 
  geom_boxplot(aes(manufacturer, hwy)) + 
  coord_flip() + 
  theme_classic() + 
  labs(x = "Vehicle Manufacturer", y = "Highway Fuel Efficiency (mile/gallon)")

## Vis 3
ggplot(diamonds) +
  geom_density(aes(price, fill = cut, color = cut), alpha = 0.4) +
  theme_economist() +
  labs(title = "Diamond Price Density", x = "Diamond Price (USD)", y = "Density")

## Vis 4
ggplot(iris, aes(Sepal.Length, Petal.Length)) +
  geom_point() + 
  geom_smooth(method = lm) + 
  labs(title = "Relationship between Petal and Sepal Length", x = "Iris Sepal Length", y = "Iris Petal Length") + 
  theme_minimal()

## Vis 5
ggplot(iris, aes(Sepal.Length, Petal.Length, color = Species)) +
  geom_point() + 
  geom_smooth(method = lm, se = FALSE) + 
  labs(title = "Relationship between Petal and Sepal Length", subtitle = "Species level comparison", x = "Iris Sepal Length", y = "Iris Petal Length") +
  theme_bw() + 
  theme(panel.border = element_blank(), panel.grid.major = element_blank(),
panel.grid.minor = element_blank(), axis.line = element_blank(), legend.position = "bottom")