# NOT RUN {
# data to be plotted
df <- data.frame(x = 1:30, y = 0)
# initialize plot
p <- ggplot(aes(x = x, y = y, fill = factor(x)), data = df) +
geom_point(shape = 21, size = 3, show.legend = FALSE) +
theme_SPSS()
# colors of modern SPSS versions
p + theme_SPSS() + scale_fill_SPSS()
# colors of legacy SPSS versions
p + theme_SPSS(version = "legacy") +
scale_fill_SPSS(version = "legacy")
# }
Run the code above in your browser using DataLab