我有一些数据需要可视化,我可以制作左边的图表,但我希望能通过实现右边图片中的功能来向观众提供更多信息:根据预定义范围进行阴影处理,并显示每个范围内区域的百分比。
我知道这个问题与以下两个答案类似,但是我不了解密度以使数据框格式正确:
如果可以,请在您的回复中使用dplyr。
提前感谢。
![enter image description here](https://istack.dev59.com/DHGGb.webp)
如果可以,请在您的回复中使用dplyr。
提前感谢。
library(dplyr)
library(ggplot2)
options(scipen = 999)
#Get percentages
diamonds%>%
mutate(Cut = cut,
Prices = cut(price,
breaks=c(0,2499,4999, 19000),
include.lowest=T, dig.lab=10))%>%
group_by(Cut, Prices)%>%
summarise(Count = n())%>%
group_by(Cut)%>%
mutate(Pct = round(Count/sum(Count), 2))%>%
ungroup()
#Plot
ggplot(diamonds, aes(x=price))+
geom_density(fill="grey50")+
facet_grid(cut~.)+
geom_vline(xintercept = c(2500,5000))+
theme(axis.text.y = element_blank(),
axis.ticks.y = element_blank())