Это буквально в определении функции diag
:
Извлечение или замена диагонали матрицы, ...
m <- matrix(nr=5,nc=5)
diag(m) <- c("Hi","pet","juice","sun","laugh")
m
# [,1] [,2] [,3] [,4] [,5]
# [1,] "Hi" NA NA NA NA
# [2,] NA "pet" NA NA NA
# [3,] NA NA "juice" NA NA
# [4,] NA NA NA "sun" NA
# [5,] NA NA NA NA "laugh"