Я пытался подогнать экспоненциальную кривую к моим данным, используя ggplot и geom_smooth. Я пытаюсь повторить ответ на похожую проблему (geom_smooth и экспоненциальные подгонки) но продолжайте получать следующее сообщение об ошибке:

> exp.model <-lm(y ~ exp(x), df)
Error in lm.fit(x, y, offset = offset, singular.ok = singular.ok, ...) : 
  NA/NaN/Inf in 'x'

Я не понимаю ошибку, поскольку в наборе данных нет значений NA / NaN / Inf:

>df
      x         y
1  1981  3.262897
2  1990  2.570096
3  2000  7.098903
4  2001  5.428424
5  2002  6.056302
6  2003  5.593942
7  2004 10.869635
8  2005 12.425793
9  2006  5.601889
10 2007  6.498187
11 2008  6.967503
12 2009  5.358961
13 2010  3.519295
14 2011  7.137202
15 2012 19.121631
16 2013  6.479928