Combining several mappings in ggplot2

Orange2 <- data.frame(Tree = as.factor(Tree_v), age = age_v,

Tribo,

 It looks like geom_line() accepts only 4 linetypes and you asked for

 library(ggplot2)

Tree_v <- rep(c(1:5),each = 5)
 age_v <- rep(seq(1,25, by = 5),5) + 10*runif(25)
 circumference_v <- rep(seq(21,45, by = 5), 5)*Tree_v + 25*runif(25)

 #This will work

Orange2 <- data.frame(Tree = as.factor(Tree_v), age = age_v,
 circumference = circumference_v, Lines =

 %% 4))
 ggplot(data = Orange2, aes(x = age, y = circumference, color = Tree,
 linetype = Lines)) + geom_line()

 #This won't

Orange2 <- data.frame(Tree = as.factor(Tree_v), age = age_v,
 circumference = circumference_v, Lines =

 %% 5))

ggplot(data = Orange2, aes(x = age, y = circumference, color = Tree,
 linetype = Lines)) + geom_line()

 HTH,

 Thierry

 ----
 ir. Thierry Onkelinx
 Instituut voor natuur- en bosonderzoek / Research Institute for

 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 op inbo.be
 www.inbo.be

 To call in the statistician after the experiment is done may be no

 than asking him to perform a post-mortem examination: he may be able

 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

 ensure that a reasonable answer can be extracted from a given body of
 data.
 ~ John Tukey

 -----Oorspronkelijk bericht-----
 Van: r-help-bounces op r-project.org

 Namens Tribo Laboy
 Verzonden: woensdag 26 maart 2008 12:01
 Aan: hadley wickham
 CC: r-help op r-project.org
 Onderwerp: Re: [R] Combining several mappings in ggplot2



 Apologies! I though that the Orange dataset comes with R, but it is

 fact in the package "datasets".

 So here's another "Orange2" dataset for the example:

 Tree_v = rep(c(1:5),each = 5)
 age_v = rep(seq(1,25, by = 5),5) + 10*runif(25)
 circumference_v <- rep(seq(21,45, by = 5), 5)*Tree_v + 25*runif(25)
 Orange2 <- data.frame(Tree = as.factor(Tree_v), age = age_v,
 circumference = circumference_v)


 This works fine:

 ggplot(data = Orange2, aes(x = age, y = circumference, color = Tree))
 + geom_line()

 These generate errors (included):

 > ggplot(data = Orange2, aes(x = age, y = circumference, color =

 linetype = Tree)) + geom_line()
 Error in get("check_domain", env = ., inherits = TRUE)(., ...) :
  Too many values in domain (5 > 4)

 > ggplot(data = Orange2, aes(x = age, y = circumference, color =

 + geom_line() + scale_linetype_manual(value = c(1:5))
 Error in unit(values, units, data = data) :
  'x' and 'units' must have length > 0


 What am I doing wrong?


 Regards,

 TL



 On Wed, Mar 26, 2008 at 2:08 AM, hadley wickham <h.wickham op gmail.com>
 wrote:

 > On Tue, Mar 25, 2008 at 11:48 AM, Tribo Laboy

 wrote:

 >  > Hello,
 >  >
 >  >  I want to be able to make a plot that has several series with
 >  >  different color and linetype.
 >  >  Online documentation suggest that this is possible, but I

 found how:

 >  >
 >  >  "We can also create redundant mappings, mapping the same

 to

 >  >  multiple aesthetics. This is most useful when producing a

 for

 >  >  both colour and black and white display."
 >  >
 >  >  Here's what I have to get the color
 >  >  ggplot(data = Orange, aes(x = age, y = circumference, color =

 Tree)) +

 >  >  geom_line()
 >  >
 >  >  if i try this I get an error:
 >  >  ggplot(data = Orange, aes(x = age, y = circumference, color =

 Tree,

 >  >  linetype = Tree)) + geom_line()

 >
 >  Please provide a reproducible example (or at least describe the
 >  error!), otherwise we have no way to help you.
 >
 >  Hadley
 >
 >
 >  --
 >  http://had.co.nz/
 >