So far all I have is this code below. I know I probably have to use ggplot to make the graph but I don't

know how.set.seed$(17)$

cv$.$error. $10=$rep $(0,10)$

for$($i in $1$:$10)\{$cv$.$error. $10[$i$]=$cv$.$g$7$m$($Auto$,$g$7$m$.$fit, K$=10)$$de$7$ta$[1]$

$\}$

cv$.$error. $10$