# NOT RUN {
# Combining with coord_polar()
ggplot(faithfuld, aes(waiting, eruptions)) +
geom_polygonraster(aes(fill = density)) +
coord_polar()
# Combining with linear transformations
df <- data.frame(x = row(volcano)[TRUE],
y = col(volcano)[TRUE],
z = volcano[TRUE])
ggplot(df, aes(x, y, fill = z)) +
geom_polygonraster(position = position_lineartrans(angle = 30,
shear = c(1, 0)))
# }
Run the code above in your browser using DataLab