ggplot“重命名错误”

Question

更新我已经在下面发布了我的解决方案，罪魁祸首是我自己的rename函数，它覆盖了reshape::rename

---

我一直在使用ggplot R包直到今天都没有遇到什么麻烦。今天，我使用以前有效的代码时遇到错误，当我将其调试到最小工作示例时，它仍然给出错误；

如果我这样做：

library(ggplot2)
d<- data.frame(x=1:3,y=1:3)
ggplot(data=d) + geom_line(aes(x,y))   

返回以下错误：

Error in rename(x, .base_to_ggplot) : 
  unused argument(s) (.base_to_ggplot)

回溯是：

6: rename(x, .base_to_ggplot)
5: rename_aes(aes)
4: aes()
3: structure(list(data = data, layers = list(), scales = Scales$new(), 
       mapping = mapping, options = list(), coordinates = CoordCartesian$new(), 
       facet = FacetGrid$new(), plot_env = environment), class = "ggplot")
2: ggplot.data.frame(data = d, aes = c(x, y))
1: ggplot(data = d, aes = c(x, y))

使用 rm(list=ls()) 删除所有对象后不会发生错误，但我仍然不清楚是什么对象导致了这个错误或者为什么 - 我怎样才能解决这个问题？

有谁知道可能出了什么问题？

Answer 1

我无法返回您上面发布的相同错误消息。运行代码片段时，我收到以下错误：

Error: geom_pointrange requires the following missing aesthetics: ymin, ymax

因此，geom_pointrange() 需要 ymin 和 ymax 的参数。我将让您填写有关这些参数应包含哪些内容的相关信息，但此代码执行：

ggplot(data=d) + geom_pointrange(aes(x,y, ymin = y - 。 5、ymax = y + .5))

Answer 2

该问题是因为 ggplot2 不使用命名空间而引起的 - 这将在下一个版本中修复。

Answer 3

该错误是由其中一个对象引起的（感谢@Chase 的指针）。

这是我调试并找到罪魁祸首的方法。重要的部分是使用 try() 函数，尽管出现错误，但仍能保持 for 循环运行。

foo <- ls() #get a static list of all suspect objects
for(i in 1:length(foo)) {
    print(foo[i])
    rm(list=foo[i])
    try(ggplot()+geom_point(aes(x=1:2,y=1:2)))
}

这导致了以下输出：

...
[1] "45 reg.model"
Error in rename(x, .base_to_ggplot) : 
  unused argument(s) (.base_to_ggplot)
[1] "46 reg.parms"
Error in rename(x, .base_to_ggplot) : 
  unused argument(s) (.base_to_ggplot)
[1] "47 rename"
[1] "48 samples"
...

啊哈！这是我自己的函数 rename 导致了错误，因为 ggplot2 依赖于 reshape::rename。

解决方案：重命名新的rename函数...将来如何防止这种情况发生？也许研究一下命名空间的使用。