R 我的计划错了吗？这是一个auc对抗lambda的阴谋

我正在尝试使用glmnet软件包拟合逻辑回归模型。我的数据由5列和748个观察值组成。我想预测献血者是否会在特定时间献血

这是我的代码，但我创建的情节有点奇怪

str(blood.donation)
names(blood.donation)
table(apply(X = blood.donation,MARGIN = 2,FUN = function(x) is.na(x)))
summary(blood.donation)
apply(blood.donation, 2, function(x) var(x))

y <- as.factor(blood.donation$whether.he.she.donated.blood.in.March.2007)
class(y)

bl.do.data <- model.matrix(y~., data = blood.donation)[,-5]
class(bl.do.data)
head(bl.do.data)

indices <- sample(nrow(blood.donation), 0.70 * nrow(blood.donation))
dim(blood.donation[indices,])

fit.bl.do <- cv.glmnet(bl.do.data[indices,], y[indices], type.measure = "auc", nfolds = 10, family = "binomial")
class(fit.bl.do)
plot(fit.bl.do)```

[![enter image description here][1]][1]

Unfortunately, the plot created is a bit strange. There is a straight line with variable numbers all equal to 1 above it.

Just wonder if I missed a step during my analysis


  [1]: https://i.stack.imgur.com/4DW7M.jpg

Here is my data

```head(blood.donation)
  Recency..months. Frequency..times. Monetary..c.c..blood. Time..months.
1                2                50                 12500            98
2                0                13                  3250            28
3                1                16                  4000            35
4                2                20                  5000            45
5                1                24                  6000            77
6                4                 4                  1000             4
  whether.he.she.donated.blood.in.March.2007
1                                          1
2                                          1
3                                          1
4                                          1
5                                          0
6                                          0```

str（献血）
姓名（献血）
表（应用（X=献血，边际=2，FUN=函数（X）为.na（X）））
摘要（献血）
申请（献血，2，功能（x）变量（x））
我问了一个有趣的问题，但这是一个离题的问题；请改为尝试stats.stackexchange.com。此外，您还可以通过显示绘图而不是等待其他人运行代码，以及指出绘图中您觉得奇怪的方面来帮助他人。若要发布数据，请使用
dput（blood.捐赠）
。不要使用
标题（）
。