我遇到了同样的问题,现在按照this 的回答,现在使用SparkR:::callJMethod 将概率DenseVector(R 无法反序列化)转换为Array(R 读取为List)。它不是非常优雅或快速,但它可以完成工作:
denseVectorToArray <- function(dv) {
SparkR:::callJMethod(dv, "toArray")
}
例如:
开始你的火花会议
#library(SparkR)
#sparkR.session(master = "local")
生成玩具数据
data <- data.frame(clicked = base::sample(c(0,1),100,replace=TRUE),
someString = base::sample(c("this", "that"),
100, replace=TRUE),
stringsAsFactors=FALSE)
trainidxs <- base::sample(nrow(data), nrow(data)*0.7)
traindf <- as.DataFrame(data[trainidxs,])
testdf <- as.DataFrame(data[-trainidxs,])
训练一个随机森林并运行预测:
rf <- spark.randomForest(traindf,
clicked~.,
type = "classification",
maxDepth = 2,
maxBins = 2,
numTrees = 100)
predictions <- predict(rf, testdf)
收集你的预测:
collected = SparkR::collect(predictions)
现在提取概率:
collected$probabilities <- lapply(collected$probability, function(x) denseVectorToArray(x))
str(probs)
当然,SparkR:::callJMethod 周围的函数包装器有点矫枉过正。您也可以直接使用它,例如使用 dplyr:
withprobs = collected %>%
rowwise() %>%
mutate("probabilities" = list(SparkR:::callJMethod(probability,"toArray"))) %>%
mutate("prob0" = probabilities[[1]], "prob1" = probabilities[[2]])