Sobre el grupo

summary(data$Promedio)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  3.320   3.960   4.080   4.038   4.160   4.680 

sd(data$Promedio)

[1] 0.287516

non =data.frame(data$Nombre)

non

                   data.Nombre
1           ARISMENDI GIGLIOLI
2         CHAVES RAYMOND,MARIA
3           CUERVO PEÑA,SAMUEL
4         DAVILA MUELAS,MIGUEL
5   ESPINOSA ARIAS,JUAN CAMILO
6           HENAO RINCON,TOMAS
7              HIDALGO JIMENEZ
8           LEMA FRANCO,SALOME
9   MESA VELASQUEZ,JOSE DANIEL
10             OTALVARO GARCIA
11       PADILLA ROSERO,MIGUEL
12    RAMIREZ RIVAS,JUAN DAVID
13        RUBIO URREGO,ESTEVAN
14 SANCHEZ MORILLO,JUAN FELIPE
15          SILVA HURTADO,JOSE
16             SIMONS GONZALEZ
17          SOTO BEDOYA,SAMUEL