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 <jrkrid...@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_moral2...@yahoo.com.br> wrote:

> From: rafamoral <rafa_moral2...@yahoo.com.br>
> Subject: Re: [R] barplot with lines instead of bars
> To: r-help@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_moral2...@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.onkel...@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-boun...@r-project.org 
> [mailto:r-help-boun...@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@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@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@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@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@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}}

______________________________________________
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.

Reply via email to