Displaying 4 results from an estimated 4 matches for "lonr".
Did you mean:
long
2012 Mar 16
1
ggmap crash
...> map <- GetMap.bbox(c(min(siteLon)-5, max(siteLon)+5), c(min(siteLat)-5, max(siteLat)+5), maptype='satellite')
[1] "http://maps.google.com/maps/api/staticmap?center=53.277508,-9.011888&zoom=5&size=640x640&maptype=satellite&format=png32&sensor=true"
> lonr <- c(map$BBOX$ll[2], map$BBOX$ur[2])
> latr <- c(map$BBOX$ll[1], map$BBOX$ur[1])
> lonr <- c(map$BBOX$ll[2], map$BBOX$ur[2])
> latr <- c(map$BBOX$ll[1], map$BBOX$ur[1])
> ggplot(sites, aes(siteLon, siteLat)) + annotation_raster(h_raster, lonr[1], lonr[2], latr[1], latr[2]) +...
2012 Mar 16
2
plotting border over map
...lowing codes to plot map
library(sp)
library(rgdal)
library(maps)
library(gplots)
library(clim.pact)
library(fields)
source("/R/PlotGridded2DMap.R")
source("/R/image.plot.fix.R")
source("/R/image.plot.plt.fix.r")
seasonal_plot<-function(input,lonll=-180,latll=-90,lonres=5.,latres=3.75,write_file=TRUE,The_title=NULL){
if(is.null(The_title)){
for (ki in 1:length(input)){
The_title[[ki]]<-sprintf("XCH4 CH4 (ppb)",ki)
}
}
if(!is.list(input)){input=list(input)}
lon.ll <- lonll #lower left corner of grid
lat.ll...
2011 Jun 07
1
RgoogleMaps Axes
...=c(-122.225,-122.225,-122.075,-122.075,-122.025)),
? ? ? ? ? ? ? ? ? ?.Names=c("LAT","LON"),class="data.frame",
? ? ? ? ? ? ? ? ? ?row.names =c(1418L,1419L,1536L,1538L,1578L))
# Get bounding box.
boxt <-qbbox(lat =datas$LAT,lon =datas$LON)
MyMap<-GetMap.bbox(boxt$lonR,boxt$latR,destfile ="Arvin12Map.png",
maptype ="mobile")
PlotOnStaticMap(MyMap,lat =datas$LAT,lon =datas$LON,
? ? ? ? ? ? ? ? axes =TRUE,mar =rep(4,4))
When I run this on my computer the horizontal axis ranges from 300W to 60E, but the ticks in between aren't linearly space...
2011 Sep 15
0
RGoogleMpas error
...9;tiny','tiny','tiny'),
col = c('blue', 'green', 'red'), char = c('','',''));
#get the bounding box:
bb <- qbbox(lat = mymarkers[,"lat"], lon = mymarkers[,"lon"])
#download the map:
MyMap <- GetMap.bbox(bb$lonR, bb$latR, destfile = "DC.png", GRAYSCALE =T,
markers = mymarkers);
#determine the max zoom, so that all points fit on the plot
# (not necessary in this case):
zoom <- min(MaxZoom(latrange=bb$latR,lonrange=bb$lonR));
#plot:
png("OverlayTest.png",640,640);
tmp <- PlotOnStati...