我的情节错了吗？这是auc对lambda的情节

如何解决我的情节错了吗？这是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```