- library(ggplot2)
- library(ggpubr)
- df <- diamonds[1:1000, ]
- p1 <- ggplot(data = df, aes(x = color, y = price)) +
- geom_point() +
- geom_jitter()
- p2 <- ggplot(data = df, aes(x = clarity, y = price)) +
- geom_point() +
- geom_jitter()
- theme_set(theme_pubr())
- ggarrange(p1, p2)


雷达卡



京公网安备 11010802022788号







