Estimados Javier y Jorge gracias por el material y la ayuda con eso pude
armar el script y solucionar el problema!


Básicamente lo solucioné con este script:


titulo[tabla<=a["1%"]]<-"1%"
titulo[tabla<=a["5%"] &  tabla>a["1%"]]<-"5%"
titulo[tabla<=a["10%"] &  tabla>a["5%"]]<-"10%"
titulo[tabla<=a["25%"] &  tabla>a["10%"]]<-"25%"
titulo[tabla<=a["50%"] &  tabla>a["25%"]]<-"50%"
titulo[tabla<=a["75%"] &  tabla>a["50%"]]<-"75%"
titulo[tabla<=a["90%"] &  tabla>a["75%"]]<-"90%"
titulo[tabla<=a["95%"] &  tabla>a["90%"]]<-"95%"
titulo[tabla>a["95%"]]<-"99%"

Saludos,

Rodrigo.

	[[alternative HTML version deleted]]

