Mike Livermore CSI 773 Week 9 Assignment Comparative Micromaps November 2010

(1)    Comparative Map with 2 colors for rising/falling

The main reason I like this one better than the other two options is I think it is easier in this case to compare the two sets of maps than more than two sets.

 

(2)    Variation of Variation #6 Changing of Thresholds

TCmapsRiseFall(wmLung,subs=c(8,9,10,11),

titles=c("White Male Lung and Bronchus Cancer","Age-Adjusted Rates"),

titleLines=c(.85,.34),

width=7.0,height=5.8, # added .4 height for 2 line title

topMar=.4, # added .4 for 1 line title

thresholds = c(50,75), # Set thresholds

cex=.75,rnd=0,

unitsLabel="Age-Adjusted Deaths Per 100,000",

shift=list(minmaxLineUp=TRUE,unitsLabelDown=FALSE))

 

(3)    Variation of Variation #8 Changing of Thresholds

TCmapsRiseFall(wmLung,subs=c(8,9,10,11),

titles=c("White Male Lung and Bronchus Cancer","Age-Adjusted Rates"),

titleLines=c(.85,.34),

width=7.0,height=5.8, # added .4 height for 2 line title

topMar=.4, # added .4 for 1 line title

probCuts = c(.25,.75), # Set fractions in classes

cex=.75,rnd=0,

unitsLabel="Age-Adjusted Deaths Per 100,000",

panelCol = c("#E0FFFF","#909090"), # Change maps, Original maps

mapCol=c(rgb(0,.4,.9),rgb(.85,.85,.85),rgb(1,.6,0),rgb(.6,.3,.9)), # Low, M, H, Missing

mapLineCol=c("white","black","black"), # bg, fg, nation

changeMapBackCol =c(rgb(.9,1,.9),rgb(.8,.8,.8)), # fill and lines

shift=list(minmaxLineUp=FALSE,unitsLabelDown=FALSE))