R ggplot2 및 ggforce에서 facet_wrap_paginate를 사용하는 x 축 레이블 누락

우선, 저는 R과 stackoverflow를 모두 처음 접했기 때문에 서식 문제에 대해 사과드립니다. 여러 개인을 따로 플로팅하려고하는데를 사용 facet_wrap하면 플롯이 너무 많아서 모두 매우 작아서 볼 수 없습니다. 로 전환 facet_wrap_paginate했고 플롯은 거의 완벽합니다 ... x 축 레이블이 누락 된 것을 제외하면!

내 코드 (ggplot2 및 ggforce 사용) :

library(ggplot2)
library(ggforce)

lb <- c("8AM", "2PM", "8PM", "2AM", "8AM") 
L <- 1440 
xat <- c(1, L/4, L/2, 3*L/4, L)

    Baseline1 <- ggplot(Baseline.df_long, 
        aes(x = Minute, y = value, color = key, group = key)) +
        facet_wrap_paginate(~ key, ncol = 3, nrow = 3, page = 1, scales = "free_x") +
        geom_bar(stat = "identity") +
        scale_y_continuous(breaks=seq(0, 2500, 500), limits =c(0,2500)) +
        scale_x_discrete(name="Time", breaks=c(xat), labels=c(lb)) +
        labs(title ="Piglet Activity", y = "Activity") +
        theme_bw(base_size = 14) + 
        theme(legend.position = "none")

나는를 사용하거나 사용하지 않고 모두 scales = "free x"시도했지만 수정을 시도했습니다. 이들 중 어느 것도 차이를 만들지 않습니다. 현재 x 축 레이블이 누락 된 상태는 다음과 같습니다.

이것이 내가 라벨이 보이기를 바라는 것이며, 단일 개인에 대해 facet_wrap이있는 단일 열을 사용하여 수행 할 수있었습니다.

참고로 이것이 어떤 종류의 데이터 세트인지 알 수 있습니다. 이렇게 Baseline.df_long생겼지 만 훨씬 더 많은 데이터가 있습니다.

structure(list(Minute = 1:50, key = c("Pig_03", "Pig_03", "Pig_03", 
"Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", 
"Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", 
"Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", 
"Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", 
"Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", 
"Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03", 
"Pig_03", "Pig_03", "Pig_03", "Pig_03", "Pig_03"), value = c(0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 165L, 23L, 0L, 0L, 
0L, 0L, 12L, 0L, 0L, 0L, 0L, 0L, 0L, 81L, 0L, 0L, 12L, 12L, 0L, 
0L, 47L, 0L, 0L, 12L, 23L, 0L, 0L, 0L, 0L, 0L, 0L, 105L, 70L, 
47L, 0L, 0L, 0L, 0L)), row.names = c(NA, -50L), class = "data.frame")