# create a hexagonal grid
g <- hexagrid(c(2,2))
# plot the grid in 3d space
# plot3d(g, col="blue")
# make a subset to select faces
subG <- subset(g, c("F5", "F2"))
# plot the subset defined above
# plot3d(subG, type="f", col=c("orange"), add=TRUE, lwd=1)
Run the code above in your browser using DataLab