R ggplot facet_wrap輸出難以辨認

Question

我在獲取facet_wrap以便以清晰的方式輸出圖表時遇到一些麻煩。 我不太確定是否有辦法設置每個圖表以適合數據。 我的數據框是一整天在不同時間獲取的一組權重，但是每個日期可能會有一些結果，也可能有許多結果。

頭（df）結果：

  Date Time   SKU Weight
1 1/6/2016 9:37 10142  28.70
2 1/6/2016 9:38 10142  27.45
3 1/6/2016 9:38 10142  30.60
4 1/6/2016 9:39 10142  30.60
5 1/6/2016 9:39 10142  35.30
6 1/6/2016 9:40 10142  28.25

數據持續6個月，我想用一個折線圖表示每個日期。 我的方法是ggplot和facet_wrap。 也許這不是我應該采取的方法，所以我願意提出建議。

     p10142 <- ggplot(wtData10142, aes(x = Time, y = Weight))
     (p10142 + geom_line() + facet_wrap(~ Date, ncol = 10))

任何幫助將不勝感激。

Answer 1

嘗試這個

    library(reshape2)
    t <- read.csv(file = "book1.csv", header = T, sep = ",")
    te <- melt(t)
    ggplot(t, aes(x = Time, y = Weight, color = Date)) + geom_line()

Answer 2

在設置scales = "free_y" ：

 p10142 <- ggplot(wtData10142, aes(x = Time, y = Weight)) +
   geom_line() + facet_wrap(~ Date, ncol = 10, scales = "free_y"))

這將使您的y軸在每個面上都獨立地波動。 也許您還可以使用scale_x_continuous()設置某種類型的限制。 有助於獲得用於繪圖的完整數據集...