code

library(ggplot2)

data = data.frame(x = 1:50, y = runif(50,1,10), colour=c(rep("A",25),rep("B",25)), group=rep(1:2,25))
p <- ggplot(data,aes(x=colour,y=y, colour = colour))  
p = p + xlab("Section") + ylab("F1") + opts(axis.title.x = theme_text(vjust=0))
p = p +  opts(plot.margin = unit(c(-0.65,0.1,0.15,0.35),"cm")) 
p = p + facet_grid(group ~ .,space="free",scales="free") 
p = p + scale_size(to= c(1.5,3), legend=F)
p = p + geom_jitter()
grid.gedit(size=unit(5, "mm"), "key.points", grep=T)
#print(p)
exit

error

R version 2.11.1 (2010-05-31)
Copyright (C) 2010 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

R ist freie Software und kommt OHNE JEGLICHE GARANTIE.
Sie sind eingeladen, es unter bestimmten Bedingungen weiter zu verbreiten.
Tippen Sie 'license()' or 'licence()' für Details dazu.

R ist ein Gemeinschaftsprojekt mit vielen Beitragenden.
Tippen Sie 'contributors()' für mehr Information und 'citation()',
um zu erfahren, wie R oder R packages in Publikationen zitiert werden können.

Tippen Sie 'demo()' für einige Demos, 'help()' für on-line Hilfe, oder
'help.start()' für eine HTML Browserschnittstelle zur Hilfe.
Tippen Sie 'q()', um R zu verlassen.

> source("/tmp/r-plugin/Rsource-5325-scratch.r")
Lade nötiges Paket: reshape
Lade nötiges Paket: plyr

Attache Paket: 'reshape'

The following object(s) are masked from 'package:plyr':

    round_any

Lade nötiges Paket: grid
Lade nötiges Paket: proto
Fehler in editDLfromGPath(gPath, specs, strict, grep, global, redraw) : 
  'gPath' (key.points) not found