Я хочу производить сезонные сюжеты для множества разных временных рядов. Я надеюсь, что приведенный ниже код ясно иллюстрирует то, что я хочу сделать.

Теперь у меня вопрос, как сделать это наиболее элегантным способом с минимальным количеством строк кода. Я могу создать новый объект для каждого месяца с помощью функции & quot; subset & quot; и затем подготовьте это, но это, кажется, не очень изящно. Я пытался использовать & quot; split & quot; функционировать, но я не знаю, как действовать дальше.

Пожалуйста, скажите мне, если мой вопрос не четко сформулирован, или отредактируйте его, чтобы сделать его более понятным.

Любая прямая помощь или связь с другими сайтами / сообщениями очень ценится. Спасибо за ваше время.

Вот код:

## Create Data
Time <- seq(as.Date("2003/8/6"), as.Date("2011/8/5"), by = "2 weeks")
data <- rnorm(209, mean = 15, sd = 1)
DF <- data.frame(Time = Time, Data = data)
DF[,3] <- as.numeric(format(DF$Time, "%m"))
colnames(DF)[3] <- "Month"

## Create subsets
Jan <- subset(DF, Month == 1)
Feb <- subset(DF, Month == 2)
Mar <- subset(DF, Month == 3)
Apr <- subset(DF, Month == 4)

## Create boxplot
months <- c("Jan", "Feb", "Mar", "Apr")
boxplot(Jan$Data, Feb$Data, Mar$Data, Apr$Data, ylab = "Data", xlab = "Months", names = months)

## Try with "split" function
DF.split <- split(DF, DF$Month)
head(DF.split)