Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ssh/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 如何使用ggplot2和geom_瓷砖创建自定义颜色比例?_R_Ggplot2 - Fatal编程技术网

R 如何使用ggplot2和geom_瓷砖创建自定义颜色比例?

R 如何使用ggplot2和geom_瓷砖创建自定义颜色比例?,r,ggplot2,R,Ggplot2,我想修改颜色渐变,以匹配一组预定义的阈值/切点和颜色。我该怎么做 截止值:-0.103200、0.007022、0.094090、0.548600 颜色:“EDF8E9”、“BAE4B3”、“74C476”、“238B45” #创建示例数据 pp使用cut并将箱子与您的颜色匹配。我的代码假设-0.103200是向量的最小值(用于对箱子的数量进行排序) trh您可以尝试scale\u fill\u brewer。首先,将您的z值存储在bin中: df <- pp(20) df$z_bin &

我想修改颜色渐变,以匹配一组预定义的阈值/切点和颜色。我该怎么做

截止值:-0.103200、0.007022、0.094090、0.548600 颜色:“EDF8E9”、“BAE4B3”、“74C476”、“238B45”

#创建示例数据

pp使用
cut
并将箱子与您的颜色匹配。我的代码假设-0.103200是向量的最小值(用于对箱子的数量进行排序)


trh您可以尝试
scale\u fill\u brewer
。首先,将您的z值存储在bin中:

df <- pp(20)
df$z_bin <- cut(df$z, breaks = c(-Inf, -0.103200, 0.007022, 0.094090, 0.548600))

使用我提供的示例数据,我应该如何使用您提供的代码?
trh <- c(-0.103200, 0.007022, 0.094090, 0.548600, Inf)
colors <- c("#EDF8E9", "#BAE4B3", "#74C476", "#238B45")

x <- runif(30, min = -0.103200, max = 1)
xc <- cut(x, breaks = trh)
colors[xc]
df <- pp(20)
df$z_bin <- cut(df$z, breaks = c(-Inf, -0.103200, 0.007022, 0.094090, 0.548600))
ggplot(data = df, aes(x = x, y = y, fill = z_bin)) +
  geom_tile() +
  scale_fill_brewer(palette = "Greens")