26-Creando un logo usando 'R'

Propuesta de logo de la carrera de Actuaría en la UJAT

David Josafat Santana Cobian

28 de octubre de 2016

Características del logo.

La propuesta de logo que presento a continuación tiene la idea de ser informativo. Contiene enunciadas en el marco las principales áreas de la carrera. Explícitamente se menciona la UJAT, la DACB y el nombre de la carrera. Además muestra una pirámide que es un símbolo del sureste de México. En la base se puede leer el apocope ‘MATE’ de matemáticas que debe ser una base sólida de la carrera. Más arriba se puede leer ‘PyE’ que son las iniciales de probabilidad y estadística, fundamento indispensable para analizar el riesgo en algún fenómeno. Después se puede leer ‘CA’ que son las iniciales de ciencias actuariales y hasta arriba de la pirámide la letra ‘A’ que se une al resto de la palabra ‘ACTUARIA’.

A continuación el código en ‘R’ por si quieren sugerir alguna mejora.

par(mar=c(0,0,0,0),oma=c(1,1,1,1))
plot(-1:10,type='n',xlim=c(-1,10),ylim=c(0,10),
     ylab = '', xlab = '', asp = 1,axes=F)
box()
li <- 2.5
ls <- 9
lizq <- -1.2
lder <- 3.3
tasa <- 0.2
n_esc <- (ls-li)/tasa
for(i in 1:27){
        rect(lizq+(i-1)*0.08,li+(i-1)*tasa,lder-0.08*(i-1),
             li+i*tasa, lty = 3, lwd = 0.1,col='lightgray')
        
}
c1 <- 'orange'
c2 <- 'darkgreen'
text(5.1,7,'ACTUARIA',cex=5,col=c2, font = 2)
text(1.1,5.7,'CA',cex=3.5,col=c2)
text(1.1,4.4,'PyE',cex=3.5,col=c2)
text(1.1,3.3,'MATE',cex=3.5,col=c2)
text(6.25,5.1,'UJAT',cex=6,col=c1, font = 2)
text(6.25,3.3,'DACB',cex=4.5,col=c1, font = 2)
##
xx <- c(1.9,10)
yy <- c(6.1,6.1)
lines(xx,yy,col='lightgray',lwd=5)
lines(xx,yy,col='red',lwd=1)
xx <- c(1.22,10)
yy <- c(7.9,7.9)
lines(xx,yy,col='lightgray',lwd=5)
lines(xx,yy,col='red',lwd=1)
xx <- c(3.3,10)
yy <- c(2.5,2.5)
lines(xx,yy,col='lightgray',lwd=5)
lines(xx,yy,col='red',lwd=1)
xx <- c(10,10)
yy <- c(2.5,7.9)
lines(xx,yy,col='lightgray',lwd=5)
lines(xx,yy,col='red',lwd=1)
text(4.34,2.2,'Matemáticas--Probabilidad y Estadística--Sistemas y Programación',
     font = 2)
text(-0.42,5.3,'Investigación de Operaciones', srt = 68,font = 2)
text(5.4,8.2,'Finanzas--Seguros--Economía--Ciencias Actuariales',font = 2)
text(10.2,5,'Muestreo--Demografía',srt = -90,font = 2)