在ggplot2

Question

我试图使用ggplot2 R库绘制密度分布上某些数据的中值。我想将中值打印为密度图顶部上的文本。

您将看到我的例子（使用＆＃34;钻石＆＃34;默认数据框）：

我打印三个主题：密度图本身，一条垂直线显示每个切割的中间价格，以及一个带有该值的文本标签。但是，正如您所看到的，中位数价格重叠在＆＃34; y＆＃34; axis（这种美学在geom_text（）函数中是必需的。）

有没有办法动态分配＆＃34; y＆＃34;每个中间价格的价值，以便在不同的高度打印它们？例如，在每个＆＃34; cut＆＃34;的最大密度值。

到目前为止，我已经得到了这个

# input dataframe
dia <- diamonds

# calculate mean values of each numerical variable:
library(plyr)
dia_me <- ddply(dia, .(cut), numcolwise(median))

ggplot(dia, aes(x=price, y=..density.., color = cut, fill = cut), legend=TRUE) +
  labs(title="diamond price per cut") +
  geom_density(alpha = 0.2) +
  geom_vline(data=dia_me, aes(xintercept=price, colour=cut),
             linetype="dashed", size=0.5) +
  scale_x_log10() +
  geom_text(data = dia_me, aes(label = price, y=1, x=price))

（我在geom_text函数中为y美学分配一个常量值，因为它是强制性的）

提前多多感谢！

Answer 1

这可能是一个开始（但由于颜色不太可读）。我的想法是在用于绘制中位数线的数据中创建一个“y”位置。这有点武断，但我希望y位置介于0.2和1之间（非常适合情节）。我是通过sequence-command完成的。然后我尝试按中位数价格订购它（并没有做很多好事）;这是任意的。

#scatter y-pos over plot
dia_me$y_pos <- seq(0.2,1,length.out=nrow(dia_me))[order(dia_me$price,decreasing = T)]


ggplot(dia, aes(x=price, y=..density.., color = cut, fill = cut), legend=TRUE) +
  labs(title="diamond price per cut") +
  geom_density(alpha = 0.2) +
  geom_vline(data=dia_me, aes(xintercept=price, colour=cut),
             linetype="dashed", size=0.5) +
  scale_x_log10() +
  geom_text(data = dia_me, aes(label = price, y=y_pos, x=price))