- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我在使用 mlr 获取部分依赖图以使其正常工作时遇到问题。不知何故,绘图不是概率,而是类别标签。我怀疑,在创建部分依赖数据期间目标可能会丢失。
有什么想法吗?
library(mlr)
library(dplyr)
library(ranger)
# select subset
iris_bin <- iris %>%
filter(Species != "virginica") %>%
mutate(bin_target = ifelse(Species == "setosa", TRUE, FALSE)) %>%
select(-Species)
# fit model
task_bin <- makeClassifTask(data = iris_bin, target = "bin_target")
lrn_bin <- makeLearner("classif.ranger", predict.type = "prob")
fit_bin <- train(lrn_bin, task_bin)
# create partial dependence plot
pd <- generatePartialDependenceData(fit_bin, task_bin, "Sepal.Length")
pd # is the target correct?
#> PartialDependenceData
#> Task: iris_bin
#> Features: Sepal.Length
#> Target: FALSE
#> Derivative: FALSE
#> Interaction: FALSE
#> Individual: FALSE
#> FALSE Sepal.Length
#> 1: 0.4920347 4.3
#> 2: 0.4920347 4.6
#> 3: 0.4935947 4.9
#> 4: 0.4945947 5.2
#> 5: 0.5104600 5.5
#> 6: 0.5107800 5.8
#> ... (#rows: 10, #cols: 2)
plotPartialDependence(pd)
这将是我当前 session 的详细信息,也许这有帮助?:
Session info ---------------------------------------------
setting value
version R version 3.4.2 (2017-09-28)
system x86_64, mingw32
ui RStudio (1.1.383)
language (EN)
collate German_Germany.1252
tz Europe/Berlin
date 2018-03-29
Packages ----------------------------------------------------
package * version date source
assertthat 0.2.0 2017-04-11 CRAN (R 3.4.3)
backports 1.1.2 2017-12-13 CRAN (R 3.4.3)
base * 3.4.2 2017-09-28 local
BBmisc 1.11 2017-03-10 CRAN (R 3.4.3)
bindr 0.1.1 2018-03-13 CRAN (R 3.4.2)
bindrcpp * 0.2 2017-06-17 CRAN (R 3.4.3)
checkmate 1.8.5 2017-10-24 CRAN (R 3.4.3)
colorspace 1.3-2 2016-12-14 CRAN (R 3.4.3)
compiler 3.4.2 2017-09-28 local
data.table 1.10.4-3 2017-10-27 CRAN (R 3.4.3)
datasets * 3.4.2 2017-09-28 local
devtools 1.13.5 2018-02-18 CRAN (R 3.4.3)
digest 0.6.15 2018-01-28 CRAN (R 3.4.3)
dplyr * 0.7.4 2017-09-28 CRAN (R 3.4.3)
ggplot2 2.2.1.9000 2018-03-26 Github (tidyverse/ggplot2@3c9c504)
glue 1.2.0 2017-10-29 CRAN (R 3.4.3)
graphics * 3.4.2 2017-09-28 local
grDevices * 3.4.2 2017-09-28 local
grid 3.4.2 2017-09-28 local
gtable 0.2.0 2016-02-26 CRAN (R 3.4.3)
labeling 0.3 2014-08-23 CRAN (R 3.4.1)
lattice 0.20-35 2017-03-25 CRAN (R 3.4.2)
lazyeval 0.2.1 2017-10-29 CRAN (R 3.4.3)
magrittr 1.5 2014-11-22 CRAN (R 3.4.3)
Matrix 1.2-11 2017-08-21 CRAN (R 3.4.2)
memoise 1.1.0 2017-04-21 CRAN (R 3.4.3)
methods * 3.4.2 2017-09-28 local
mlr * 2.13 2018-03-28 Github (mlr-org/mlr@a9036e3)
mmpf * 0.0.4 2017-12-05 CRAN (R 3.4.4)
munsell 0.4.3 2016-02-13 CRAN (R 3.4.3)
parallel 3.4.2 2017-09-28 local
parallelMap 1.3 2015-06-10 CRAN (R 3.4.3)
ParamHelpers * 1.11 2018-02-19 Github (berndbischl/ParamHelpers@59c649e)
pillar 1.2.1 2018-02-27 CRAN (R 3.4.3)
pkgconfig 2.0.1 2017-03-21 CRAN (R 3.4.3)
plyr 1.8.4 2016-06-08 CRAN (R 3.4.3)
R6 2.2.2 2017-06-17 CRAN (R 3.4.3)
ranger * 0.9.0 2018-01-09 CRAN (R 3.4.3)
Rcpp 0.12.16 2018-03-13 CRAN (R 3.4.2)
rlang 0.2.0.9001 2018-03-26 Github (r-lib/rlang@49d7a34)
rstudioapi 0.7 2017-09-07 CRAN (R 3.4.3)
scales 0.5.0 2017-08-24 CRAN (R 3.4.4)
splines 3.4.2 2017-09-28 local
stats * 3.4.2 2017-09-28 local
stringi 1.1.7 2018-03-12 CRAN (R 3.4.2)
survival 2.41-3 2017-04-04 CRAN (R 3.4.2)
tibble 1.4.2 2018-01-22 CRAN (R 3.4.3)
tools 3.4.2 2017-09-28 local
utils * 3.4.2 2017-09-28 local
withr 2.1.2 2018-03-26 Github (jimhester/withr@79d7b0d)
XML 3.98-1.10 2018-02-19 CRAN (R 3.4.3)
yaml 2.1.18 2018-03-08 CRAN (R 3.4.3)
最佳答案
希望 mlr
包维护者可以提供帮助(我不使用该包)。但是,与此同时,您可以直接拟合模型,只需使用 pdp
包:
fit <- ranger(as.factor(bin_target) ~ ., data = iris_bin,
probability = TRUE)
library(ggplot2)
library(pdp)
pd <- partial(fit, pred.var = "Sepal.Length", prob = TRUE)
autoplot(pd)
请注意在调用 partial
时使用 prob = TRUE
。此外,ggplot2 也不是必需的,因为您可以只使用plotPartial(pd) 来代替,它依赖于点阵图形。
此外,您仍然可以使用 mlr
拟合模型,然后使用 partial
;例如,
library(mlr)
library(dplyr)
library(ranger)
library(pdp)
# select subset
iris_bin <- iris %>%
filter(Species != "virginica") %>%
mutate(bin_target = ifelse(Species == "setosa", TRUE, FALSE)) %>%
select(-Species)
# fit model
task_bin <- makeClassifTask(data = iris_bin, target = "bin_target")
lrn_bin <- makeLearner("classif.ranger", predict.type = "prob")
fit_bin <- train(lrn_bin, task_bin)
# partial dependence plot
mod <- getLearnerModel(fit_bin) # EXTRACT THE MODEL!! <<--
partial(mod, pred.var = "Sepal.Length", prob = TRUE,
plot = TRUE, train = iris_bin)
但请注意,需要通过 train
参数提供原始训练数据。
关于r - 在 R 中绘制二进制目标 (mlr) 的部分依赖图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49537907/
我在使用 io-ts 时遇到一些问题。我发现它确实缺乏文档,我取得的大部分进展都是通过 GitHub issues 取得的。不,我不明白 HKT,所以没有帮助。 基本上,我在其他地方创建一个类型,ty
我必须创建一个正则表达式来搜索整个文件,以找到与 Java XML 解析器的第一部分(但不是第二部分)的匹配项。这将用于防止某些 XXE 攻击。不幸的是,它确实必须是单个正则表达式,并且它确实需要搜索
我有一些简单的 Shared/_Header.cshtml 文件中的内容。 My Shared/_Layout.cshtml 通过调用插入该代码 @Html.Partial("_Header") 目前
我有一个 if-else 语句,其中: 条件 1:ID 匹配并且自动填充某些字段。然后 if 语句只填充其余字段 条件 2:ID 不匹配,所有字段均为空白。 ELSE 语句将它们全部填充 当我使条件
我正在开发一个单页滚动网站。我正在尝试实现 ScrollMagic 并固定第一部分,以便网站的其余部分滚动到固定部分的顶部。我尝试创建一个 jsfiddle 来显示问题,但我似乎无法让 jsfiddl
这是我的情况: 我想使用 Google AdWords 的转换脚本,但出于某种原因,他们代码段的 javascript 部分在我的页面上添加了一些我似乎无法摆脱的不需要的空白。 所以我正在查看的选项纯
寻找一种优雅的方式在页面上添加一次脚本,就是这样。 我有一个需要 2 个 CSS 文件和 2 个 JS 文件的部分 View 。在大多数地方,只需要其中 1 个部分 View 。但在单个页面上,我需要
我想要一个网站,该网站始终具有相同的部分,具有相同的 id 以及我想要显示的所有内容。我对 javascript 不太了解,我想知道如何删除除特定部分之外的所有内容。 最好的方法是否是只执行一个循环来
SQL 语句教程 (11) Group By 我们现在回到函数上。记得我们用 SUM 这个指令来算出所有的 Sales (营业额)吧!如果我们的需求变成是要算出每一间店 (store_name)
我试图理解部分并认为我已经明白了。基本上,这是一种将部分应用程序应用于二元运算符的方法。所以我了解所有(2*) , (+1)等例子就好了。 但是在 O'Reilly Real World Haskel
有没有办法禁止在部分中覆盖给定的关键字参数?假设我要创建函数 bar总是有 a设置为 1 .在以下代码中: from functools import partial def foo(a, b):
我有这个使用节的 OpenMP 代码 #pragma omp parallel sections num_threads(8) { printf_s("Allo fro
我正在尝试重新创建 Apple 制作的有缺陷的 CNContactPickerViewController,因此我有一个数据数组 [CNContact],我需要将其整齐地显示在 UITableView
我有一个相对布局,其中包含一些 float 在 GridView 上的 TextView 。当我在网格中选择一个项目时,布局向下移动到屏幕的尽头,只有大约 1/5 的部分是可见的。这是使用简单的翻译动
我想在我的 tableView 中有两个部分。我希望将项目添加到第 0 节,然后能够选择一行以将其从第 0 节移动到第 1 节。到目前为止,我已将这些项目添加到第 0 节,但是当它关闭时数据不会加
我正在以自由职业者的身份开发支付控制软件,但我有一些关于 mysql 的问题。 。我有一个用作日志的表,名为“Bitacora”。在表中,我有一个名为 idCliente 的列,它是自己表中一个人的
我有一个 PFQueryTableViewController,我想向 tableview 添加部分,我这样尝试: - (PFQuery *)queryForTable { PFQuery *qu
我正在尝试编写一个查询,将部分匹配项与存储的名称值进行匹配。 我的数据库如下所示 Blockquote FirstName | Middle Name | Surname --------------
我正在开发一个语音备忘录应用程序,并且正在将文件保存到表格 View 中。我希望默认文件名显示为“新文件 1”,如果使用“新文件 1”,则它会显示为“新文件 2”,依此类推。 我正在尝试使用 do-w
我有以下简单的 HTML 布局 .section1 { background: red; } .section2 { background: green; } .section3 { ba
我是一名优秀的程序员,十分优秀!