Как исправить: «Hist относится только к одиночным числовым столбцам».ошибка в R - PullRequest
Новая
       50

Как исправить: «Hist относится только к одиночным числовым столбцам».ошибка в R

0 голосов
/ 24 декабря 2018

Я пытаюсь выучить H2O и R из какой-нибудь книги.Когда я пытаюсь выполнить код автора, я получаю упомянутую ошибку.

Вот код:

Я использую этот набор данных;https://github.com/DarrenCook/h2o/blob/bk/datasets/ENB2012_data.csv

seed = 999

library(h2o)
h2o.init(nthreads = -1)

data <- h2o.importFile("../datasets/ENB2012_data.csv")

factorsList <- c("X6", "X8")
data[,factorsList] <- as.factor(data[,factorsList])

splits <- h2o.splitFrame(data, 0.8, seed = seed)
train <- splits[[1]]
test <- splits[[2]]

x <- c("X1", "X2", "X3", "X4", "X5", "X6", "X7", "X8")
y <- "Y2"  #Or "Y1"

######


numericColumns <- setdiff(colnames(train),c("X6","X8"))
d <- round( h2o.cor(train[,numericColumns]) ,2)
rownames(d) <- colnames(d)
d


#####

#breaks defaults to sturges
# "rice" gives more, thinner bars
# "doane" crashes it
# "fd" gives a square for X1, X7 is chunky, X4 are peaks.
# "scott": the bars always touch, but are of different widths.
# 
# I've added a bit more formatting than described in the book,
# just to get the plot shown in the book.

par(mar=c(5.1, 6.0, 4.1, 2.1))  #Changed 4.1 to 6.0
par(oma=c(1,0,0,0))  #Def was all zeroes
par(mfrow = c(2,5))
#ylim <- c(0,350)
ylim <- NULL
dummy <- lapply(colnames(train), function(col){
  h <- h2o.hist(train[,col], breaks=30, plot = FALSE)
  plot(h, main = col, xlab = "", ylim = ylim,
    ylab = ifelse(col %in% c("X1","X6"), "Frequency", ""),
    cex.lab=2.0, cex.axis=2.0, cex.main=2.5, cex.sub=2.0, cex=2.0
    )
  })


# If curious, here is how it looks on all data
dummy <- lapply(colnames(data), function(col){
  h <- h2o.hist(data[,col], plot = FALSE)
  plot(h, main = col, xlab = "", ylim = ylim)
  })

1 Ответ

0 голосов
/ 02 января 2019

Ошибка, о которой вы сообщали «как исправить», «гист» относится только к ошибке с одним числовым столбцом »в R. Это не ошибка, которую можно« исправить », поскольку функция h2o.hist() предназначена только для применения к одному столбцу.

Похоже, что единственная строка кода, в которой используется history h <- h2o.hist(train[,col], breaks=30, plot = FALSE), применяет h2o.hist() к одному столбцу и должна работать правильно.

...