data(mpg,package="ggplot2")
library(lattice)
scatter <- xyplot(jitter(cty)~jitter(hwy),mpg,groups=class,aspect=1)
dlcompare(list(scatter),
list("extreme.grid",
`+dl.move`=list(extreme.grid,dl.move("suv",15,15))))
data(svmtrain,package="directlabels")
library(ggplot2)
p <- qplot(log10(gamma),rate,data=svmtrain,group=data,colour=data,
geom="line",facets=replicate~nu)
dlcompare(list(p+xlim(-8,7)),list("last.points",
`+dl.move`=list(last.points,dl.move("KIF11",-0.9,hjust=1,vjust=1))))
Run the code above in your browser using DataLab