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))