library(ggpointdensity)
library(viridis)
ggplot(data = iris,mapping = aes(x = Sepal.Width,y = Sepal.Length)) +
geom_pointdensity() +
scale_color_viridis() + theme_bw() +
facet_grid( ~ cut(iris$Sepal.Width,3),margins = F,scales = 'free')
我需要像下一行一样获取要生成的边距（第二个图）。
当前，如果我使用margin = T，则将在同一行上生成余量图，这使得很难看到总体点分布。