# Code a <- ggplot(data = df, aes(x = Pregnancies)) + geom_histogram( color = "red", fill = "blue", alpha = 0.1) + geom_density() b <- ggplot(data = df, aes(x = Glucose)) + geom_histogram( color = "red", fill = "blue", alpha = 0.1) + geom_density() c <- ggplot(data = df, aes(x = BloodPressure)) + geom_histogram( color = "red", fill = "blue", alpha = 0.1) + geom_density() d <- ggplot(data = df, aes(x = SkinThickness)) + geom_histogram( color = "red", fill = "blue", alpha = 0.1) + geom_density() e <- ggplot(data = df, aes(x = Insulin)) + geom_histogram( color = "red", fill = "blue", alpha = 0.1) + geom_density() f <- ggplot(data = df, aes(x = BMI)) + geom_histogram( color = "red", fill = "blue", alpha = 0.1) + geom_density() g <- ggplot(data = df, aes(x = DiabetesPedigreeFunction)) + geom_histogram( color = "red", fill = "blue", alpha = 0.1) + geom_density() h <- ggplot(data = df, aes(x = Age)) + geom_histogram( color = "red", fill = "blue", alpha = 0.1) +geom_density() ggarrange(a, b, c, d,e,f,g, h + rremove("x.text"), labels = c("a", "b", "c", "d","e", "f", "g", "h"), ncol = 3, nrow = 3)