绘制 Lasso L1 约束

Ploting the Lasso L1 constraint

在 Lasso 回归中使用 L1 约束:

我正在尝试使用 R 绘制约束。示例如下:

这是我写的简单 R 代码:

beta= seq(-1, 1, length=100)
lambda=2
penalty=lambda*abs(beta)
plot(penalty, type="l") 

它只绘制了情节的下半部分。我怎么能在一个情节中也绘制上部? 这是情节:

要绘制 abs(b1) + abs(b2) = 1,您可以绘制 b2 = 1 - abs(b1) 及其负数(因为 abs 表示任一解)

b1 <- seq(-1, 1, .01)
b2 <- 1 - abs(b1)
plot(b1, b2, ylim = c(-1, 1), type = 'l')
b2 <- -b2
lines(b1, b2)