如何在R中的Elasticnet中获得具有不同set.seed的相同系数？

如何解决如何在R中的Elasticnet中获得具有不同set.seed的相同系数？

此问题在CrossValidation上已经关闭，因为它专注于编程，因此在这里更适合： 我正在对数据运行弹性网逻辑回归。我研究了每次对相同数据运行相同模型时如何获得可复制系数。但是，这似乎没有发生。我尝试设置nfolds和foldid，但是一旦更改set.seed，系数就会改变。

我了解交叉验证的工作原理以及set.seed可能会改变整个环境。有人建议像我的代码中一样设置foldid，但是一旦set.seed更改，这对我来说就无济于事。

每次运行获得相同系数或对模型系数进行统计学上合理的测量有什么可能性？

df <- read_csv("data.csv")
View(df)

set.seed(123)
library(caret)
library(tidyverse)
library(glmnet)
library(ROCR)
library(doParallel)
registerDoParallel(4,cores = 4)
training.samples <- df$V1 %>% createDataPartition(p = 0.8,list = FALSE)
train <- df[training.samples,]
test <- df[-training.samples,]
x.train <- data.frame(train[,names(train) != "V1"])
x.train <- data.matrix(x.train)
y.train <- train$V1
x.test <- data.frame(test[,names(test) != "V1"])
x.test <- data.matrix(x.test)
y.test <- test$V1
foldid <- sample(rep(seq(10),length.out = nrow(train)))
 
list.of.fits <- list()
for (i in 0:10){
    fit.name <- paste0("alpha",i/10) 
    list.of.fits[[fit.name]] <- cv.glmnet(x.train,y.train,type.measure = "dev",alpha = i/10,family = "binomial",nfolds = 10,foldid = foldid,parallel = TRUE)
}
coef <- coef(list.of.fits[[fit.name]],s = list.of.fits[[fit.name]]$lambda.1se)
coef
My output ends up like this:

set.seed(123)

(Intercept) -18.533050
V2          -0.0049142
V3          -0.0013228
V4          -0.0029664
V5           0.0123987
V6           0.1433817
V7           .           
V8          -0.0188888
V9           0.0007504
V10         -0.0626482
set.seed(42)

(Intercept) -22.16271709
V2          -0.005898701
V3          -0.001332854
V4          -0.003506514
V5           0.013343484
V6           0.097911065
V7          -0.269346185
V8          -0.024876785
V9           0.027937690
V10         -0.070759818

解决方法

有两种不同类型的再现性。一种是设置种子，以便可以为 cv.glmnet 获得相同的输出。这就是你所做的，设置种子，并提供折叠作为输入。因此，如果您使用相同的种子再次运行代码，则会得到相同的结果。

在您的问题和示例中，您使用不同的交叉验证折叠运行它并使用 1se 提取系数。每次采样中每个 lambda 值的误差当然会有所不同，这是交叉验证的目的，但您不会期望 lambda 值相差太大。

我们可以用一个示例数据集来看看这个：

library(glmnet)
library(mlbench)
data(Sonar)
set.seed(111)
idx = sample(nrow(Sonar),150)
x.train = as.matrix(Sonar[idx,1:60])
y.train = as.numeric(Sonar$Class)[idx]
x.test = as.matrix(Sonar[-idx,1:60])
y.test = as.numeric(Sonar$Class)[-idx]

使用 5 个不同的种子，1 个常量 alpha：

o = lapply(1:5,function(i){
set.seed(i)
foldid <- sample(rep(seq(10),length.out = nrow(x.train)))
fit = cv.glmnet(x.train,y.train,type.measure = "dev",alpha = 0.5,nfolds = 10,family="binomial",foldid = foldid)

wh = which(fit$lambda==fit$lambda.1se)
data.frame(seed=i,lambda = fit$lambda.1se,error = fit$cvm[wh],hi = fit$cvup[wh],lo = fit$cvlo[wh])
})

看到 lambda 1 se 差别不大，还有错误：

do.call(rbind,o)
  seed     lambda    error       hi       lo
1    1 0.08047217 1.020349 1.071294 0.969404
2    2 0.14062741 1.099030 1.148053 1.050007
3    3 0.12813445 1.101091 1.160062 1.042121
4    4 0.11675134 1.104327 1.165262 1.043392
5    5 0.10637948 1.059930 1.114897 1.004962

如果您的数据足够大，您会看到这些 lambda 和错误值越来越接近。因此，使用这些 lambda 表达式中的一个应该足以为您提供一个将误差最小化的预测。