<style type='text/css'>.TerraceMsg { font-size: 12px; font-family:Dotum, Arial, Verdana, Sans-Serif;}.Bold { font-weight: bold; }</style><div class='TerraceMsg'><p>Dear Tim, after getting lots of help from you, I was trying to plot all variogram in different plot with different name (1 variogram per plot). I was trying to naming those variogram like "variogram for 20120301 01:00", "variogram for 20120301 02:00".......etc. I improvised your code in the following way (below) but didn't get success! Is it possible to plot different variogram in different plot with different name  and save it in a single loop?  Thanks a lot for your valuable time.<br><br>a<-as.POSIXct(names(seoul311_split), format="%Y%m%d%H")<br>a<br>hours<-substr(a,1,16)<br>hours</p><p> </p><p>vars<-lapply(seq(seoul311_split), function(i)<br>{<br>  dat<-seoul311_split[[i]]  <br>  coordinates(dat)<-~LON+LAT<br>  proj4string(dat) <- "+proj=longlat +datum=WGS84" <br>  dat <- spTransform(dat, CRS("+proj=utm +north +zone=52 +datum=WGS84"))<br>  variogram<-autofitVariogram(log(PM10)~1,dat, model="Sph")<br>  plot<- plot(variogram,plotit=FALSE, asp=1,<br>              main= paste("Semivariogram for", hours[i]))<br>  <br>  return(plot)<br>}) </p><p> </p><p>Uzzal </p></div><br><br/><br/><table border=0 cellpadding=0 cellspacing=0 ><tr><td style='vertical-align: top;font-size:9pt;'><div jquery1411706373835="566"><br></div></td></tr></table><br>
<div id='TMSMDN' style="background:url('http://mail.gist.ac.kr:80/mail/receiveMDN.do?mdnData=oGhEpHGdw7UD%2BvJWe%2BEHzoI%2FSZmwlWaGhnc1%2Fqhopyd%2FQSInTYcl%2FnomYqOUl6VJEfRUfwpUjTUy%0A0fRK1yaQgycNTFSdKPz6cy8f1lYf7bozAuK8T%2BMDCltqj8vD%2BCzUPAX9whIeUoEFRLG%2Fi%2FStpw%3D%3D%0A')"></div>