If you change the index variable by a coefficient, you get what should be the default, i.e. prints pebble levels in a strip:
library(lattice)
index<-factor(c(1,1,1,2,2,2,2))
freq<-c(3,4,6,3,6,2,2)
D<-data.frame(index,freq)
histogram(~D$freq|D$index)
strip.default:
histogram(~freq|index, data=D, strip =
function(..., style){ strip.default(..., style = 4)} )