将线性拟合映射到ggplot中的散点图时出错：映射应该是由aes或aes_string创建的未评估映射的列表

Question

我有一个数据集如下：

  

头（outputDF）       var1 var2 snpR stepD   1 A B 1.55809163171629 6   2 A C 1.57475543745267 6   3 A D 1.36003481988361 4   4 A E 1.60338829251054 4   5 A F 1.54720598772132 5   6 B C 1.10321616677002 2

我有一个很好的散点图来自函数：

ggplot(outputDF, aes(x=as.numeric(as.character(snpR)), y=stepD)) +geom_point(shape=1) +
  xlab("SNP Distance") + ylab("Shortest Path Distance") +
  theme(axis.text=element_text(size=13),
        axis.title=element_text(size=13))

但现在我正在为数据添加最佳线性拟合。我试过了：

ggplot(outputDF, aes(x=as.numeric(as.character(snpR)), y=stepD)) +geom_point(shape=1) +
  xlab("SNP Distance") + ylab("Shortest Path Distance") +
  theme(axis.text=element_text(size=13),
        axis.title=element_text(size=13)) + 
  stat_smooth(outputDF, geom="smooth", method="lm", formula=stepD~snpR)

但这给了我错误：

Error in get(x, envir = this, inherits = inh)(this, ...) : 
  Mapping should be a list of unevaluated mappings created by aes or aes_string

我和艾斯玩的越多，我的阴谋看起来就像是陌生人。我的想法中缺少什么？