r - as.vector(x, mode) 中的错误：无法将“闭包”类型强制转换为“任何”类型的向量

Question

我正在 R 中对 broom 包进行一些练习。

我跑了以下

kclusts <- data.frame(k=1:9) %>% group_by(k) %>% do(fit=kmeans(data.frame, .$k))

我收到以下错误

Error in as.vector(x, mode) : cannot coerce type 'closure' to vector of type 'any'

我想知道我的字符串中是否缺少某些内容。

希望你能帮助我。

胡安

Answer 1

这个问题似乎在评论中得到了解决，但我想我会概括它，因为我遇到了一个非常相似的错误。

可以通过以下方式找到您收到该错误的原因：

> typeof(data.frame)
[1] "closure"

您实际上是在传递用于创建数据框的函数，而不是数据框。

扫帚的小插图有一种方法可以使这样的代码工作：

library(dplyr)

set.seed(2014)
centers <- data.frame(cluster=factor(1:3), size=c(100, 150, 50), x1=c(5, 0, -3), x2=c(-1, 1, -2))
points <- centers %>% group_by(cluster) %>%
    do(data.frame(x1=rnorm(.$size[1], .$x1[1]),
                  x2=rnorm(.$size[1], .$x2[1])))

library(ggplot2)
ggplot(points, aes(x1, x2, color=cluster)) + geom_point()

points.matrix <- cbind(x1 = points$x1, x2 = points$x2)

# Notice points.matrix defined above
kclusts <- data.frame(k=1:9) %>% group_by(k) %>% do(kclust=kmeans(points.matrix, .$k))