如何用ggplot2绘制发表级的散点图

现在常见的散点图如下：

常规的散点图表达内容单一，对于一些杂志来说，图文的描述胜过千言万语，现在各大Lab作图也是更胜一筹，笔者就R绘制最新的组合图的一点小技巧和大家分享，主要思路还是ggplot2+图层叠加，本方法旨在抛砖引玉，供大家参考：

# Libraries
library(ggplot2)
library(ggthemes)
library(ggExtra)
library(dplyr)


# 创建数据集
set.seed(2020.04)
df <- data.frame(x = rnorm(5000, 50, 10), y = runif(5000, 0, 50))


pdf("demo.pdf")
# 生成ggplot2对象
p <- df %>%
  ggplot( aes(x=x, y=y)) +
    geom_point(color="DeepSkyBlue", alpha=0.8) +
    theme_few() +
    theme(
      legend.position="none"
    ) +
  xlab("X point")+ #设置X轴文字
  ylab("Y Point")  #设置y轴文字
# 添加柱状图
ggMarginal(p, type = "histogram", color="black", fill = "Chocolate")
# 添加核密度分布曲线
ggMarginal(p, type = "density", color="red")

dev.off()

即可生成文章前的组合图，除了常规的散点图表达的含义外，我们还能通过柱状图和核密度分布图看到数据的分布状态，一目了然。