Use function with ggplot2

Question

Lets say I've made three plots with this code:

library(ggplot2)

ggplot(mtcars, aes(hp, wt, color = as.factor(cyl))) + geom_point() + scale_color_manual(limits = c("4", "6", "8"), breaks = c("4", "6", "8"), values = c("red", "blue", "green"))

ggplot(mtcars, aes(hp, mpg, color = as.factor(cyl))) + geom_point() + scale_color_manual(limits = c("4", "6", "8"), breaks = c("4", "6", "8"), values = c("red", "blue", "green"))

ggplot(mtcars, aes(hp, drat, color = as.factor(cyl))) + geom_point() + scale_color_manual(limits = c("4", "6", "8"), breaks = c("4", "6", "8"), values = c("red", "blue", "green"))

How can I convert this part of the code to a function called: scale_color_manual(limits = c("4", "6", "8"), breaks = c("4", "6", "8"), values = c("red", "blue", "green"))?

rawr · Accepted Answer · 2014-03-08 21:12:45Z

3

You could take advantage of %+%

library(ggplot2)

p1 <- ggplot(mtcars, aes(hp, wt, color = as.factor(cyl))) + 
         geom_point() + 
         scale_color_manual(limits = c("4", "6", "8"), 
                            breaks = c("4", "6", "8"), 
                            values = c("red", "blue", "green"))

p2 <- aes(hp, mpg, color = as.factor(cyl))

p1 %+% p2

p3 <- aes(hp, drat, color = as.factor(cyl))

p1 %+% p3

EDIT

or you can define your scale like:

my_scale <-  scale_color_manual(limits = c("4", "6", "8"), 
                                breaks = c("4", "6", "8"), 
                                values = c("red", "blue", "green"))

and

p1 <- ggplot(mtcars, aes(hp, wt, color = as.factor(cyl))) + geom_point()

p1 + my_scale

edited Mar 8, 2014 at 21:12

answered Mar 8, 2014 at 20:53

rawr

20.9k4 gold badges49 silver badges80 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

luciano Over a year ago

rawr thats a nice idea but it wouldn't work in my circumstances

Paul Hiemstra Over a year ago

@luciano why not? Could you expand your question to make more clear what you really need.

Collectives™ on Stack Overflow

Use function with ggplot2

1 Answer 1

2 Comments

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Related