I have a loop that's nested inside a larger function (but I've pulled it out since it's the only part malfunctioning). When I run the code through the loop, it loops correctly through the vertical line dataframe, but only plots the third column of the histogram dataframe (code below). However, if I run the exact same code manually, everything works correctly.
Loop code:
plts1 <- list()
for (i in 1:ncol(rep_coefs)) {
plts1[[i]] <- ggplot(rep_coefs, aes(x = rep_coefs[[i]])) +
geom_histogram(bins = 10) +
geom_vline(xintercept = og_coef[[i]], color = "red") +
labs(x = names(rep_coefs)[i])
}
grid.arrange(grobs = plts1, nrow = 1, ncol = ncol(rep_coefs))
Output: plots from loop
Only the third column in rep_coefs gets plotted in the histogram, but it cycles through the og_coef data correctly as a vertical line and the names correctly as the label for the x-axis.
The exact same code, manually looping through the columns.
Manual code:
plts2 <- list()
plts2[[1]] <- ggplot(rep_coefs, aes(x = rep_coefs[[1]])) +
geom_histogram(bins = 10) +
geom_vline(xinterceplts2 = og_coef[[1]], color = "red") +
labs(x = names(rep_coefs)[1])
plts2[[2]]<-ggplot(rep_coefs, aes(x = rep_coefs[[2]])) +
geom_histogram(bins = 10) +
geom_vline(xinterceplts2 = og_coef[[2]], color = "red") +
labs(x = names(rep_coefs)[2])
plts2[[3]]<-ggplot(rep_coefs, aes(x = rep_coefs[[3]])) +
geom_histogram(bins = 10) +
geom_vline(xinterceplts2 = og_coef[[3]], color = "red") +
labs(x = names(rep_coefs)[3])
grid.arrange(grobs = plts2, nrow = 1, ncol = ncol(rep_coefs))
Output: plots made manually
The replication data can be found here: link to data
