Taller AC: adjetivos y colores (Fine 1996)

Campo Elı́as Pardo

Universidad Nacional de Colombia - Bogotá, Departamento de Estadı́stica.
E-mail: [email protected]

1. Objetivo
Una agencia de publicidad encarga un estudio sobre las asociaciones entre colores y adjetivos,
para mejorar la adaptación de los colores de las publicidades de los productos con las imágenes
que los compradores potenciales tienen de los colores.

2. Los datos
A cada encuestado se le pide que diga, para cada uno de 11 colores propuestos, cuál es el
adjetivo que le parece corresponder lo mejor posible. Se conservan solamente los adjetivos que se
han mencionado por lo menos tres veces. Las unidades estadı́sticas en el análisis son las asociaciones
color-adjetivo, con las que se construye una tabla de contingencia de 89 filas (adjetivos) por 11
columnas (colores). Los datos están en el archivo colores.txt

Adjetivo Azul Rojo Amarillo Blanco Gris Rosado Casta~

no Violeta Negro Naranja Verde
ácido 0 0 12 0 0 0 0 0 0 1 1
agresivo 0 3 0 0 0 0 0 1 0 1 0
alegre 1 1 1 0 0 1 0 1 0 4 1
angustiante 0 4 1 0 0 0 0 1 2 0 0
ardiente 0 6 1 0 0 0 0 0 0 2 0
armonioso 0 1 0 0 0 0 3 0 0 0 0
asiático 0 0 3 0 0 0 0 0 0 0 0
atractivo 1 0 4 0 0 0 0 0 4 4 0
avejentado 0 0 0 0 4 0 0 6 0 0 0
azucarado 0 0 1 0 0 14 0 0 0 0 0
brillante 0 0 0 0 0 0 0 0 0 8 0
brumoso 0 0 0 0 7 0 2 0 1 0 0
celeste 17 0 1 6 0 0 0 0 0 0 0
claro 0 0 0 2 5 0 4 0 0 0 3
cálido 0 3 1 0 0 0 6 1 0 6 0
calma 12 0 0 0 0 3 4 0 0 1 8
campestre 0 0 0 0 0 0 0 0 0 1 9
colorado 0 1 0 0 0 0 0 2 1 3 0
cómico 0 0 0 0 0 0 0 0 0 2 1
crudo 0 2 2 0 0 0 0 0 0 0 0
decorativo 0 0 0 1 1 0 0 2 0 3 0
dinámico 0 1 0 0 0 0 0 0 0 7 0
discreto 0 0 0 0 0 0 1 3 0 0 0
dulce 1 0 0 6 2 2 1 3 0 2 0
duro 0 0 0 0 0 0 3 2 0 0 2
eclesiástico 0 0 3 0 0 0 0 11 0 0 0
enervante 0 2 0 0 0 1 0 0 0 0 0
enfermizo 0 2 1 0 0 0 0 0 0 0 0
equilibrado 6 0 0 0 0 0 3 0 0 0 0
extendido 3 0 1 0 0 0 0 1 0 0 0
femenino 0 0 0 0 0 0 0 0 0 3 0
feo 0 0 1 0 0 1 3 1 0 0 1
floreciente 0 2 7 1 0 0 0 1 0 0 0
florido 0 0 1 0 0 3 0 0 0 0 0
franco 2 2 0 1 0 0 0 0 0 0 8

1
frágil 0 0 0 0 0 6 0 0 0 0 2
frı́o 2 0 0 3 2 0 1 0 0 0 5
frutado 0 1 0 0 0 0 0 0 0 15 0
helado 0 0 0 0 0 0 6 0 0 0 0
insignificante 0 0 0 0 0 12 6 0 0 0 0
infantil 0 0 1 0 3 13 0 0 0 0 5
inmaculado 0 0 0 9 0 0 0 0 0 0 0
inestable 0 0 2 1 6 0 3 0 0 0 0
invernal 0 0 0 0 2 0 2 0 0 0 0
jugoso 0 0 0 0 0 0 0 0 0 7 0
lejano 5 0 0 0 0 0 0 0 0 0 0
limpio 2 0 0 5 0 1 0 0 0 0 0
liso 0 0 0 2 5 0 2 0 0 0 0
liviano 2 0 1 0 0 4 0 0 0 1 0
lı́mpido 4 0 0 4 0 0 0 0 0 0 0
luminoso 3 1 22 0 0 0 0 0 0 8 1
masculino 0 0 0 0 0 0 6 0 0 0 0
mecánico 0 0 0 0 0 0 0 0 0 8 0
misterioso 0 0 0 2 1 0 0 4 5 0 0
mortal 0 2 0 10 1 0 0 7 15 0 0
natural 0 0 0 0 0 0 14 0 0 0 20
nevado 0 0 0 6 0 0 0 0 0 0 0
oto~nal 0 0 0 0 0 0 4 0 0 0 0
pálido 0 0 0 3 0 8 0 0 0 0 0
pasional 0 4 0 0 0 0 0 0 0 1 0
patriótico 3 0 0 0 0 0 0 0 0 0 0
perdido 1 0 1 0 0 0 0 2 3 0 5
perfumado 0 0 1 1 0 5 0 4 0 0 0
profundo 0 0 0 0 0 0 1 5 7 0 0
primaveral 1 0 0 0 0 1 0 0 0 1 10
puro 2 0 0 22 0 0 0 0 0 0 0
quemante 0 4 0 0 0 0 0 0 0 0 0
redondeado 0 0 0 0 0 0 1 0 0 4 0
refinado 0 0 0 0 0 1 1 2 3 0 0
religioso 0 0 0 0 0 0 0 14 0 0 0
reposado 12 0 0 0 0 0 0 0 0 0 7
revolucionario 0 3 0 0 0 0 0 0 0 0 0
romántico 2 0 0 0 0 6 0 0 0 0 0
sanguı́neo 0 20 0 0 0 0 0 0 0 10 0
severo 0 0 0 0 0 0 1 5 6 0 0
silencioso 0 0 0 0 0 0 0 0 4 0 0
siniestro 0 0 0 0 2 0 1 0 9 0 0
sobrio 0 0 0 0 3 0 0 1 4 0 0
soleado 0 0 7 0 0 0 0 0 0 0 0
sombrı́o 2 0 0 0 7 0 6 1 9 0 1
sonoro 0 0 3 0 0 0 2 0 0 0 0
sonriente 0 0 9 0 2 0 0 0 0 0 0
sucio 0 0 2 0 12 3 6 0 0 0 0
tonto 0 0 0 1 3 5 0 0 0 0 0
triste 0 0 0 0 24 0 6 8 22 0 0
vacı́o 0 0 6 8 8 5 1 3 4 0 0
violento 0 17 0 0 0 0 0 8 0 2 0
vital 0 18 5 0 0 0 0 0 0 5 0
vividor 1 0 0 0 0 1 0 0 0 0 6

