data %>% 
  filter(Variables == "glucoset120") %>% 
  ggplot(aes(x = Participant_ID, y = Values)) +
  geom_line() +
  facet_wrap(~Visit + Treatment, ncol = 2)