Один из подходов - использовать ggplot2
с facet_wrap
. Во-первых, убедитесь, что вы установили имена уровней фактора Bloom
, чтобы графики были с пользой помечены.
Затем мы используем ggplot
для построения графика данных и group =
с коэффициентом Bloom
. Затем мы добавляем facet_wrap
с формулой, что .
(все остальное) следует сгруппировать по Bloom
.
library(ggplot2)
levels(TreeData$Bloom) <- c("None","Bloom","Full","Scatter")
ggplot(TreeData, aes(x=Date,y=Temp,group = Bloom, color = Bloom)) +
geom_point(show.legend = FALSE) +
facet_wrap(. ~ Bloom)
Для вашего комментария, если вам нужны отдельные графики, вы можете использовать базовое подмножество R с TreeData[TreeData$Bloom == "Full",]
. Обратите внимание, что «Полный» - это уровень фактора, который мы установили ранее.
ggplot(TreeData[TreeData$Bloom == "Full",], aes(x=Date,y=Temp)) +
geom_point() + labs(title="Full Bloom")
Данные
set.seed(1)
TreeData <- data.frame(Date = rep(seq.Date(from=as.Date("2019-04-01"), to = as.Date("2019-08-01"), by = "week"),each = 10) , Temp = round(runif(22,38,n=180)), Bloom = as.factor(sample(1:4,180,replace = TRUE)))