Adding various functions to the same plot with a loop ggplot2

Question

I have the following equation: y = 1 - cx, where c is a real number. I'm trying to make something where I can pick the range of values for c and plot all the graphs of every function with the corresponding c.

Here's what I got as of now:

p <- ggplot(data = data.frame(x = 0), mapping = aes(x = x))
statfun1 <- c()
for (i in 1:3){
  c <- i
  fun1.i <- function(x){1 - c*x}
  fun1.i.plot <- stat_function(fun = fun1.i, color="red")
  statfun1 <- statfun1 + fun1.i.plot
}
p + statfun1 + xlim(-5, 5)

The p is basically what you need in ggplot2 to plot a function, then I go over in this case the values 1, 2 and 3 for c and I try to add them all at the end but this does not seem to work. Anyone maybe can help me out or put me on the right track?

Community · Accepted Answer · 2020-06-20 09:12:55Z

2

Define your function

fun1.i <- function(x, c){1 - c*x}

Now from ?`+.gg`

You can add any of the following types of objects:

...

You can also supply a list, in which case each element of the list will be added in turn.

So you might use lapply

p + xlim(-5, 5) + lapply(1:3, function(c) { 
  stat_function(fun = fun1.i, args = list(c = c), geom = "line", color="red")
  })

Result

edited Jun 20, 2020 at 9:12

CommunityBot

11 silver badge

answered Dec 12, 2019 at 14:43

markus

26.5k5 gold badges47 silver badges59 bronze badges

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

Collectives™ on Stack Overflow

Adding various functions to the same plot with a loop ggplot2

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related