使用R绘制n阶级数关于x的函数图：报错排查与批量实现

你的代码主要有三个关键问题导致object 'x' not found报错以及功能不符合预期，咱们一步步来修正：

问题1：stat_function的参数使用错误 #

stat_function的fun参数需要传入一个以x为唯一参数的函数，而你直接调用fun1(0, x)，这时候x还没有被定义（因为ggplot的stat_function会在内部生成x值并传入函数），所以直接触发了找不到x的错误。

问题2：级数项的循环逻辑错误 #

你的循环里用了order而不是循环变量i，这会导致每一项都是同一个值，完全不符合级数求和的逻辑；另外你的公式括号没有闭合，语法上就通不过。

问题3：函数没有返回值 #

你的fun1函数最后没有返回计算结果，R函数默认返回最后一行，但你的最后一行是循环语句，所以实际返回的是循环的序列，不是求和结果。

修正后的完整代码 #

library(ggplot2)

# 定义生成n阶级数函数的工厂函数
create_series_fun <- function(order) {
  # 返回一个以x为参数的函数，适配stat_function的要求
  function(x) {
    output <- 0
    for (i in 0:order) {
      # 修正级数项计算逻辑：用循环变量i代替order，补全括号
      output <- output + ((-1)^i) * (x^(2*i)) / factorial(2*i)
    }
    output
  }
}

# 生成0阶的级数函数（对应你要的首项）
order0_fun <- create_series_fun(0)

# 绘图，直接传入函数对象即可，添加xlim让曲线显示完整
plot1 <- ggplot(data = data.frame(x = 0), mapping = aes(x = x)) +
  stat_function(fun = order0_fun, geom = "line", xlim = c(-5, 5))

# 查看绘图
plot1

关键修改点解释 #

1. 工厂函数设计：用create_series_fun接收order参数，返回一个只接收x的函数，完美适配stat_function的要求，彻底解决x未定义的问题。
2. 修正级数计算逻辑：把循环里的order替换成i，同时修正x的指数为2*i（对应你公式里的$x^{2\cdot order}$，这里每一项对应i的2倍指数），并且补全了缺失的括号。
3. 明确返回值：在内部函数最后直接返回output，确保函数返回正确的求和结果。
4. 添加xlim：默认的x范围太小，添加xlim可以让你看到完整的曲线形态。

如果你需要生成不同阶的级数函数，只需要调用create_series_fun(n)即可，比如生成4阶的：

order4_fun <- create_series_fun(4)
ggplot(data = data.frame(x = 0), aes(x = x)) +
  stat_function(fun = order4_fun, geom = "line", xlim = c(-5, 5))

这样就不用手动编写每一个阶数的函数了，完全自动化处理高阶情况。

内容的提问来源于stack exchange，提问作者James Shirk