search for: colourpalette

Dear David, Thank you for your answer. Sorry for the embarrassing mistake. However, even with when I generate a map for the whole world using: eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS Score",colourPalette=colourPalette, catMethod="fixedWidth", missingCountryCol = "white", addLegend=FALSE) And then use: do.call(addMapLegend, c(eps, legendLabels="none", arrows(-100,-140,100,-140,code=3))) Only a legend with the colours is generated, no arrows. My...

Forgot to copy the list Dear Jim, Thank you for your reply. I must be doing something wrong, If this is my command to plot a map of Europe: eps_europe <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS Score - Europe",colourPalette=colourPalette, catMethod="fixedWidth", missingCountryCol = "white", mapRegion="Europe", addLegend=FALSE) The following command does not seem to add the arrow. What am I doing wrong? do.call(addMapLegend, c(eps_europe, legendLabels="n...

...>> >> Dear David, >> >> Thank you for your answer. Sorry for the embarrassing mistake. However, even with when I generate a map for the whole world using: >> >> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS Score",colourPalette=colourPalette, >> catMethod="fixedWidth", missingCountryCol = "white", addLegend=FALSE) >> >> And then use: >> >> do.call(addMapLegend, c(eps, legendLabels="none", arrows(-100,-140,100,-140,code=3))) > > I do...

...;> > >>> Thank you for your answer. Sorry for the embarrassing mistake. > However, even with when I generate a map for the whole world using: > >>> > >>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS > Score",colourPalette=colourPalette, > >>> catMethod="fixedWidth", missingCountryCol = > "white", addLegend=FALSE) > >>> > >>> And then use: > >>> > >>> do.call(addMapLegend, c(eps, legendLabels="none", >...

...at gmail.com> wrote: > > Dear David, > > Thank you for your answer. Sorry for the embarrassing mistake. However, even with when I generate a map for the whole world using: > > eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS Score",colourPalette=colourPalette, > catMethod="fixedWidth", missingCountryCol = "white", addLegend=FALSE) > > And then use: > > do.call(addMapLegend, c(eps, legendLabels="none", arrows(-100,-140,100,-140,code=3))) I do get an arrow using same vers...

...ot;, "4", "5", "6", "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(addMa...

...>>> Thank you for your answer. Sorry for the embarrassing mistake. > However, even with when I generate a map for the whole world using: > > >>> > > >>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS > Score",colourPalette=colourPalette, > > >>> catMethod="fixedWidth", missingCountryCol = > "white", addLegend=FALSE) > > >>> > > >>> And then use: > > >>> > > >>> do.call(addMapLegend, c(eps, legendLabel...

...; Forgot to copy the list > > Dear Jim, > > Thank you for your reply. I must be doing something wrong, If this is my > command to plot a map of Europe: > > eps_europe <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS > Score - Europe",colourPalette=colourPalette, > catMethod="fixedWidth", missingCountryCol = > "white", mapRegion="Europe", addLegend=FALSE) > > The following command does not seem to add the arrow. What am I doing wrong? > > do.call(addMapLegend, c(eps...

...t; >>> > >>> Thank you for your answer. Sorry for the embarrassing mistake. However, even with when I generate a map for the whole world using: > >>> > >>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS Score",colourPalette=colourPalette, > >>> catMethod="fixedWidth", missingCountryCol = "white", addLegend=FALSE) > >>> > >>> And then use: > >>> > >>> do.call(addMapLegend, c(eps, legendLabels="none", arrows(-10...

...gt; Dear David, >>> >>> Thank you for your answer. Sorry for the embarrassing mistake. However, even with when I generate a map for the whole world using: >>> >>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS Score",colourPalette=colourPalette, >>> catMethod="fixedWidth", missingCountryCol = "white", addLegend=FALSE) >>> >>> And then use: >>> >>> do.call(addMapLegend, c(eps, legendLabels="none", arrows(-100,-140,100,-140,code=3...

...> > >>> Thank you for your answer. Sorry for the embarrassing mistake. However, even with when I generate a map for the whole world using: > > >>> > > >>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS Score",colourPalette=colourPalette, > > >>> catMethod="fixedWidth", missingCountryCol = "white", addLegend=FALSE) > > >>> > > >>> And then use: > > >>> > > >>> do.call(addMapLegend, c(eps, legendLabels=&qu...

...t;5", "6", "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", > addLeg...

Dear Jim, Thanks again! I do want the arrows at the bottom (beneath the map). This is what I am doing: # Draw the map eps_europe <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS Score - Europe",colourPalette=colourPalette, catMethod="fixedWidth", missingCountryCol = "white", mapRegion="Europe", addLegend=FALSE) # ISO3 codes on the map text(n, labels="ISO3", cex=0.30) # Obtain coordinates for the arrow par('usr') # -19.75966 54.75966 33.60000 71.4000...

...gt; Thank you for your answer. Sorry for the embarrassing mistake. > However, even with when I generate a map for the whole world using: > > > >>> > > > >>> eps <- mapCountryData(n, nameColumnToPlot="eps_score", > mapTitle="EPS Score",colourPalette=colourPalette, > > > >>> catMethod="fixedWidth", missingCountryCol = > "white", addLegend=FALSE) > > > >>> > > > >>> And then use: > > > >>> > > > >>> do.call(addMapL...

...; > > > Thanks again! I do want the arrows at the bottom (beneath the map). This > is > > what I am doing: > > > > # Draw the map > > eps_europe <- mapCountryData(n, nameColumnToPlot="eps_score", > mapTitle="EPS > > Score - Europe",colourPalette=colourPalette, > > catMethod="fixedWidth", missingCountryCol = "white", mapRegion="Europe", > > addLegend=FALSE) > > > > # ISO3 codes on the map > > text(n, labels="ISO3", cex=0.30) > > > > # Obtain coordinates for th...

...sb at gmail.com> wrote: > Dear Jim, > > Thanks again! I do want the arrows at the bottom (beneath the map). This is > what I am doing: > > # Draw the map > eps_europe <- mapCountryData(n, nameColumnToPlot="eps_score", mapTitle="EPS > Score - Europe",colourPalette=colourPalette, > catMethod="fixedWidth", missingCountryCol = "white", mapRegion="Europe", > addLegend=FALSE) > > # ISO3 codes on the map > text(n, labels="ISO3", cex=0.30) > > # Obtain coordinates for the arrow > par('usr') &gt...

Hi Milu, I just realized that by "the bottom of the map" you may mean "beneath the map", in which case you should use: par(xpd=TRUE) arrows(...) par(xpd=FALSE) Jim On Mon, Apr 11, 2016 at 11:50 PM, Miluji Sb <milujisb at gmail.com> wrote: > Dear David, > > Thank you very much for your replies! I didn't know about par('usr'). > > I get

...nt the arrows at the bottom (beneath the map). This >> > is >> > what I am doing: >> > >> > # Draw the map >> > eps_europe <- mapCountryData(n, nameColumnToPlot="eps_score", >> > mapTitle="EPS >> > Score - Europe",colourPalette=colourPalette, >> > catMethod="fixedWidth", missingCountryCol = "white", mapRegion="Europe", >> > addLegend=FALSE) >> > >> > # ISO3 codes on the map >> > text(n, labels="ISO3", cex=0.30) >> > >> >...

When I use grid.rect to print a multi-coloured grid, it is incredibly slow compared to a single colour grid, or even a two colour grid. I've set out some simplified examples below. This is something I run literally thousands of times a day, so I would greatly appreciate any hints on how I might improve the speed??? library(grid) pushViewport(viewport( width = unit(100,