Question

我正在研究Kaggle Digit Recognizer问题。当我尝试给定代码时，我收到了错误。

eval中的错误（expr，envir，enclos）：找不到函数＆＃34; eval＆＃34;

library(ggplot2)
library(proto)
library(readr)
train <- data.frame(read_csv("../input/train.csv"))

labels   <- train[,1]
features <- train[,-1]

rowsToPlot <- sample(1:nrow(train), 49)

rowToMatrix <- function(row) {
   intensity <- as.numeric(row)/max(as.numeric(row))
   return(t(matrix((rgb(intensity, intensity, intensity)), 28, 28)))
}

geom_digit <- function (digits, labels) GeomRasterDigit$new(geom_params = 
list(digits=digits),stat = "identity", position = "identity", data = NULL, 
inherit.aes = TRUE)

运行以下段时出现错误。

GeomRasterDigit <- proto(ggplot2:::GeomRaster, expr={
draw_groups <- function(., data, scales, coordinates, digits, ...) {
bounds <- coord_transform(coordinates, data.frame(x = c(-Inf, Inf), y = c(
- Inf, Inf)), scales)
x_rng <- range(bounds$x, na.rm = TRUE)
y_rng <- range(bounds$y, na.rm = TRUE)
rasterGrob(as.raster(rowToMatrix(digits[data$rows,])), x_rng[1], y_rng[1], 
diff(x_rng), diff(y_rng),default.units = "native", just =c("left","bottom"),
interpolate = FALSE)
}
})

完整代码的链接： https://www.kaggle.com/benhamner/digit-recognizer/example-handwritten-digits/code

Answer 1

在github上查看最新的ggplot2 code。 ggproto现在替换proto以及其他更改。

以下代码应该可以正常使用。

 GeomRasterDigit <- ggproto(ggplot2:::GeomRaster, expr={
 draw_groups <- function(., data, scales, coordinates, digits, ...) {
 bounds <- coord_transform(coordinates, data.frame(x = c(-Inf, Inf), y = c(
 - Inf, Inf)), scales)
 x_rng <- range(bounds$x, na.rm = TRUE) 
 y_rng <- range(bounds$y, na.rm = TRUE)
 rasterGrob(as.raster(rowToMatrix(digits[data$rows,])), x_rng[1], y_rng[1], 
 diff(x_rng), diff(y_rng),default.units = "native", just =c("left","bottom"),
 interpolate = FALSE)
 }
 })

有一个vignette关于ggproto这是一个很好的阅读。

eval（expr，envir，enclos）中的错误：找不到函数＆＃34; eval＆＃34;

1 个答案: