Or alternatively store as a list and export later if you want
... after some tidying ...
library(lattice)
columns <- 8:153
plots <- vector("list", length(columns))
j <- 0
for (i in columns)
{
plots[[ j <- j+1 ]] <-
histogram( ~ data[,i] | data[,2],
ylab = "Frequency", xlab = "Score",
xlim = c(1,5), ylim = c(0,100),
main = colnames(data)[i]
)
}
print(plots[[1]])
# or export
for (i in seq_along(plots))
{
png(paste("hist", i, ".png", sep = ""))
print(plots[[i]])
dev.off()
}
HTH
Colin.
Incidentally,
You put what you want to export between png(..) and dev.off()
If you supply the data explicitly it doesn't make any sense to pass the
data through the data argument.
No need for paste(x) if is x is already a character vector.
-----Original Message-----
From: r-help-boun...@r-project.org [mailto:r-help-boun...@r-project.org]
On Behalf Of Tal Galili
Sent: 17 November 2009 12:15
To: ychu066
Cc: r-help@r-project.org
Subject: Re: [R] Plotting Histogram using histogram() and for loop and
Iwant to save the histogram individually ... HELP
I know how you feel,
I came a cross the same problem once, which took sometime to find a
solution
for.
What you need to do is put the hist into a variable and then plot it,
for
example:
library(lattice)
for(i in 8:153){
hist.to.plot <- histogram(~ data[,i] | data[,2],
data=data,,ylab="Frequency",xlim=c(1,5),xlab="Score",ylim=c(0,100)),main
=paste(colnames(data)[i],sep="")
plot(hist.to.plot)
}
Cheers,
Tal
----------------------------------------------
My contact information:
Tal Galili
E-mail: tal.gal...@gmail.com
Phone number: 972-52-7275845
FaceBook: Tal Galili
My Blogs:
http://www.talgalili.com (Web and general, Hebrew)
http://www.biostatistics.co.il (Statistics, Hebrew)
http://www.r-statistics.com/ (Statistics,R, English)
On Tue, Nov 17, 2009 at 7:09 AM, ychu066 <ychu...@aucklanduni.ac.nz>
wrote:
>
> tried but still doesnt work ...
>
> very weird ...
>
> ychu066 wrote:
> >
> > here is the codes that i tried.....
> >
> >> png(paste("hist",i,".png",sep="")
> > + library(lattice)
> > Error: unexpected symbol in:
> > "png(paste("hist",i,".png",sep="")
> > library"
> >> for(i in 8:153){
> > + histogram(~ data[,i] | data[,2],
> > data=data,ylab="Frequency",xlim=c(1,5),xlab="Score",ylim=c(0,100)))
> > Error: unexpected ')' in:
> > "for(i in 8:153){
> > histogram(~ data[,i] | data[,2],
> > data=data,ylab="Frequency",xlim=c(1,5),xlab="Score",ylim=c(0,100)))"
> >> }
> > Error: unexpected '}' in "}"
> >> dev.off()
> > Error in dev.off() : cannot shut down device 1 (the null device)
> >
> >
> > ychu066 wrote:
> >>
> >> still doesnt work ...
> >>
> >>
> >> Karl Ove Hufthammer wrote:
> >>>
> >>> On Thu, 12 Nov 2009 19:10:52 -0800 (PST) ychu066 <ychu066
> >>> @aucklanduni.ac.nz> wrote:
> >>>> And I also want to save each histogram in each separate pdf file
using
> >>>> the
> >>>> following codes ?.
> >>>> png("hist.png[i]")
> >>>> dev.off()
> >>>
> >>> Try png(paste("hist",i,".png",sep="") instead.
> >>>
> >>> --
> >>> Karl Ove Hufthammer
> >>>
> >>> ______________________________________________
> >>> R-help@r-project.org mailing list
> >>> https://stat.ethz.ch/mailman/listinfo/r-help
> >>> PLEASE do read the posting guide
> >>> http://www.R-project.org/posting-guide.html
> >>> and provide commented, minimal, self-contained, reproducible code.
> >>>
> >>>
> >>
> >>
> >
> >
>
> --
> View this message in context:
>
http://old.nabble.com/Plotting-Histogram-using-histogram%28%29-and-for-l
oop-and-I-want-to-save-the-histogram-individually-...-HELP-tp26328734p26
384489.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
