[R] barplot with lines instead of bars
S Ellison
S.Ellison at lgc.co.uk
Wed Sep 9 18:02:46 CEST 2009
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...{{dropped:8}}
More information about the R-help
mailing list