Hi Lucy ! Are you looking for something like?
library(tidyverse)
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(x=Type, y=Respiratory.Rate, color=Type)) +
geom_point() +
labs(x='Nicotine Type', y='Respiratory rate', title='Respiratory Rate vs Nicotine Type') +
theme_minimal() +
theme(legend.position='none')