我有一个非常简单的问题,但我一直在努力在网上寻找答案。
我有一个用ggplot + geom_raster制作的热图。我想在每个矩形内插入一个符号,以便它们可以传达另一条信息。为此,我想到了使用geom_point。
绘图很棒,但我在颜色渐变方面遇到了问题。
plot <- ggplot(data, aes(x = Var1, y = Var2, fill = value)) +
geom_tile() +
geom_raster(aes(fill=value)) +
scale_fill_gradient2(low = "gray", high = "red", mid = "#e3e3e3", midpoint = "0") +
geom_point(data = significance, aes(x = Var1, y = Var, color = value), shape = 21, size = 3) +
scale_color_gradient(low = "gray", high = "gray")
Run Code Online (Sandbox Code Playgroud)
但是,出于某种原因,散点图同时吸收了两个梯度,而不仅仅是吸收了“颜色”梯度。由于热图的值非常接近于零,而散点图的值很高,因此“填充”部分使热图全为灰色。
我以此作为参考尝试两种渐变:使用两种比例颜色渐变 ggplot2