在R ggplot2和ggforce中使用镶嵌面包裹分页缺少x轴标签

首先，我对R和stackoverflow都是新手，所以我为任何格式问题道歉。我试图分别绘制许多个人，但当我使用

facet\u wrap

时，有太多的绘图，因此它们都非常小，无法看到。我切换到了

facet\u wrap\u paginate

，画面几乎完美无瑕。。。除了缺少x轴标签之外

我的代码（使用ggplot2和ggforce）：

---

问题在于，对于连续或数字数据，您使用

缩放x_离散

。只需切换到

scale\u x\u continuous

即可显示x轴和标签：

---

lb问题在于，对于连续或数字数据，使用
scale\u x\u discrete
。只需切换到
scale\u x\u continuous
即可显示x轴和标签：

lb哇，现在看起来真的很明显！我想我已经试过了，但我想不是。。。它成功了，谢谢：）编辑：我刚刚意识到我在我的单一动物情节中也有离散性。。。当我尝试在那里转换为连续时，我得到了错误：离散值提供给连续刻度。你知道为什么它适用于许多个人的情节，但不适用于一个人吗？这没什么大不了的，因为离散的工作为个人。。。只是好奇哇，现在看起来真的很明显！我想我已经试过了，但我想不是。。。它成功了，谢谢：）编辑：我刚刚意识到我在我的单一动物情节中也有离散性。。。当我尝试在那里转换为连续时，我得到了错误：离散值提供给连续刻度。你知道为什么它适用于许多个人的情节，但不适用于一个人吗？这没什么大不了的，因为离散的工作为个人。。。只是好奇
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")

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")