ภาพรวมของตัวเลือกที่ดีมากมายในggplot2
:
library(ggplot2)
x <- rnorm(n = 10000)
y <- rnorm(n = 10000, sd=2) + x
df <- data.frame(x, y)
ตัวเลือก A: จุดโปร่งใส
o1 <- ggplot(df, aes(x, y)) +
geom_point(alpha = 0.05)
ตัวเลือก B: เพิ่มรูปทรงความหนาแน่น
o2 <- ggplot(df, aes(x, y)) +
geom_point(alpha = 0.05) +
geom_density_2d()
ตัวเลือก C: เพิ่มรูปทรงความหนาแน่นที่เติม
o3 <- ggplot(df, aes(x, y)) +
stat_density_2d(aes(fill = stat(level)), geom = 'polygon') +
scale_fill_viridis_c(name = "density") +
geom_point(shape = '.')
ตัวเลือก D: แผนที่ความหนาแน่นของความหนาแน่น
o4 <- ggplot(df, aes(x, y)) +
stat_density_2d(aes(fill = stat(density)), geom = 'raster', contour = FALSE) +
scale_fill_viridis_c() +
coord_cartesian(expand = FALSE) +
geom_point(shape = '.', col = 'white')
ตัวเลือก E: hexbins
o5 <- ggplot(df, aes(x, y)) +
geom_hex() +
scale_fill_viridis_c() +
geom_point(shape = '.', col = 'white')
ตัวเลือก F: พรม
o6 <- ggplot(df, aes(x, y)) +
geom_point(alpha = 0.1) +
geom_rug(alpha = 0.01)
รวมเป็นรูปเดียว:
cowplot::plot_grid(
o1, o2, o3, o4, o5, o6,
ncol = 2, labels = 'AUTO', align = 'v', axis = 'lr'
)