2
3. Trabajo

3.1. En DTM
1. Prepare los datos: copie el archivo colores.txt con el nombre colorDAT.txt y elimine la primera
fila.
2. Utilice Excel, por ejemplo, para poner entre comillas (sencillas) los nombres de los adjetivos.
3. Corra DTM y cree los nombres de las columnas: azul, rojo, amarillo, blanco, gris, rosa,
castaño, violeta, negro, naranja, verde. En ACS las columnas se codifican como variables
continuas. Guárdelos como colorDIC.txt.
4. Cree el archivo de parámetros (programa) y guárdelo como colorPAR.txt.
5. Corra el programa creado.
6. Con un procesador de texto (Word, por ejemplo) elabore el informe. Copie de los resultados
de DTM los bloques que necesite para documentar el informe.

3.2. En R con ade4

Ejecute el programa que aparece en el archivo colores.R:

# Ejemplo colores
# Lectura de datos
colores <- read.table("Colores.txt",header=TRUE,row.names=1)
library(ade4) # abrir ade4
acs <- dudi.coa(colores)
sum(acs$eig) # inercia total
sum(acs$eig)/10 # promedio de inercia por eje
inertia.dudi(acs) # valores propios
acs <- dudi.coa(colores,scannf=FALSE,nf=6) # acs reteniendo 6 ejes
# calidad de representación de los colores
# ordenamiento en los seis ejes
coscol <- inertia.dudi(acs,,T)$col.rel # cosenos^2 de los colores
for (s in 1:acs$nf) {
cat("Eje: ",s,"\n")
print(sort(coscol[,s]))
}
cosadj <- inertia.dudi(acs,T)$row.rel # cosenos^2 de los adjetivos
# función para graficar un plano factorial etiquetando solo los
# elementos que sobrepasan un umbral de calidad de representación
# sobre el plano
# para cada plano selección de adjetivos y gráfica
# se da el plano x,y el umbral de calidad de representación
# y el objeto dudi coa (salida del dudi.coa de ade4
planfac <- function(acs,x=1,y=2,porcen=50) {
coscol <- inertia.dudi(acs,,T)$col.rel
cosadj <- inertia.dudi(acs,T)$row.rel
subcol <- subset(acs$co,(abs(coscol[,x])+abs(coscol[,y]))>porcen*100)
subadj <- subset(acs$li,(abs(cosadj[,x])+abs(cosadj[,y]))>porcen*100)
print(subcol)
print(subadj)
scatter.coa(acs,x,y,clab.row=0,clab.col=0,posieig = "none")
subtit <- paste("Plano",x);subtit <- paste(subtit,y)
for (nc in 1:nrow(subcol)) subtit <- paste(subtit,rownames(subcol)[nc])
s.label(subcol,x,y,add.plot=TRUE,sub=subtit)
s.label(subadj,x,y,add.plot=TRUE,clab=0.6)
}

3
# fin de la función
por <- 30 # umbral de calidad de representación (%).
graphics.off()
planfac(acs,1,2,por)
windows()
planfac(acs,1,6,por)
windows()
planfac(acs,2,4,por)
windows()
planfac(acs,3,4,por)
windows()
planfac(acs,4,5,por)

4. Preguntas
1. Es posible determinar el número de personas encuestadas a partir de la tabla de contingencia
adjetivos×colores?.
2. En caso afirmativo cuántas son?.
3. Qué significa el total 1081 de la tabla de contingencia?.
4. Cuántos ejes retiene para el análisis? Por que?.
5. Teniendo en cuenta los seis primeros ejes identifique en qué planos están mejor representados
cada uno de los 11 colores.
6. Para cada color o grupo de colores identifique los adjetivos más asociados leyendo en el plano
donde estén mejor representados.
7. Para cada color o grupos de colores presente gráficamente los perfiles de los adjetivos más
asociados.
8. Para un adjetivo cualquiera compruebe numéricamente la fórmula de transición (cuasibari-
centro de las coordenadas de los 11 colores ponderadas por el perfil del respectivo adjetivo).

9. Escriba la conclusión del análisis (qué adjetivos se asocian más a cada color?.)

5. Reto
Utilizando R, haga una gráfica del subespacio 3D factorial (1,2,6) etiquetando los puntos con
un coseno cuadrado superior a 70 % en ese subespacio. Compárelo con los planos factoriales 1,2
1,6 y 2,6.

Referencias
Fine, J. (1996), ‘Iniciación a los análisis de datos multidimensionales a partir de ejemplos’, Notas
de curso, Montevideo.