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.40000 # Arrows par(xpd=TRUE) arrows(-19.75966, 54.75966, 33.60000, 71.40000,code=3) par(xpd=FALSE) As the output shows I cannot seem to get the correct coordinates for the arrows. Thanks again. Sincerely, Milu -------------- next part -------------- A non-text attachment was scrubbed... Name: myplot.pdf Type: application/pdf Size: 116608 bytes Desc: not available URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20160412/d53f8072/attachment.pdf>
Hi Milu, There is a two-headed arrow on the image you sent, and it seems to be where you specified. Did you want it beneath the map, as: par(xpd=TRUE) arrows(-22,54.75,-22,74,code=3) par(xpd=FALSE) Jim On Tue, Apr 12, 2016 at 7:58 PM, Miluji Sb <milujisb 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') > > # -19.75966 54.75966 33.60000 71.40000 > > # Arrows > par(xpd=TRUE) > arrows(-19.75966, 54.75966, 33.60000, 71.40000,code=3) > par(xpd=FALSE) > > As the output shows I cannot seem to get the correct coordinates for the > arrows. Thanks again. > > Sincerely, > > Milu
Hello Jim, Thanks again. I am getting the two-headed arrow but I cannot seem to get the coordinates right for the arrow to appear beneath the map. These coordinates puts the arrow on the left hand side. Thanks again! Sincerely, Milu On Tue, Apr 12, 2016 at 1:15 PM, Jim Lemon <drjimlemon at gmail.com> wrote:> Hi Milu, > There is a two-headed arrow on the image you sent, and it seems to be > where you specified. Did you want it beneath the map, as: > > par(xpd=TRUE) > arrows(-22,54.75,-22,74,code=3) > par(xpd=FALSE) > > Jim > > On Tue, Apr 12, 2016 at 7:58 PM, Miluji Sb <milujisb 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') > > > > # -19.75966 54.75966 33.60000 71.40000 > > > > # Arrows > > par(xpd=TRUE) > > arrows(-19.75966, 54.75966, 33.60000, 71.40000,code=3) > > par(xpd=FALSE) > > > > As the output shows I cannot seem to get the correct coordinates for the > > arrows. Thanks again. > > > > Sincerely, > > > > Milu >-------------- next part -------------- A non-text attachment was scrubbed... Name: myplot.pdf Type: application/pdf Size: 113072 bytes Desc: not available URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20160412/745a323a/attachment.pdf>