estudiantes <- 1:20

calificaciones <- c(78, 85, 90, 72, 88, 95, 80, 76, 85, 92,
                    70, 84, 89, 77, 85, 91, 73, 82, 87, 79)

barplot(calificaciones,
        names.arg = estudiantes,
        main = "Calificaciones de los estudiantes",
        xlab = "Estudiantes",
        ylab = "Calificación",
        ylim = c(0, 100))