Multi-line texts in plots
Hi,
it would help if you provided a minimal example.
Here is one approach I often use with the plotting package ggplot2,
parameters <- expand.grid(m=c(0, 1), s=seq(0.1, 1,length=10))
x <- seq(-5, 5, length=300)
foo <- function(m, s){
data.frame(x=x, y=dnorm(x, m, s), m=factor(m), s=factor(s))
}
# construct a data.frame with all the data
results <- do.call(rbind, mapply(foo, m=parameters$m, s=parameters$s,
SIMPLIFY=F))
library(ggplot2)
p1 <- qplot(x, y, data=results, geom="line", colour=s, linetype=m)
p2 <- p1 + facet_grid(m~.)
results2 <- within(results, f <- factor(paste("m=", m,"; s=", s)))
p3 <- qplot(x, y, data=results2, geom="line", colour=f)
p1 # note how the legend is constructed for you
p2 # clearest imho
p3 # with 20 levels it's not very readable
Hope this helps,
baptiste
On 20 Mar 2009, at 10:59, mauede at alice.it wrote:
I am running a simulation many times changing one parameter each time and recording the outcome. I have to produce a plot to make a sense of the bunch of numbers I get from every run. My problem is to insert a multi-line text to keep track of which result correspond to which parameter values. A legend does not work in this case because I will plot 2 variables and the corresponding experimental values. So two curves on the same drawing as a result of the combination of 20 parameters. I may decide to place two plots on the same canvas but if so I will have to find the space for two 20-line texts .... In short, I wonder how I can insert a 20-line text on each plot. I browsed through the documentation of the par command but I could not find any helpful option. Thank you in advance for any suggestion. Maura tutti i telefonini TIM! [[alternative HTML version deleted]]
______________________________________________ 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.
_____________________________ Baptiste Augui? School of Physics University of Exeter Stocker Road, Exeter, Devon, EX4 4QL, UK Phone: +44 1392 264187 http://newton.ex.ac.uk/research/emag