What is a short code for generating this matrix in R?
R, 24 23 22 20 bytes



diag(0,6)+c(!-1:4,1)


Try it online!

Just use R's recycling! This does give a warning, but otherwise is fine.

Thanks to Robin Ryder for the 2 byte golf.