set.seed(12346)
outcome <- sample(c(-1, 0, +1), 50, replace = TRUE)
my.df <- data.frame(x = rnorm(50),
y = rnorm(50),
outcome2 = outcome2factor(outcome, n.levels = 2),
outcome3 = outcome2factor(outcome))
ggplot(my.df, aes(x, y, colour = outcome3)) +
geom_point() +
scale_colour_outcome() +
theme_bw()
ggplot(my.df, aes(x, y, colour = outcome2)) +
geom_point() +
scale_colour_outcome() +
theme_bw()
ggplot(my.df, aes(x, y, fill = outcome3)) +
geom_point(shape = 21) +
scale_fill_outcome() +
theme_bw()
Run the code above in your browser using DataLab