Box plot

data <- read.csv("~/Desktop/Data/diabetes.csv")

boxplot(data$Age,col = "pink",
        main="box plot of age")

Box plot with Categorical Variable

boxplot(data$Glucose~data$Outcome,
        col=c("#CCCCFF","#99FFFF"),
        xlab = "diabetes",
        ylab = "glucose")
legend("bottomleft",c("0","1"),
       col=c("#CCCCFF","#99FFFF"),
       bty = "n",pch = 20,pt.cex = 3,
       cex = 0.8,inset = c(0.03,0.04))