[R] Plotting Histogram using histogram() and for loop and Iwant to save the histogram individually ... HELP

ychu066 ychu066 at aucklanduni.ac.nz
Wed Nov 18 02:17:56 CET 2009


Hi again, do you know how can I use the main function to change the title for
eac h histogram. i.e that first graph show have a title "Index 1" but
because the variable name column starts the 8th the title shows up as "Index
8" , i have tried use main = colnames(data)[i-1] but it result errors....




Colin Millar wrote:
> 
> 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-bounces at r-project.org [mailto:r-help-bounces at r-project.org]
> On Behalf Of Tal Galili
> Sent: 17 November 2009 12:15
> To: ychu066
> Cc: r-help at 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.Galili at 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 <ychu066 at 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 at 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 at 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 at 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 at 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-loop-and-I-want-to-save-the-histogram-individually-...-HELP-tp26328734p26400101.html
Sent from the R help mailing list archive at Nabble.com.




More information about the R-help mailing list