Cómo decir TE QUIERO usando el código de R

Nunca es tarde para decir a esa persona cuánto la quieres. Y si además somos unos enamorados de R, podemos fardar muchísimo mostrando con el código cuánto la queremos. En esta entrada os voy a mostrar cómo decir Te quiero usando el código de R de dos formas: una forma en modo texto y otra en modo gráfico. De este modo podréis decirle a la persona que amáis que la queréis de un modo completamente y sorprendente: utilizando los códigos de R. Es ideal para decírselo en San Valentín, en su cumpleaños o cuando realmente lo sintáis. Eso sí, ¡os recomiendo que le enviéis el código de R para que sean ellos los que lo ejecuten y se lleven la sorpresa!

Cómo decir Te quiero usando el código de R en modo texto

Al ejecutar el siguiente código de R nos aparecerá como resultado la frase «I love you»

[sourcecode lang=»r»] paste(intToUtf8(acos(log(1))*180/pi-17),
intToUtf8(atan(1/sqrt(3))*180/pi+2), toupper(substr(month.name[4],5,5)),
intToUtf8(acos(exp(0)/2)*180/pi+2^4+3),toupper(substr(month.name[11],3,3)),
LETTERS[3^2-2^2],intToUtf8(atan(1/sqrt(3))*180/pi+2),
intToUtf8(acos(log(1))*180/pi-1), substr(month.name[10],1,1),
intToUtf8(acos(log(1))*180/pi-5), sep = intToUtf8(0))
[/sourcecode]

Y este es el resultado de la ejecución:

[sourcecode lang=»r»] [1] "I LOVE YOU"
[/sourcecode]

Vale, no es algo «sorprendente», pero conseguir transformar las ecuaciones del código de R en ese resultado tiene su mérito. Y por qué no decirlo, presenta una belleza intrínseca que solo unos pocos pueden valorar…

Cómo decir Te quiero usando el código de R en modo gráfico

Vamos a hacer a continuación algo mucho más visual: una figura. Pero una figura un tanto particular, donde se representa un corazón rodeado de otros corazones, estando en su interior las palabras «Te quiero». Para ello, tenéis que ejecutar el código siguiente:

[sourcecode lang=»r»] # Creamos el conjunto de datos para formar el corazón
dat<- data.frame(t=seq(0, 2*pi, by=0.1) )
# Damos forma a los datos para formar el corazón grande del centro
xcor <- function(t) 16*sin(t)^3
ycor <- function(t) 13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)
dat$y=ycor(dat$t)
dat$x=xcor(dat$t)
with(dat, plot(x,y, type="l"))
with(dat, polygon(x,y, col="deeppink", lwd=3, lty=3))
# Hacer los corazones morados alrededor del corazón principal del centro
points(c(10,-10, -15, 15), c(-10, -10, 10, 10), pch=169, font=5, cex=5,col="purple")
# Añadir "TE QUIERO" en el centro de la imagen
text(0,0,"TE QUIERO",col=’white’,cex=2.5)
[/sourcecode]

Y aquí tenéis el resultado:

En estas páginas tenéis otras variantes (1, 2, 3). Yo he ejecutado todos los códigos anteriores usando la interfaz gráfica R Commander. Y aquí tenéis uno de mis cursos de estadística en R Commander más relevantes, por si queréis profundizar en su uso.