r - 创建循环图

Question

我希望在几个月内创建一个小时的循环图。我希望它看起来像下面的情节。我的目标是让图表用水平线表示每个月的平均温度，然后在每个月内让图表显示该月典型日期的温度波动。我试图使用 monthplot() 但它似乎不起作用:

library(nycflights13)

tempdata <- weather %>% group_by(hour) 

monthplot(tempdata, labels = NULL, ylab = "temp")

它一直在说argument is not numeric or logical: returning NA 但我不确定代码哪里出错了。

Answer 1

希望这个 ggplot2 解决方案能够工作:

library(nycflights13)
library(ggplot2)
library(dplyr)

# Prepare data
tempdata <- weather %>% 
    group_by(month, day) %>%
    summarise(temp = mean(temp, na.rm = TRUE))
meanMonth <- tempdata %>%
    group_by(month) %>%
    summarise(temp = mean(temp, na.rm = TRUE))

# Plot using ggplot2
ggplot(tempdata, aes(day, temp)) +
    geom_hline(data = meanMonth, aes(yintercept = temp)) +
    geom_line() +
    facet_grid(~ month, switch = "x") +
    labs(x = "Month",
         y = "Temperature") +
    theme_classic() +
    theme(axis.ticks.x = element_blank(),
          axis.text.x = element_blank(),
          axis.line.x = element_blank())