ggplot works in individual code but not work in loop - r

Question

I am having issue of ggplot in loop.
It works well individually.
as below:
*plotgg<-
ggplot(renewalplot, aes(x = Month,y=Rate)) +
stat_summary(fun = mean, na.rm = TRUE,geom="bar")+
labs(x = "Month") +
ggtitle("Rate Change Distribution")+
theme(axis.text.x = element_text(angle = 90, hjust = 1))+
facet_grid(cols = vars(Year))
print(plotgg)*
when I put them in loop, it gives me error:
vars <- colnames(detailinfo_renewal_1)
varslist1 = vars[c(13)]
for (i in varslist1) {
renewalplot <- detailinfo_renewal_1 %>%
filter(Product=="FI")
plotgg<-
ggplot(renewalplot, aes(x = renewalplot[, i],y=Rate)) +
stat_summary(fun = mean, na.rm = TRUE,geom="bar")+
labs(x = i) +
ggtitle("Mean of Rate Change Distribution")+
theme(axis.text.x = element_text(angle = 90, hjust = 1))+
facet_grid(cols = vars(Year))
print(plotgg)
}
Much appreciated it!
LC

Answer 1

The bit that you've changed when putting into a loop tells you a lot about where the error might be:
aes(x = renewalplot[, i],y=Rate)
This method of mapping an aesthetic won't work. Normally, when you pick an aesthetic, you pass the name of the aesthetic to the value of x, such as in x = Month. Behind the scenes, ggplot() then figures out the appropriate values from your data source.
An alternative way of mapping aesthetics is to use aes_string(), which would probably be better suited to your use-case. Since i is already the name of the column as a string, this will fit right in
for (i in varslist1) {
renewalplot <- detailinfo_renewal_1 %>%
filter(Product=="FI")
plotgg<-
ggplot(renewalplot, aes_string(x = i, y = "Rate")) +
stat_summary(fun = mean, na.rm = TRUE,geom="bar")+
labs(x = i) +
ggtitle("Mean of Rate Change Distribution")+
theme(axis.text.x = element_text(angle = 90, hjust = 1))+
facet_grid(cols = vars(Year))
print(plotgg)
}

Answer 2

You can write a function :
library(dplyr)
library(ggplot2)
plot_fn <- function(col) {
renewalplot <- detailinfo_renewal_1 %>% filter(Product=="FI")
ggplot(renewalplot, aes(x = .data[[col]],y=Rate)) +
stat_summary(fun = mean, na.rm = TRUE,geom="bar")+
labs(x = col) +
ggtitle("Mean of Rate Change Distribution")+
theme(axis.text.x = element_text(angle = 90, hjust = 1))+
facet_grid(cols = vars(Year))
}
and use lapply to apply it for every value in varslist1.
list_plot <- lapply(varslist1, plot_fn)