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, shape = outcome3)) +
geom_point() +
scale_shape_outcome() +
theme_bw()
ggplot(my.df, aes(x, y, shape = outcome3)) +
geom_point() +
scale_shape_outcome(guide = FALSE) +
theme_bw()
ggplot(my.df, aes(x, y, shape = outcome2)) +
geom_point(size = 2) +
scale_shape_outcome() +
theme_bw()
ggplot(my.df, aes(x, y, shape = outcome3, fill = outcome2)) +
geom_point() +
scale_shape_outcome() +
scale_fill_outcome() +
theme_bw()
ggplot(my.df, aes(x, y, shape = outcome3, fill = outcome2)) +
geom_point() +
scale_shape_outcome(name = "direction") +
scale_fill_outcome(name = "significance") +
theme_bw()
Run the code above in your browser using DataLab