kemp2011 <- read_csv("https://raw.githubusercontent.com/cskemp/data/main/data_release/data_chimeras.csv")


kemp2011 %>%
  group_by(argument, premise_1, premise_2, conclusion, condition, edge_qn, conflict_qn) %>%
  summarize(rating = mean(rating)) %>%
  View()
