データから条件を摘出して、折れ線グラフで表す方法。

Question

#R言語での、データから条件を摘出して、折れ線グラフで表す方法の質問です。
RStudioを使用しております。
写真はweatherというExcelファイルを読み込み、View(weather)を行いました。
写真はdataの1部ですが、2か所のエリア(Origin)が存在し、2013年、1月から12月まで、毎日の1時間ごとの気温(temp)があります。

わからないことは、ggplotやdplyrを使用して、JFKでの2013年の月ごとの平均温度の変化の折れ線グラフをどのように作るのかです。

私自身、weather %>% filter(origin=='JFK')と、ggplot(weather, aes())+ geom_line()しかわからない状態です。

よろしくお願いします。

Answer 1

#サンプルデータの作成
a <- c("JFK","LGA")
b <- 1:12
c <- 1:30
data <- expand.grid(a,b,c)
head(data)
weather <- data.frame(origin=data$Var1, month=data$Var2, day=data$Var3, temp=rnorm(nrow(data),30,3)+data$Var2)
head(weather)

#origin,monthごとにtempの平均計算
m <- aggregate(temp ~ origin:month, weather, mean) 
m

#plot
library(ggplot2)
ggplot(m, aes(x = month, y = temp, fill = origin, color = origin))+ geom_line()

Comments

[noritan]

グラフを作成することができました。しかし、x軸がうまく月別表示になりません。どおように行えばいいのか押せていただきたいです。

[shimiken]

ggplot(m, aes(x = month, y = temp, fill = origin, color = origin))+
scale_x_continuous(breaks=1:12)+
geom_line()

[noritan]

無事グラフを表示させることができました。
またRについて伺うと思いますが、よろしくお願いします。