[R] barplot with lines instead of bars
John Kane
jrkrideau at yahoo.ca
Wed Sep 9 19:19:29 CEST 2009
My bad memory? I forgot that option existed.
--- On Wed, 9/9/09, S Ellison <S.Ellison at lgc.co.uk> wrote:
> From: S Ellison <S.Ellison at lgc.co.uk>
> Subject: Re: [R] barplot with lines instead of bars
> To: r-help at r-project.org, "John Kane" <jrkrideau at yahoo.ca>
> Received: Wednesday, September 9, 2009, 12:02 PM
> What is wrong with using plot(...,
> type="h")?
>
> data <- data.frame(cbind(k = 0:3, fk = c(11, 20,7,2),
> f0k = c(13.72,
> 17.64, 7.56, 1.08),
> fkest = c(11.85, 17.78, 8.89, 1.48)))
> d <- t(data[,2:4])
>
> plot(rep(1:4,3)+rep(seq(-0.1,0.1,0.1), 4), as.vector(d),
> col=rep(1:3,
> each=4),type="h", lwd=3, axes=F)
> box()
> axis(2)
> axis(1, at=1:4, labels=1:4)
> legend(2.7,20, legend=row.names(d), col=1:3, lwd=3)
>
>
> >>> John Kane <jrkrideau at yahoo.ca>
> 09/09/2009 15:30:39 >>>
> A clumsy way but it seems to work
> ====================================================================
> data <- data.frame(cbind(k = 0:3, fk = c(11, 20,7,2),
> f0k = c(13.72,
> 17.64, 7.56, 1.08),
> fkest = c(11.85, 17.78, 8.89, 1.48)))
> d <- t(data[,2:4])
> # barplot(d, beside=TRUE)
>
> xps1 <- xps2 <- c(.95,1,1.05, 1.95, 2, 2.05, 2.95, 3,
> 3.05, 3.95, 4,
> 4.05)
> yps1 <- rep(0, 12)
> yps2 <- d
>
> plot(1, 1, xlim=c(0,5),ylim=c(min(d), max(d)), type="n",
> xaxt="n",
> xlab="Hi There",
> ylab="Skinny bars")
>
> arrows(xps1,yps1, xps2,yps2, angle=0,
> col=c("red","blue","green"),
> lwd=2)
>
> ==========================================================================
>
> --- On Tue, 9/8/09, rafamoral <rafa_moral2004 at yahoo.com.br>
> wrote:
>
> > From: rafamoral <rafa_moral2004 at yahoo.com.br>
> > Subject: Re: [R] barplot with lines instead of bars
> > To: r-help at r-project.org
>
> > Received: Tuesday, September 8, 2009, 2:12 PM
> >
> > How can I draw thin bars in a barplot?
> > Rafael
> >
> >
> > hadley wrote:
> > >
> > > What's the difference between a line and a thin
> bar?
> > > Hadley
> > >
> > > On Tue, Sep 8, 2009 at 12:17 PM,
> rafamoral<rafa_moral2004 at yahoo.com.br>
> > > wrote:
> > >>
> > >> I'm sorry, but I think I was misunderstood.
> What I
> > need is something like
> > >> this:
> > >>
> > >> http://img525.imageshack.us/img525/2818/imagemyu.jpg
> > >>
> > >> Lines instead of bars
> > >>
> > >> Thanks!
> > >>
> > >> Rafael.
> > >>
> > >>
> > >> ONKELINX, Thierry wrote:
> > >>>
> > >>> Here is a solutions using ggplot2 and
> reshape
> > >>>
> > >>> library(reshape)
> > >>> library(ggplot2)
> > >>> data <- data.frame(k = 0:3, fk =
> c(11,
> > 20,7,2), f0k = c(13.72, 17.64,
> > >>> 7.56, 1.08), fkest = c(11.85, 17.78,
> 8.89,
> > 1.48))
> > >>> Molten <- melt(data, id.vars = "k")
> > >>> ggplot(Molten, aes(x = k, y = value,
> colour =
> > variable)) + geom_line()
> > >>>
> > >>> HTH,
> > >>>
> > >>> Thierry
> > >>>
> > >>>
> >
> ----------------------------------------------------------------------------
> > >>> ir. Thierry Onkelinx
> > >>> Instituut voor natuur- en bosonderzoek /
> > Research Institute for Nature
> > >>> and
> > >>> Forest
> > >>> Cel biometrie, methodologie en
> kwaliteitszorg
> > / Section biometrics,
> > >>> methodology and quality assurance
> > >>> Gaverstraat 4
> > >>> 9500 Geraardsbergen
> > >>> Belgium
> > >>> tel. + 32 54/436 185
> > >>> Thierry.Onkelinx at inbo.be
>
> > >>> www.inbo.be
> > >>>
> > >>> To call in the statistician after the
> > experiment is done may be no more
> > >>> than asking him to perform a post-mortem
> > examination: he may be able to
> > >>> say what the experiment died of.
> > >>> ~ Sir Ronald Aylmer Fisher
> > >>>
> > >>> The plural of anecdote is not data.
> > >>> ~ Roger Brinner
> > >>>
> > >>> The combination of some data and an
> aching
> > desire for an answer does not
> > >>> ensure that a reasonable answer can be
> > extracted from a given body of
> > >>> data.
> > >>> ~ John Tukey
> > >>>
> > >>> -----Oorspronkelijk bericht-----
> > >>> Van: r-help-bounces at r-project.org
>
> > [mailto:r-help-bounces at r-project.org]
>
> > >>> Namens Rafael Moral
> > >>> Verzonden: dinsdag 8 september 2009
> 16:45
> > >>> Aan: r-help
> > >>> Onderwerp: [R] barplot with lines instead
> of
> > bars
> > >>>
> > >>> Dear useRs,
> > >>>
> > >>> I want to plot the following barplot
> with
> > lines instead of bars. Is
> > >>> there
> > >>> a way?
> > >>>
> > >>> data <- data.frame(cbind(k = 0:3, fk
> =
> > c(11, 20,7,2), f0k = c(13.72,
> > >>> 17.64, 7.56, 1.08), fkest = c(11.85,
> 17.78,
> > 8.89, 1.48)))
> > >>> d <- t(data[,2:4])
> > >>> barplot(d, beside=TRUE)
> > >>>
> > >>> Regards,
> > >>> Rafael.
> > >>>
> > >>>
> > >>>
> > >>>
> >
> ____________________________________________________________________________________
> > >>> [[elided Yahoo spam]]
> > >>>
> > >>>
> [[alternative HTML version deleted]]
> > >>>
> > >>>
> > >>> Druk dit bericht a.u.b. niet onnodig af.
> > >>> Please do not print this message
> > unnecessarily.
> > >>>
> > >>> Dit bericht en eventuele bijlagen geven
> enkel
> > de visie van de schrijver
> > >>> weer
> > >>> en binden het INBO onder geen enkel
> beding,
> > zolang dit bericht niet
> > >>> bevestigd is
> > >>> door een geldig ondertekend document.
> The
> > views expressed in this
> > >>> message
> > >>> and any annex are purely those of the
> writer
> > and may not be regarded as
> > >>> stating
> > >>> an official position of INBO, as long as
> the
> > message is not confirmed by
> > >>> a
> > >>> duly
> > >>> signed document.
> > >>>
> > >>>
> > ______________________________________________
> > >>> 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://www.nabble.com/barplot-with-lines-instead-of-bars-tp25347695p25350500.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.
> > >>
> > >
> > >
> > >
> > > --
> > > http://had.co.nz/
> > >
> > > ______________________________________________
> > > 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://www.nabble.com/barplot-with-lines-instead-of-bars-tp25347695p25351360.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.
> >
>
> _________________________________
> st spam protection around
> http://mail.yahoo.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.
>
> *******************************************************************
> This email and any attachments are confidential. Any use,
> copying or
> disclosure other than by the intended recipient is
> unauthorised. If
> you have received this message in error, please notify the
> sender
> immediately via +44(0)20 8943 7000 or notify postmaster at lgc.co.uk
>
> and delete this message and any copies from your computer
> and network.
> LGC Limited. Registered in England 2991879.
> Registered office: Queens Road, Teddington, Middlesex, TW11
> 0LY, UK
>
__________________________________________________________________
Looking for the perfect gift? Give the gift of Flickr!
http://www.flickr.com/gift/
More information about the R-help
mailing list