1

まず第一に、私は 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_paginate に x 軸ラベルがありません

これは私がラベルをどのように見せたいかということであり、単一の個人に対して facet_wrap を持つ単一の列を使用してそれを行うことができました:個々の動物を正しい 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")
4

1 に答える 1