Question

我在R。做扫帚包的练习。

我运行了以下

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"

您正在有效地传递用于创建数据框而不是数据框的函数。

vignette for broom可以使代码像这样工作：

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))

as.vector（x，mode）出错：无法强制类型＆＃39;关闭＆＃39;矢量类型＆＃39;任何＆＃39;

1 个答案: