Skip to content

Instantly share code, notes, and snippets.

@juliuskittler
Created October 27, 2019 11:33
Show Gist options
  • Select an option

  • Save juliuskittler/fe98653730c37a20e1e0d6ab1b3d09de to your computer and use it in GitHub Desktop.

Select an option

Save juliuskittler/fe98653730c37a20e1e0d6ab1b3d09de to your computer and use it in GitHub Desktop.
df = data.frame(x = c("Q1", "Q2", "Q3", "Q4"),
y = c(1000, 2000, 4000, 8000))
ggplot(data = df, aes(x = x, y = y)) +
geom_col(fill = "steelblue4", alpha = 0.8) +
labs(title = "Revenue by Quarter [in $1M]", y = "Revenue", x = "Quarter") +
theme_bw() + theme(plot.title = element_text(hjust = 0.5))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment