geom_boxplot：将“字符”标签放置在以矩形（geom_rect）为背景的连续x轴上

Question

我想为一个时间序列创建一个箱线图，在其中可以用矩形（ geom_rect ）为backgroudn geom_rect ，并将标签指定为字符。

我可以绘制箱线图，但是由于我需要连续的比例来指定矩形，因此我无法将标签绘制为字符

在这里，我将编写的代码放入：

1：创建数据集

# load packages
library (dplyr)
library (ggplot2)
Order <- rep (seq (1:24), 100)
Values <- runif (2400, 0, 1)
Season <- rep ( (rep (c( rep("Spring", 3), rep ("Summer", 3), rep ("Autumn", 3), rep ("Winter", 3)),2)), 100)
Date <- rep( (c("D-70", "J-71", "F-71", "M-71", "Ap-71", "May-71", "Jun-71", "Jul-71", "Au-71", "S-71", "O-71", "N-71",
          "D-71", "J-72", "F-72", "M-72", "Ap-72", "May-72", "Jun-72", "Jul-72", "Au-72", "S-72", "O-72", "N-72")), 100)
df <- data.frame (Order, Values, Season, Date) ; head (df)

定义要用矩形着色的句点

# Indicate the seasons for the X axis
Seasons_plot <- df %>% distinct(Date) %>% arrange (Order) # Select the position of each season for plotting it
start_spring <- which(Seasons_plot$Season == "Spring") ; end_spring <- start_spring + 1
start_summer <- which(Seasons_plot$Season == "Summer") ; end_summer <- start_summer + 1
start_autumn <- which(Seasons_plot$Season == "Autumn") ; end_autumn <- start_autumn + 1
start_winter <- which(Seasons_plot$Season == "Winter") ; end_winter <- start_winter + 1

n <- max (length(start_spring), length(start_summer), length(start_autumn), length(start_winter),
          length(end_spring), length(end_summer), length(end_autumn), length(end_winter))

length(start_spring) <- n ; length(start_summer) <- n ; length(start_autumn) <- n; length(start_winter) <- n
length(end_spring) <- n; length(end_summer) <- n; length(end_autumn) <- n; length(end_winter) <- n

#Indicate the size (y axis) of the rectangle
ymin_season <- rep(0, n)
ymax_season <- rep(1, n)

# Create a dataframe for indicating the position of the rectangles
shade <- data.frame (start_spring, end_spring, 
                     start_summer, end_summer, 
                     start_autumn, end_autumn, 
                     start_winter, end_winter, 
                     ymin_season, ymax_season)

选择要绘制的标签以便于可视化（例如，每4个1个）

labels <- Seasons_plot$Date 
labels
# Select the number of the labels to plot
labels_selected <- seq(from=1, to=length(labels), by=4)
labels_plot <- c()
for (i in 1:length(labels)){
  if (i %in% labels_selected){
    labels_plot[i] <-  as.character (labels [i])
  } else {
    labels_plot[i] <- c(" ")
  }
}
labels_plot

绘制箱线图

library (plyr)
ggplot (df) +
  geom_boxplot(aes(Order, Values, group=round_any(Order, 1)), outlier.colour = NA) +
  geom_rect (data=shade, aes(xmin=start_spring, xmax=end_spring, ymin=ymin_season, ymax=ymax_season), fill="green", alpha=0.05) +
  geom_rect (data=shade, aes(xmin=start_summer, xmax=end_summer, ymin=ymin_season, ymax=ymax_season), fill="blue", alpha=0.05) +
  geom_rect (data=shade, aes(xmin=start_autumn, xmax=end_autumn, ymin=ymin_season, ymax=ymax_season), fill="orange", alpha=0.05) +
  geom_rect (data=shade, aes(xmin=start_winter, xmax=end_winter, ymin=ymin_season, ymax=ymax_season), fill="white", alpha=0.05) +
  scale_x_discrete (labels=labels_plot)
detach("package:plyr", unload=TRUE)

您知道如何在该图中将标签作为字符吗？ 或如何混合两个图（一个用于矩形，另一个用于带标签的箱形图）？

提前致谢，

Answer 1

我认为您的问题是，如果您进行调整，则df $ Order是class integer ：

 df$Order <- as.factor(df$Order)

您现有的代码就像一个魅力。 （我删除了group = plyr::round_any(Order, 1) ）PS package::function语法是使用特定包函数的好方法，而无需考虑包的加载/卸载。 无论如何，这就是我所运行的：

df$Order <- as.factor(df$Order)

ggplot (df) +
  geom_boxplot(aes(Order, Values),outlier.colour = NA) +
  geom_rect (data=shade, aes(xmin=start_spring, xmax=end_spring,
    ymin=ymin_season, ymax=ymax_season), fill="green", alpha=0.05) +
  geom_rect (data=shade, aes(xmin=start_summer, xmax=end_summer,
    ymin=ymin_season, ymax=ymax_season), fill="blue", alpha=0.05) +
  geom_rect (data=shade, aes(xmin=start_autumn, xmax=end_autumn,
    ymin=ymin_season, ymax=ymax_season), fill="orange", alpha=0.05) +
  geom_rect (data=shade, aes(xmin=start_winter, xmax=end_winter,
    ymin=ymin_season, ymax=ymax_season), fill="white", alpha=0.05) +
  scale_x_discrete(labels=labels_plot)

这位美女突然出现了：