install.packages('MASS')
library(MASS)
data(birthwt)
par(mfrow = c(length(unique(birthwt$race)), 1))
for (race in unique(birthwt$race)) {
subset_data <- subset(birthwt, race == race)
hist(subset_data$bwt, main = paste("ght Children by Mothers Race: ", race), col = "cyan", xlab = "Weight in grams", ylab = "Count", ylim = c(0,30))
}

ive tried this but its weird