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]]
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.
Try this: matplot(matrix(1:length(d), NCOL(d), byrow = TRUE), t(d), type = 'h', lty 1, lwd = 2) On Tue, Sep 8, 2009 at 11:44 AM, Rafael Moral <rafa_moral2004@yahoo.com.br>wrote:> 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]] > > > ______________________________________________ > 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. > >-- Henrique Dallazuanna Curitiba-Paraná-Brasil 25° 25' 40" S 49° 16' 22" O [[alternative HTML version deleted]]
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}}
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/