search for: rdylgn

...o coloring of map regions based on the region values "weight". The approach I am taking is first to break regions into equal intervals, classIntervals(spdf$weight,4)$brks #4 intervals in this case and coloring all regions within the interval with the same color col = brewer.pal(4,"RdYlGn")) The max "weight" is as well the boundary of the interval The problem is that the last region is not included into the last interval nad has thus no color. I do belive I am missing something, because any other solution to manually manipulate the intervals, is overcomplicating the...

...uot;, "7", "8", "9", "10"), class = "data.frame") n <- joinCountryData2Map(pece, joinCode="ISO3", nameJoinColumn="iso3") n <- n[-which(row.names(n)=='Antarctica'),] # EPS colourPalette <- rev(brewer.pal(7, "RdYlGn")) eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS Score",colourPalette=colourPalette, catMethod="fixedWidth", missingCountryCol = "white", addLegend=FALSE) do.call(addMapLegend, c(eps, legendLabels="al...

...ot;8", "9", "10"), class = "data.frame") > n <- joinCountryData2Map(pece, joinCode="ISO3", nameJoinColumn="iso3") > n <- n[-which(row.names(n)=='Antarctica'),] > > # EPS > colourPalette <- rev(brewer.pal(7, "RdYlGn")) > > eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS > Score",colourPalette=colourPalette, > catMethod="fixedWidth", missingCountryCol = "white", > addLegend=FALSE) > do.call(addMapLegend,...

..., "10"), class = "data.frame") > > n <- joinCountryData2Map(pece, joinCode="ISO3", nameJoinColumn="iso3") > > n <- n[-which(row.names(n)=='Antarctica'),] > > > > # EPS > > colourPalette <- rev(brewer.pal(7, "RdYlGn")) > > > > eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS > > Score",colourPalette=colourPalette, > > catMethod="fixedWidth", missingCountryCol = > "white", > > addLegend=FAL...

...ame") > >>> n <- joinCountryData2Map(pece, joinCode="ISO3", nameJoinColumn="iso3") > >>> n <- n[-which(row.names(n)=='Antarctica'),] > >>> > >>> # EPS > >>> colourPalette <- rev(brewer.pal(7, "RdYlGn")) > >>> > >>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS > >>> Score",colourPalette=colourPalette, > >>> catMethod="fixedWidth", missingCountryCol = > >> &q...

...), class = "data.frame") >>> n <- joinCountryData2Map(pece, joinCode="ISO3", nameJoinColumn="iso3") >>> n <- n[-which(row.names(n)=='Antarctica'),] >>> >>> # EPS >>> colourPalette <- rev(brewer.pal(7, "RdYlGn")) >>> >>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS >>> Score",colourPalette=colourPalette, >>> catMethod="fixedWidth", missingCountryCol = >> "white", >&gt...

...gt;>>> n <- joinCountryData2Map(pece, joinCode="ISO3", nameJoinColumn="iso3") >>>>> n <- n[-which(row.names(n)=='Antarctica'),] >>>>> >>>>> # EPS >>>>> colourPalette <- rev(brewer.pal(7, "RdYlGn")) >>>>> >>>>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS >>>>> Score",colourPalette=colourPalette, >>>>> catMethod="fixedWidth", missingCountryCol = >...

...Map(pece, joinCode="ISO3", > nameJoinColumn="iso3") > >>>>>> n <- n[-which(row.names(n)=='Antarctica'),] > >>>>>> > >>>>>> # EPS > >>>>>> colourPalette <- rev(brewer.pal(7, "RdYlGn")) > >>>>>> > >>>>>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS > >>>>>> Score",colourPalette=colourPalette, > >>>>>> catMethod="fixedWid...

...ame") > >>> n <- joinCountryData2Map(pece, joinCode="ISO3", nameJoinColumn="iso3") > >>> n <- n[-which(row.names(n)=='Antarctica'),] > >>> > >>> # EPS > >>> colourPalette <- rev(brewer.pal(7, "RdYlGn")) > >>> > >>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS > >>> Score",colourPalette=colourPalette, > >>> catMethod="fixedWidth", missingCountryCol = > >> &q...

...quot;ISO3", > nameJoinColumn="iso3") > > >>>>>> n <- n[-which(row.names(n)=='Antarctica'),] > > >>>>>> > > >>>>>> # EPS > > >>>>>> colourPalette <- rev(brewer.pal(7, "RdYlGn")) > > >>>>>> > > >>>>>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", > mapTitle="EPS > > >>>>>> Score",colourPalette=colourPalette, > > >>>>>>...

...Data2Map(pece, joinCode="ISO3", nameJoinColumn="iso3") > >>>>>> n <- n[-which(row.names(n)=='Antarctica'),] > >>>>>> > >>>>>> # EPS > >>>>>> colourPalette <- rev(brewer.pal(7, "RdYlGn")) > >>>>>> > >>>>>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS > >>>>>> Score",colourPalette=colourPalette, > >>>>>> catMethod="fixedWid...

...n <- joinCountryData2Map(pece, joinCode="ISO3", nameJoinColumn="iso3") >>>>>> n <- n[-which(row.names(n)=='Antarctica'),] >>>>>> >>>>>> # EPS >>>>>> colourPalette <- rev(brewer.pal(7, "RdYlGn")) >>>>>> >>>>>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS >>>>>> Score",colourPalette=colourPalette, >>>>>> catMethod="fixedWidth", missingCo...

If we take the matel-haenszel test on these data of five 2x2 tables stratified along Penicillin.Levels array(c(0, 0, 6, 5, 3, 0, 3, 6, 6, 2, 0, 4, 5, 6, 1, 0, 2, 5, 0, 0), dim = c(2, 2, 5), dimnames = list( Delay = c("None", "1.5h"), Response = c("Cured", "Died"), Penicillin.Level =

...ode="ISO3", nameJoinColumn="iso3") > > >>>>>> n <- n[-which(row.names(n)=='Antarctica'),] > > >>>>>> > > >>>>>> # EPS > > >>>>>> colourPalette <- rev(brewer.pal(7, "RdYlGn")) > > >>>>>> > > >>>>>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS > > >>>>>> Score",colourPalette=colourPalette, > > >>>>>> catM...

...; nameJoinColumn="iso3") > > > >>>>>> n <- n[-which(row.names(n)=='Antarctica'),] > > > >>>>>> > > > >>>>>> # EPS > > > >>>>>> colourPalette <- rev(brewer.pal(7, "RdYlGn")) > > > >>>>>> > > > >>>>>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", > mapTitle="EPS > > > >>>>>> Score",colourPalette=colourPalette, > > > >>>>>&gt...