You can do it with the ggplot2 package.
Note: Please share your sample data this way instead of pasting a table in your post
library(tidyverse, quietly = TRUE)
data <- tibble::tribble(
~Type, ~Respiratory.Rate,
"C", 20,
"C", 21,
"M", 20,
"M", 18,
"N", 17,
"N", 16,
"C", 19,
"C", 17,
"M", 17,
"M", 19,
"N", 23,
"N", 18,
"C", 16,
"C", 19,
"M", 20,
"M", 21,
"N", 20,
"N", 20
)
data %>%
ggplot(aes(sample = Respiratory.Rate)) +
geom_qq() +
geom_qq_line()
