Ошибка в seq.int(0, to0 - from, by): 'to' должно быть конечным числом (нанесение цветения по дате)

Question

Код здесь:

brown<-melt(brown, id=c("date","variety", "GDD"))

brown$variety <- as.factor(brown$variety) #set variety as a factor so you can manipulate the colors

brown_bloom<- brown[ which(brown$variable =='bloom'),]
B2<-ggplot(brown_bloom, aes(x=as.Date(date, "%m/%b"), y=as.numeric(value), color=variety))+
  geom_point() +
  geom_smooth(method="loess", formula = brown_bloom$value ~ brown_bloom$date, se=T)+
  ylim(0,100)+
  theme_classic()+
  scale_x_date(breaks = "4 days", minor_breaks = "1 day", labels=date_format("%m/%d")) +
  labs(x = "Date", y = " %Bloom", title = "W. Ottawa")

Продолжайте получать ошибку:

Ошибка в seq.int(0, to0 - from, by): 'to' должно быть конечным числом

Дополнительно: Предупреждающее сообщение:

Какие-нибудь советы? Понятия не имею, что это значит.