相关疑难解决方法(0)

我有以下代码:

library(GGally)
library(nycflights13)
library(tidyverse)

dat <- nycflights13::flights %>% 
       select(dep_time, sched_dep_time, dep_delay,  arr_time, sched_arr_time, arr_delay)  %>% 
       sample_frac(0.01)
dat
ggpairs(dat)

它产生了这个:

如何添加密度着色,使其如下所示:

有人知道如何创建截图中的图形吗？我试图获得类似的效果调整alpha,但这会使异常值几乎不可见.我只从一个名为FlowJo的软件中知道这种类型的图形,这里它们称之为"伪彩色点图".不确定这是否是一个官方用语.

我想在ggplot2中专门做,因为我需要faceting选项.我附上了我的一张图表的另一张截图.垂直线描绘了某些基因组区域的突变簇.其中一些集群比其他集群密集得多.我想用密度颜色来说明这一点.

数据非常庞大且难以模拟,但这是一次尝试.我看起来不像实际数据,但数据格式是一样的.

chr <- c(rep(1:10,1000))
position <- runif(10000, min=0, max=5e8)
distance <- runif(10000, min=1, max=1e5)
log10dist <- log10(distance)

df1 <- data.frame(chr, position, distance, log10dist)

ggplot(df1, aes(position, log10dist)) + 
  geom_point(shape=16, size=0.25, alpha=0.5, show.legend = FALSE) +
  facet_wrap(~chr, ncol = 5, nrow = 2, scales = "free_x")

任何帮助都非常感谢.