# NOT RUN {
library(dplyr)
library(ggplot2)
pet_delivery %>%
ggplot(aes(x = A)) +
geom_histogram(color = "grey", fill = "grey90") +
labs(title = "PET clothing case study",
subtitle = "Raw data plot",
x = "Treatment",
y = "Tensile strength [MPa]") +
theme_industRial()
# }
Run the code above in your browser using DataLab