R Joy图-几何密度脊线消除异常值和着色线

我目前正在尝试使用以下代码制作几个欢乐情节：

mean_median <- function(x, ...) {
  mean <- mean(x, na.rm=TRUE)
  median <- median(x, na.rm = TRUE)
  c(median, mean)
}

ggplot(dt[country=="Brazil"], aes_(as.name("los"), as.name(agegroup))) + geom_density_ridges(quantile_lines=TRUE, quantile_fun=function(x,...)mean_median(x)) + theme(axis.text.x = element_text(size=8, face="plain", angle=45, vjust=1, hjust=1))

---

mean_median@RonakShah抱歉！我刚刚添加了一个我的数据类似的小例子。谢谢
country    agegroup    los
Brazil     <30         5
Brazil     <30         2
Brazil     <30         3
Brazil     30-34       6
Brazil     30-34       6
Brazil     30-34       8
Brazil     35-39       2
Brazil     35-39       1
Brazil     35-39       5