オートプロット動物園のファセットとマルチライングラフ

Question

各ファセットで3つの線でファセット付きオートプロットを作成する際に問題があります。 私の目標は、5つの異なるステーションから平均、最高、最低温度をプロットすることです。ファセットは駅や線の温度になり、私はこの試みた：

autoplot.zoo(apply.quarterly(new_temp1[,c(7:14)], colMeans)) + 
    geom_line(col="red") + 
    geom_line(aes(apply.quarterly(new_temp2[,c(7:14)], colMeans))) 

をそれがいることを私に語った：私はあなたのデータを実行するために得ることができなかったので、私はいくつかの簡単な作ら

Error in order(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, : 
    argument 3 is not a vector 
In addition: Warning message: 
In (function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE, : 
    row names were found from a short variable and have been discarded 

Answer 1

facet_wrap（）とともにgeom_line（）を適用する方法を説明する時系列データです。 dplyrパッケージは、簡単なプロットのために整然としたフォーマットでデータを取得するために必要です。

df <- data.frame(station = rep(LETTERS[1:5], each = 5), 
     date = rep(seq(1,5), times = 5), 
     mean_T = rnorm(25, mean = 75, sd = 2), 
     min_T = mean_T - 20, 
     max_T = mean_T + 20) 

library(dplyr) 
newdf = gather(df, key = type , value = temp, mean_T, min_T, max_T) 

ggplot(newdf, aes(x = date)) + 
    geom_line(aes(y = temp, color = type)) + 
    facet_wrap(~ station) + 
    xlab("date") + 
    ylab("Temperature") + 
    ggtitle("Temperature at Stations") 

グラフは次のようになります。