R：如何在ggplot中将对角线添加到分箱箱线图中

发布于04月29日

# library
library(ggplot2)
library(dplyr)

# Start with the diamonds dataset, natively available in R:
p <- diamonds %>%
  # Add a new column called 'bin': cut the initial 'carat' in bins
  mutate(bin=cut_width(carat, width = 0.5, boundary=0) ) %>%
  # plot
  ggplot(aes(x=bin, y= x) ) +
  geom_boxplot() +
  xlab("Carat") + geom_abline(slope = 1, intercept = 0)
p

我试着用geom_abline加一条45度的对角线.这会产生一条黑线.然而，这与x轴上的bin不完全匹配.例如，当为bin = (2.5,3]时，黑线的y坐标为6.

我粗略地(用蓝色)画了45度的对角线.例如，对于bin = (2.5, 3]，y坐标应为2.75(箱子的中点).对于bin = (3, 3.5]，y坐标应为3.25(料仓的中点).有没有办法在ggplot中生成这条线？

推荐答案

对于ggplot，轴上的任何类别的距离都为1.因此，坡度为1的geom_abline将 for each 类别增加y轴1.由于垃圾箱的大小为1/2，因此使用0.5的坡度将正确绘制坡度.

我们还需要将截距调整到-0.25.这是因为第一个箱子位于x坐标1，而不是0.25.

p <- diamonds %>%
    # Add a new column called 'bin': cut the initial 'carat' in bins
    mutate(bin=cut_width(carat, width = 0.5, boundary=0) ) %>%
    # plot
    ggplot(aes(x = bin, y = x)) +
    geom_boxplot() +
    xlab("Carat") + 
    geom_abline(slope = 0.5, intercept = -0.25) + 
    geom_hline(yintercept = c(2.75, 3.25))

请注意，我还画了两条水平线，以确认这符合手动计算出的示例值.