This isn't quite as sophisticated as Jim Lemon's solution (BTW, very nice!),
but here's a way to get
the graph (sans table) using ggplot2 and lattice:
dissolve <- data.frame(
Method = rep(c('No Stir', 'Stir'), each = 2),
Type = rep(c('Cube', 'Granules'), 2),
Time = c(686.36, 398.32, 179.17, 60.29))
library(ggplot2)
p <- qplot(Method, Time, data = dissolve, group = Type, colour = Type)
p + geom_point(cex = 4) + geom_line(lwd = 1.3) +
ylab('Dissolving time (seconds)') + xlab("") +
opts(title = 'Dissolving time vs. Stirring/No stirring\n for sugar
cubes and granules') +
scale_y_continuous(limits = c(0, 800)) +
theme_bw()
It could probably be tweaked to get the y-axis limits in the original, but
it's pretty close
for a few lines of code.
My attempt in lattice:
library(lattice)
xyplot(Time ~ Method, data = dissolve, groups = Type,
par.settings = list(col = c('Blue', 'Red')),
pch = 16, cex = 1.4, lwd = 2,
ylim = c(0, 800),
type = 'b',
panel = function(x, y, ...) {
panel.grid(h = 7, v = 0)
panel.xyplot(x, y, ...) }
key = simpleKey(text = c('Cube', 'Granules'),
space = 'right', lines = TRUE, points = FALSE),
scales = list(x = list(at = c(1, 2), labels = c('No stir', 'Stir')),
y = list(at = seq(0, 800, by = 100))),
main = 'Dissolving time vs. Stirring/No stirring\n for sugar cubes
and granules',
ylab = 'Dissolving time (seconds)')
Again, it could be tweaked to allow for different plotting characters in the
two groups, but
it would be redundant since color is sufficient to distinguish them. I
couldn't figure out how
to superimpose the lines with points, but perhaps someone else can offer a
solution for that.
HTH,
Dennis
On Sat, Jan 9, 2010 at 6:29 AM, lse1986 <sam_eden1...@yahoo.co.uk> wrote:
>
> Hey Jim,
>
> Thanks for your reply!
>
> I tried what you said, i still kept getting errors.
>
> here's what i want my graph to look like:
>
> http://i.imagehost.org/0474/Untitled_5.jpg
>
> i have x<-c("not stir", "stir")
>
> i can't plot it though :(
>
>
> Jim Lemon wrote:
> >
> > On 01/09/2010 12:38 PM, lse1986 wrote:
> >> Hi i want do a line graph.
> >>
> >> My y axis contains numeric values. My x axis contains non numeric
> >> statements.
> >>
> >> This is what i want the graph to look like.
> >>
> >> When i try to plot this graph on R it comes up with the following error
> >> message:
> >>
> >> "Error in plot.window(...) : need finite 'xlim' values
> >> In addition: Warning messages:
> >> 1: In xy.coords(x, y, xlabel, ylabel, log) : NAs introduced by coercion
> >> 2: In min(x) : no non-missing arguments to min; returning Inf
> >> 3: In max(x) : no non-missing arguments to max; returning -Inf"
> >>
> >>
> > Hi Sam,
> > While I don't know what you want the graph to look like, I would suggest
> > the following:
> >
> > xf<-factor(x)
> > plot(as.numeric(xf),rnorm(10),type="l",xaxt="n")
> > axis(1,at=1:10,labels=xf)
> >
> > Jim
> >
> > ______________________________________________
> > 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://n4.nabble.com/Plotting-numeric-values-against-non-numeric-items-tp1010129p1010311.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.
>
[[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.
