r - 在ggplot的geom_density()中为每个分位数填充不同的颜色

Question

This question already has answers here:

adding percentile lines to a density plot [duplicate]

(2个答案)



Shading a kernel density plot between two points.

(5个答案)


5年前关闭。




我正在使用ggplot显示数据的百分位数。我正在使用以下代码，

data <- seq(from=0,to=30,length.out=1000)

q <- quantile(data)

ggplot()+ 
  geom_density(aes(x=data)) +  
  annotate(geom="text", x=q, y=0, label=names(q)) +
  theme(text = element_text(size=10)) +
  geom_vline(x=q, linetype = "longdash")

以下是我得到的图表，



我正在为每个分割市场填充不同的颜色。即0-25％的一种颜色和25-50％的另一种颜色。有可能这样做吗？

垂直线也贯穿整个图形。我想停止它直到曲线。而不是完全运行它。

有人可以帮我做这两者吗？

最佳答案

只需从where Sam is pointing to复制答案

dt <- data.frame(x=c(1:200),y=rnorm(200))
dens <- density(dt$y)
df <- data.frame(x=dens$x, y=dens$y)
probs <- c(0, 0.25, 0.5, 0.75, 1)
quantiles <- quantile(dt$y, prob=probs)
df$quant <- factor(findInterval(df$x,quantiles))
ggplot(df, aes(x,y)) + geom_line() + geom_ribbon(aes(ymin=0, ymax=y, fill=quant)) + scale_x_continuous(breaks=quantiles) + scale_fill_brewer(guide="none")

关于r - 在ggplot的geom_density()中为每个分位数填充不同的颜色，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/34029811/

上一篇：svg - "Flatten"转换为Path？

下一篇：oracle - CAST 到包类型

Answer 1

只需从where Sam is pointing to复制答案

dt <- data.frame(x=c(1:200),y=rnorm(200))
dens <- density(dt$y)
df <- data.frame(x=dens$x, y=dens$y)
probs <- c(0, 0.25, 0.5, 0.75, 1)
quantiles <- quantile(dt$y, prob=probs)
df$quant <- factor(findInterval(df$x,quantiles))
ggplot(df, aes(x,y)) + geom_line() + geom_ribbon(aes(ymin=0, ymax=y, fill=quant)) + scale_x_continuous(breaks=quantiles) + scale_fill_brewer(guide="none")