Holaaaa. Muchas gracias por contestar. En teoria esos graficos los han hecho calculando los cuartiles, calculo que el 100 es Q4 y despues manualmente.
Intente mil formas en R para hacerlo automaticamente pero da cualquier cosa, solo 1 vez haciendolo artesanal me dio parecido, ya que mi base puede tener alguna minica diferencia a la que usaron en la imagenes.
Te paso exel, donde dice Placa seria el PAC de los graficos es decir se debe graficar la cantidad de SI en cada cuartilo en porcentajes.
Subi el exel como SCORES - copia.xlsx avisame si lo podes bajar
Con este codigo pude hacer que me diera aproximado uno de los ukpds pero no puede ser que sea tan tedioso
quantile(data$UKPDS_EC, c(0.25,0.5,0.75,1),na.rm = T)
prop.table(table(data$Placa[data$UKPDS_EC <=10.5]))*100
prop.table(table(data$Placa[data$UKPDS_EC >10.5 & data$UKPDS_EC <=18]))*100
prop.table(table(data$Placa[data$UKPDS_EC >18 & data$UKPDS_EC <=29.1]))*100
prop.table(table(data$Placa[data$UKPDS_EC >29.1 & data$UKPDS_EC <=77.4]))*100
Saludos