############################################################
############################################################
library(lattice)
library(plyr)
############################################################
## Ejemplo hipotético
## Temporada: "Sequía" o "Lluvioso"
## Acueducto: "Funcionando al 50%" o "No funcionando 0"
## Organismo "Autónomo" lo que implica reforma a la ley estatal.
## Norma para calidad del agua subterránea "igual" o "más estricta"
## Acuíferos mejor manejados "equilibrio" o que sean sujetos a sobre explotación
############################################################
escenarios=expand.grid(c(0,1),c(0,1),c(0,1), c(0,1), c(0,1))
escenarios=rename(escenarios, c("Var1"="Norma",
"Var2"="Acuíferos",
"Var3"="Acueducto",
"Var4"="Autonomía",
"Var5"="Sequía"))
escenarios1=escenarios
############################################################
escenarios$Norma=ifelse(escenarios$Norma == 0,"Estricta", "Igual");
escenarios$Acuíferos=ifelse(escenarios$Acuíferos == 0,"Abatidos", "Equilibrio");
escenarios$Acueducto=ifelse(escenarios$Acueducto == 0, "0", "50%");
escenarios$Autonomía=ifelse(escenarios$Autonomía == 0, "Igual", "Autónomo" );
escenarios$Sequía=ifelse(escenarios$Sequía == 0, "Severa", "Lluvioso");
############################################################
dim(escenarios) # 32,5
############################################################
escenarios1=as.matrix(escenarios1)
############################################################
escenarios2=t(escenarios)
############################################################
myPanel <- function(x, y, z, ...) {
panel.levelplot(x,y,z,...)
panel.text(x, y, escenarios2[cbind(x,y)], fontfamily = "sans", cex=0.8) ## use handy matrix indexing
}
############################################################
levelplot(t(escenarios1), col.regions=c("darkorange", "cadetblue1"), aspect="fill", panel=myPanel, colorkey = FALSE,
fontfamily = "sans", xlab="Variables binarias (impulsos más críticos)",
ylab="Escenarios",
scales = list(tck = c(1,0), y = list(draw = FALSE)),
main = "Construcción de 32 escenarios a partir de 5 variables")
############################################################
############################################################
Construcción de escenarios a partir de variables binarias
Dr. Luis Alan Navarro Navarro
Centro de Estudios en Gobierno y Asuntos Públicos
El Colegio de Sonora
La técnica de planeación por escenarios construye escenarios a partir de un conjunto de variables binarias que muestran extremos divergentes del futuro. Aunque esta técnica recomienda elaborar los escenarios usando un plano bidimensional (dos variables divergentes), a veces se tiene la curiosidad de conocer cómo sería un futuro multidimensional.
A continuación se muestra una forma de elaborar una gráfica a partir de una tabla que agrupa todas las posibles combinaciones de un conjunto de variables que pueden adoptar dos posibles estados, se asignó un color naranja a los estados no deseados y un color azul a los estados deseables.
De tal forma que la primera línea de la tabla es el escenario más deseado, por el contrario la última línea es el escenario menos deseado. Este ejemplo se puede generalizar para incluir más variables.
R code
