Re: [R] Why is bubbles() creating empty png graphs?
Thanks a lot for yor help - it is working now Rainer Roger Bivand wrote: > On Thu, 15 Dec 2005, Rainer M Krug wrote: > >> This code below produces empty XXX.png files - if I use plot(), it works >> and if I enter the commands >> >> png(filename=fn) >> bubble(positions, do.sqrt=FALSE, main=q) >> dev.off() >> >> manually, it works as well. > > This a hidden FAQ 7.22: Why do lattice/trellis graphics not work? > > bubble() in package sp or gstat calls lattice function xyplot internally, > so doing print(bubble(...)) should work. > >> I am lost - any help appreciated. >> >> The weird thing is that it worked before I made some changes... (I don't >> have a copy of the working version...). >> >> R version: >> >> platform i686-pc-linux-gnu >> arch i686 >> os linux-gnu >> system i686, linux-gnu >> status >> major2 >> minor2.0 >> year 2005 >> month10 >> day 06 >> svn rev 35749 >> language R >> >> Operating system: SuSE 10 >> >> Rainer >> >> >> - >> >> library(gstat) >> library(RMySQL) >> library(DAAG) >> >> m <- dbDriver("MySQL") >> con <- dbConnect(m, group = "renpatch_renosterbos") >> >> tbls <- dbListTables(con) >> runs <- 1:5 >> years <- seq(98, 0, -7) >> >> progress_end <- length(tbls) * length(runs) * length(years) >> progress <- 0 >> >> for (year in years) >> { >> fd <- paste("/home/rkrug/Documents/R/plots/Y", year, sep="") >> dir.create(fd, showWarnings=FALSE, recursive = TRUE) >> for (run in runs) >> { >> for (tn in tbls) >> { >> fn <- paste(fd, "/", tn, "_R", run, "_Y", year, ".png", sep="") >> progress <- progress + 1 >> cat(progress, 'of', progress_end, " | ", fn, " | ") >> flush.console() >> if (!file.exists(fn)) >> { >> q <- paste("select X,Y,RX from", tn, "where (_run=", run, ") AND >> (_Year=", year, ")") >> rs <- dbSendQuery(con, q) >> positions <- fetch(rs, n = -1) >> while (!dbHasCompleted(rs)) >> { >> cat(".") >> flush.console() >> } >> cat(length(positions$X), "points") >> png(filename=fn) >> bubble(positions, do.sqrt=FALSE, main=q) >> #plot(positions) >> dev.off() >> pause() >> cat(" | Done \n") >> } >> } >> } >> } >> >> > -- -- Rainer M. Krug, Dipl. Phys. (Germany), MSc Conservation Biology (UCT) Department of Conservation Ecology University of Stellenbosch Matieland 7602 South Africa Tel:+27 - (0)72 808 2975 (w) Fax:+27 - (0)21 808 3304 Cell:+27 - (0)83 9479 042 email:[EMAIL PROTECTED] [EMAIL PROTECTED] __ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
Re: [R] Why is bubbles() creating empty png graphs?
Is this bubble() from gstat? FAQ, Q7.22 On Thu, 15 Dec 2005, Rainer M Krug wrote: > This code below produces empty XXX.png files - if I use plot(), it works > and if I enter the commands > > png(filename=fn) > bubble(positions, do.sqrt=FALSE, main=q) > dev.off() > > manually, it works as well. > > I am lost - any help appreciated. > > The weird thing is that it worked before I made some changes... (I don't > have a copy of the working version...). > > R version: > > platform i686-pc-linux-gnu > arch i686 > os linux-gnu > system i686, linux-gnu > status > major2 > minor2.0 > year 2005 > month10 > day 06 > svn rev 35749 > language R > > Operating system: SuSE 10 > > Rainer > > > - > > library(gstat) > library(RMySQL) > library(DAAG) > > m <- dbDriver("MySQL") > con <- dbConnect(m, group = "renpatch_renosterbos") > > tbls <- dbListTables(con) > runs <- 1:5 > years <- seq(98, 0, -7) > > progress_end <- length(tbls) * length(runs) * length(years) > progress <- 0 > > for (year in years) > { > fd <- paste("/home/rkrug/Documents/R/plots/Y", year, sep="") > dir.create(fd, showWarnings=FALSE, recursive = TRUE) > for (run in runs) > { > for (tn in tbls) > { > fn <- paste(fd, "/", tn, "_R", run, "_Y", year, ".png", sep="") > progress <- progress + 1 > cat(progress, 'of', progress_end, " | ", fn, " | ") > flush.console() > if (!file.exists(fn)) > { > q <- paste("select X,Y,RX from", tn, "where (_run=", run, ") AND > (_Year=", year, ")") > rs <- dbSendQuery(con, q) > positions <- fetch(rs, n = -1) > while (!dbHasCompleted(rs)) > { > cat(".") > flush.console() > } > cat(length(positions$X), "points") > png(filename=fn) > bubble(positions, do.sqrt=FALSE, main=q) > #plot(positions) > dev.off() > pause() > cat(" | Done \n") > } > } > } > } > > -- > -- > Rainer M. Krug, Dipl. Phys. (Germany), MSc Conservation Biology (UCT) > > Department of Conservation Ecology > University of Stellenbosch > Matieland 7602 > South Africa > > Tel:+27 - (0)72 808 2975 (w) > Fax:+27 - (0)21 808 3304 > Cell:+27 - (0)83 9479 042 > > email:[EMAIL PROTECTED] > [EMAIL PROTECTED] > > __ > R-help@stat.math.ethz.ch mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html > -- Brian D. Ripley, [EMAIL PROTECTED] Professor of Applied Statistics, http://www.stats.ox.ac.uk/~ripley/ University of Oxford, Tel: +44 1865 272861 (self) 1 South Parks Road, +44 1865 272866 (PA) Oxford OX1 3TG, UKFax: +44 1865 272595 __ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
Re: [R] Why is bubbles() creating empty png graphs?
On Thu, 15 Dec 2005, Rainer M Krug wrote: > This code below produces empty XXX.png files - if I use plot(), it works > and if I enter the commands > > png(filename=fn) > bubble(positions, do.sqrt=FALSE, main=q) > dev.off() > > manually, it works as well. This a hidden FAQ 7.22: Why do lattice/trellis graphics not work? bubble() in package sp or gstat calls lattice function xyplot internally, so doing print(bubble(...)) should work. > > I am lost - any help appreciated. > > The weird thing is that it worked before I made some changes... (I don't > have a copy of the working version...). > > R version: > > platform i686-pc-linux-gnu > arch i686 > os linux-gnu > system i686, linux-gnu > status > major2 > minor2.0 > year 2005 > month10 > day 06 > svn rev 35749 > language R > > Operating system: SuSE 10 > > Rainer > > > - > > library(gstat) > library(RMySQL) > library(DAAG) > > m <- dbDriver("MySQL") > con <- dbConnect(m, group = "renpatch_renosterbos") > > tbls <- dbListTables(con) > runs <- 1:5 > years <- seq(98, 0, -7) > > progress_end <- length(tbls) * length(runs) * length(years) > progress <- 0 > > for (year in years) > { > fd <- paste("/home/rkrug/Documents/R/plots/Y", year, sep="") > dir.create(fd, showWarnings=FALSE, recursive = TRUE) > for (run in runs) > { > for (tn in tbls) > { > fn <- paste(fd, "/", tn, "_R", run, "_Y", year, ".png", sep="") > progress <- progress + 1 > cat(progress, 'of', progress_end, " | ", fn, " | ") > flush.console() > if (!file.exists(fn)) > { > q <- paste("select X,Y,RX from", tn, "where (_run=", run, ") AND > (_Year=", year, ")") > rs <- dbSendQuery(con, q) > positions <- fetch(rs, n = -1) > while (!dbHasCompleted(rs)) > { > cat(".") > flush.console() > } > cat(length(positions$X), "points") > png(filename=fn) > bubble(positions, do.sqrt=FALSE, main=q) > #plot(positions) > dev.off() > pause() > cat(" | Done \n") > } > } > } > } > > -- Roger Bivand Economic Geography Section, Department of Economics, Norwegian School of Economics and Business Administration, Helleveien 30, N-5045 Bergen, Norway. voice: +47 55 95 93 55; fax +47 55 95 95 43 e-mail: [EMAIL PROTECTED] __ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html