library("ggplot2")
p <- ggplot(mtcars) +
geom_point(aes(x = wt, y = mpg, colour = factor(gear))) +
facet_wrap(~ am) +
labs(title = "Graphs by car type",
x = "Weight (lbs.)", y = "MPG")
# s2color
p + theme_stata() +
scale_colour_stata("s2color")
# s2mono
p + theme_stata(scheme = "s2mono") +
scale_colour_stata("mono")
# s1color
p + theme_stata(scheme = "s2color") +
scale_colour_stata("s1color")
# s1rcolor
p + theme_stata(scheme = "s1rcolor") +
scale_colour_stata("s1rcolor")
# s1mono
p + theme_stata(scheme = "s1mono") +
scale_colour_stata("mono")
Run the code above in your browser using DataLab