data(iris.l1.cluster,package="directlabels")
library(ggplot2)
p <- ggplot(iris.l1.cluster,aes(lambda,alpha,group=row,colour=Species))+
geom_line(alpha=1/4)+
facet_grid(col~.)
p2 <- p+xlim(-0.0025,max(iris.l1.cluster$lambda))
print(direct.label(p2,list(first.points,get.means)))
Run the code above in your browser using DataLab