Why doesn't ggplot correctly loop over the dataframe? [duplicate]

Question

Here is reproducible dataframe:

example_df <- data.frame(rnorm1 = rnorm(100), 
                       rnorm2 = rnorm(100), 
                       rnorm3 = rnorm(100), 
                       id = (1:100))

I'd like to plot it in this manner:

plot(example_df[,1], type = 'l')
for(i in 2:3) {
  lines(example_df[,i], col = i)
}

But base plot is not convenient for further additions so I want to use ggplot. However, why is it not possible to use the same loop approach?

g1 <- ggplot(example_df, aes(seq(length(example_df[,1]))))
for(i in 1:3) {
  g1 <- g1 + geom_line(aes(y=example_df[,i], colour=colnames(example_df)[i]))
}
g1

This only saves the last line:

Now, I can obviously do the same without the loop and it will obviously be incovenient for more than 3 lines:

g2 <- ggplot(example_df, aes(seq(length(example_df[,1])))) 
g2 <- g2 + geom_line(aes(y=example_df[,1], colour=colnames(example_df)[1]))
g2 <- g2 + geom_line(aes(y=example_df[,2], colour=colnames(example_df)[2]))
g2 <- g2 + geom_line(aes(y=example_df[,3], colour=colnames(example_df)[3]))
g2

I can also melt the df and get the desired plot:

example_df_melt <- melt(example_df, id.vars = 'id', variable.name = 'variable')
g3 <- ggplot(example_df_melt, aes(id,value)) + geom_line(aes(colour = variable))
g3

But is there any reason for it to not produce the same result in a loop?

Required packages:

require(ggplot2)
require(reshape2)

stackoverflow.com/questions/32698616/… has some good info

e.matt
– e.matt

2020-02-10 19:02:10 +00:00
Commented Feb 10, 2020 at 19:02 — e.matt
– e.matt, Commented Feb 10, 2020 at 19:02

Jordan Hackett · Accepted Answer · 2020-02-10 18:57:58Z

0

ggplot is not intended to be used in this way. If you restructure your data slightly, you can avoid using a loop altogether:

example_df <- data.frame(y = c(rnorm(100), rnorm(100), rnorm(100)),
                         group = rep(c("rnorm1", "rnorm2", "rnorm3"), each = 100),
                         id = rep((1:100), 3))

ggplot(example_df, aes(y=y, x=id, colour=group))+
  geom_line()

answered Feb 10, 2020 at 18:57

Jordan Hackett

7595 silver badges13 bronze badges

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

Collectives™ on Stack Overflow

Why doesn't ggplot correctly loop over the dataframe? [duplicate]

1 Answer 1

Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Linked

Related