Variable in group_by and ggplot

[zorro]

I have this code snippet:

group_by(Session,Risk) %>%
plot1 <- ggplot(DF, aes(x = Session, y = n, color = Risk)) + 
  theme(axis.text.x = element_text(angle = 90), legend.position="bottom", 
        legend.text = element_text(size=10))  + 
  geom_point() + geom_line(aes(group = Risk), lty = 1)

I am trying to replace "Risk" with a variable so that if I have to change it I only need to do it once instead of changing all. So I try adding this:

var1 <- "Risk" and modify the codes to be like this:

group_by(Session,var1) %>%
plot1 <- ggplot(DF, aes(x = Session, y = n, color = var1)) + 
  theme(axis.text.x = element_text(angle = 90), legend.position="bottom", 
        legend.text = element_text(size=10))  + 
  geom_point() + geom_line(aes(group = var1), lty = 1)

but when I run the script, the graph is not showing the correct plot anymore, instead of showing multiple line plot, the is only one line with wrong values.

Please help.

[jrkrideau]

Can you supply some sample data? See FAQ: How to do a minimal reproducible example ( reprex ) for beginners

[andresrcs]

Define a function, see this example with the iris dataset:

library(tidyverse)

custom_function <- function(variable) {
    group_by(iris, {{variable}}) %>%
        ggplot(aes(x = Sepal.Length, y = Sepal.Width, color = {{variable}})) + 
            theme(axis.text.x = element_text(angle = 90), legend.position="bottom", 
                  legend.text = element_text(size=10))  + 
            geom_point() + geom_line(aes(group = {{variable}}), lty = 1)
}

custom_function(Species)

^{Created on 2021-02-09 by the reprex package (v1.0.0)}

If you need more specific help, please provide a proper REPRoducible EXample (reprex) illustrating your issue.

[zorro]

Thank you for the tips. I have tried it but I got into another issue with my function. However, let me try working on it first and will be back if it is necessary.