# NOT RUN {
library(ggplot2)
library(dplyr)
scatter <- ggplot(mtcars, aes(hp, mpg)) +
geom_point(color = "yellow")
scatter + theme_ng()
scatter + theme_ng(grid = "XY")
scatter + theme_ng(axis = "xy", ticks = "xy")
bar_chart(ggplot2::diamonds, cut, bar_color = "darkorange") +
theme_ng(axis = "y", grid = "Y")
column_chart(ggplot2::diamonds, cut, bar_color = "darkorange") +
theme_ng(axis = "x", grid = "X")
ggcharts::biomedicalrevenue %>%
filter(company == "Roche") %>%
ggplot(aes(year, revenue)) +
geom_line(color = "yellow", size = 1) +
scale_y_continuous(expand = expand_scale(c(0, .05))) +
theme_ng(grid = "X", axis = "x", ticks = "x")
# }
Run the code above in your browser using DataLab