ggplot - добавить окно в верхней части графика

Question

У меня есть следующие данные и график:

 fixed <- as.data.frame(rep(0.125,8))
fixed[,2] <- c("1","2","3","4","5","6","7","8")
colnames(fixed) <- c("Percentage", "Test")

Можно ли добавить среднее значение в виде отдельного поля в верхней части графика? Я не хочу использовать одну и ту же ось Y, так как это может привести к путанице с меткой.

Вот пример того, что я ищу. Было бы замечательно, если бы я мог нарисовать фон рамки темнее, это возможно:

Вот код для моего сюжета:

p <- ggplot(fixed,aes(x=Test ,y=Percentage,fill=Test))+
  geom_boxplot()+ 
  stat_summary(fun.data = function(y) 
    data.frame(y=0.6, label = paste(round(mean(y),2))), geom="text",size=3) +
  geom_hline(yintercept=0.55, linetype="dashed", color = "black")+
  theme(legend.position="none")+
  scale_y_continuous(limits = c(0, 0.6),breaks=seq(0,0.6,0.1),
                     labels= c("0%","10%","20%","30%","40%","50%","Mean"))+
  theme_bw()+
  labs(title = "Title")+
  xlab("Test")+
  ylab("Percetage")+
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_rect(fill = "grey90", colour = NA),
        plot.background = element_rect(fill = "grey90", colour = NA),
        legend.position="none",plot.title = element_text(size= 12, hjust=0.5),
        plot.margin = unit(c(1,1,1,1), "cm"))+
  scale_fill_manual(values=c("#00441b","#006d2c","#238b45","#41ab5d","#74c476",
                             "#a1d99b","#c7e9c0","#e5f5e0"))
p

Answer 1

fixed <- as.data.frame(rep(0.125, 8))
fixed[, 2] <- c("1", "2", "3", "4", "5", "6", "7", "8")
colnames(fixed) <- c("Percentage", "Test")

Давайте добавим некоторую структуру в сборку ggplot2. И мы собираемся переместить некоторые data а также aes() прямо к stat_ с и geom_ Так что мы можем сделать коробку, э, geom_rect() аннотаций. Комментарии в / рядом с заметными строками:

ggplot() +
  geom_boxplot(
    data = fixed, aes(x = Test, y = Percentage, fill = Test)
  ) +
  geom_rect( # HERE IS UR BOX
    data = data.frame(),
    aes(xmin = -Inf, xmax = Inf, ymin = 0.565, ymax = Inf),
    size = 2.5, fill = "#00000000", color = "black"
  ) +
  stat_summary(
    data = fixed, aes(Test, Percentage),
    fun.data = function(y) {
      data.frame(
        y = 0.6,
        label = paste(round(mean(y), 2))
      )
    },
    geom = "text", size = 3
  ) +
  scale_y_continuous(
    limits = c(0, 0.6), breaks = seq(0, 0.6, 0.1),
    labels = c("0%", "10%", "20%", "30%", "40%", "50%", "Mean")
  ) +
  scale_fill_manual(
    values = c(
      "#00441b", "#006d2c", "#238b45", "#41ab5d", 
      "#74c476", "#a1d99b", "#c7e9c0", "#e5f5e0"
    )
  ) +
  coord_cartesian(clip = "off") + # WE NEED TO TURN CLIPPING OFF
  labs(
    x = "Test", y = "Percentage", title = "Title"
  ) +
  theme_bw() +
  theme(
    legend.position = "none", # YOU HAD THIS IN A SEPARATE theme(). IT PAYS TO HAVE A CODE STYLE
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.background = element_rect(fill = "grey90", colour = NA),
    plot.background = element_rect(fill = "grey90", colour = NA),
    plot.title = element_text(size = 12, hjust = 0.5),
    plot.margin = unit(c(1, 1, 1, 1), "cm"),
    axis.text.y = element_text( # MAKE THE "Mean" BIG & BOLD 
      size = c(rep(10, 6), 20), face = c(rep("plain", 6), "bold")
    )
  )