r - 如果 loess 方法返回错误，请使用 glm 方法

Question

df

Date      Ovserv  Team
1/1/2012  10      USA
1/2/2012  30      USA
1/3/2012  28      USA
1/4/2012  79      USA
1/5/2012  24      USA
1/1/2012  45      Japan
1/2/2012  10      Japan
1/3/2012  56      Japan
1/4/2012  60      Japan
1/5/2012  67      Japan

我真的很喜欢黄土，并且喜欢尽可能地使用它。我正在使用各种不同的数据框，我正在尝试使用 loess 方法来绘制图形。但是，由于一些不一致（某些数据帧没有足够的数据点），我收到此错误：

Error in predLoess(object$y, object$x, newx, object$s, object$weights,

如果method="glm"使用“黄土”方法出现错误，是否可以使用ggplot2？

ggplot(df, (Date, Observ, group=Team, colour=Team)) + 
   geom_smooth(method="loess", se=T, size=1)

任何想法我将如何解决这个问题？

Answer 1

如果没有足够的黄土数据，该声明class(try(loess(y~x, df)))=="try-error"将给出。TRUE

你可以尝试一些类似的东西

ggplot(....) + geom_smooth(method=ifelse(class(try(loess(y~x, df)))=="try-error",
                                          "glm","loess")....) 

如果您不想看到错误消息，请添加silent=TRUE到参数中。try