如何在R中获得矩阵的对角元素

Question

我附上了一个数据集。

我想从这个矩阵中提取对角线元素。输出应如下所示。我该如何使用R？

请找到excel文件的链接。

https://1drv.ms/x/s!AmU_Vk1czmwRgWFvnMYsga56vVMb

输出（df）：

X X1 X2 X3 X4 X5 X6  X7 X8 X9 X10
1  11  1 12  4 46 78 45  89 45 45   7
2  12  2 56  5 12 12 23 566 26  6    
3  13  3 23 23 28 24 28  23 23       
4  14  4 45 12 26 46 24  12          
5  15  5 89 56 24 68 27              
6  16  6 23 26 26 78                 
7  17  8 23 24 24                    
8  18  9 12 27                       
9  19 12 45                          
10 20 56


structure(list(X = 11:20, X1 = c(1L, 2L, 3L, 4L, 5L, 6L, 8L, 
9L, 12L, 56L), X2 = c("12", "56", "23", "45", "89", "23", "23", 
"12", "45", " "), X3 = c("4", "5", "23", "12", "56", "26", "24", 
"27", " ", " "), X4 = c("46", "12", "28", "26", "24", "26", "24", 
" ", " ", " "), X5 = c("78", "12", "24", "46", "68", "78", " ", 
" ", " ", " "), X6 = c("45", "23", "28", "24", "27", " ", " ", 
" ", " ", " "), X7 = c("89", "566", "23", "12", " ", " ", " ", 
" ", " ", " "), X8 = c("45", "26", "23", " ", " ", " ", " ", 
" ", " ", " "), X9 = c("45", "6", " ", " ", " ", " ", " ", " ", 
" ", " "), X10 = c("7", " ", " ", " ", " ", " ", " ", " ", " ", 
" ")), row.names = c(NA, -10L), class = "data.frame")

Answer 1

我会颠倒列的顺序 - 然后你可以将它转换为矩阵并轻松取对角线：

df[ncol(df):1] %>% 
  as.matrix() %>% 
  diag()

或等效地，如果您不熟悉管道运算符（%>%）：

diag(as.matrix(df[ncol(df):1]))