为什么我用ggplot获得空图？

Question

为什么当我在下面的函数中使用facet_wrap时，图形的输出为空。随附正在发生的事情的图片。这些图混在一起，我看不到任何数据点。发生了什么事？

由于机密，我掩盖了标题。

大约有100个方面。

data <- read.csv(data.csv)
data$DateTime <- as.POSIXct(data$DateTime,format ='%m/%d/%Y %r')
data <- data %>% mutate(Person = ifelse(Person == 1, "Person 1", "Person 2"))
data %>% 
  filter(Size %in% c('S','M')
         ) %>%
  arrange(LargePerson) %>%      
   ggplot(aes(x = DateTime,y = Price)) +
    geom_point(
               aes(colour = Person)) + 
    scale_colour_manual(values = c("Person 1" = "blue", "Person 2" = "black")) +
    facet_wrap(~ID,scales = "free",ncol=2) + labs(x = "Date") +
    scale_x_datetime(breaks = date_breaks("2 days"),labels = date_format("%m/%d/%y")) +
    theme(axis.text.x = element_text(angle = 90,vjust = 0.5),
          legend.position="bottom"
    )

Answer 1

我做了一些游戏，我想这可能是我在评论中说的：100个切面无法容纳为图像分配的空间。被压缩的是图形本身，而不是周围的元素（例如标题等）。例如，下面是一些在50个方面的假图：

df<-data.frame(group=apply(expand.grid(LETTERS,LETTERS),1,paste0,collapse="")[1:50],x=runif(50),y=runif(50))
ggplot(df, aes(x,y))+geom_point() +facet_wrap(~group,ncol=2)

这是使用相同代码的同一图，PNG的高度设置为10,000：