library(tidyverse)
examples_url("battery.dat") %>%
read_table() %>%
mutate(across(c(Temperature, Material), factor)) %>%
filter(Temperature==15) %>%
aov(Response~Material, data=.) %>%
TukeyHSD() %>%
ggTukey()
Run the code above in your browser using DataLab