PROJECT_13

d <- c(20, 29, 30, 31, 32, 41, 42,
    10, 25, 15, 30)

hist(d, xlab = "No.of Articles ",
    col = "light blue", border = "white")

d <- c(10, 20, 30, 40, 45, 50, 55,
    60, 70, 80, 90)

hist(d, xlab = "No.of Articles", col = "cyan",
    border = "white", xlim = c(0, 50),
    ylim = c(0, 2), breaks = 15)

d <- c(20, 29, 30, 31, 32, 41, 42,
    10, 25, 15, 30)

m<-hist(d, xlab = "Weight", ylab ="Frequency",
        col = "red", border = "black",
        breaks = 15)

text(m$mids, m$counts, labels = m$counts,
    adj = c(1, -1))

d <- c(10, 20, 30, 40, 45, 50, 55,
    60, 70, 80, 90)
    
hist(d, xlab = "Weight", ylab ="Frequency",
    xlim = c(21, 536),
    col = "yellow", border = "black",
    breaks = c(5, 35, 55, 60, 75,
            85, 120, 155))