library(gridDebug)

library(lattice)
d <- rnorm(1000)
densityplot(~d)

gridTree(grobNodeAttrs=list(shape="circle", fillcolor="black",
                                 fontcolor="white"),
         grid=TRUE)
addTooltips("gridtree.svg")