数据结构
网络
关系数据库管理系统
操作系统
Java
MS Excel
iOS
HTML
CSS
Android
Python
C 语言编程
C++
C#
MongoDB
MySQL
Javascript
PHP
物理学
化学
生物学
数学
英语
经济学
心理学
社会学
时尚研究
法律研究在 R 中将单列矩阵转换为对角矩阵。
对角矩阵是一种方阵，从左上到右下，非对角线元素均为零。
为了在 R 中将单列矩阵转换为对角矩阵，我们可以使用 diag 函数以及 matrix 函数，并使用 ncol 参数，其中我们可以将列数设置为单列矩阵中值的个数。
查看下面给出的示例，了解如何实现。
示例 1
以下代码片段创建了一个示例矩阵 -
M1<-matrix(rpois(5,2),ncol=1) M1
创建了以下矩阵 -
[,1] [1,] 2 [2,] 3 [3,] 5 [4,] 1 [5,] 1
为了将矩阵 M1 转换为上面创建的矩阵上的对角矩阵，请将以下代码添加到上面的代码片段中 -
M1<-matrix(rpois(5,2),ncol=1) M1<-matrix(diag(as.vector(M1)),ncol=5) M1
输出
如果将以上所有代码片段作为一个程序执行，则会生成以下输出 -
[,1] [,2] [,3] [,4] [,5] [1,] 2 0 0 0 0 [2,] 0 3 0 0 0 [3,] 0 0 5 0 0 [4,] 0 0 0 1 0 [5,] 0 0 0 0 1
示例 2
以下代码片段创建了一个示例矩阵 -
M2<-matrix(rpois(5,500),ncol=1) M2
创建了以下矩阵 -
[,1] [1,] 505 [2,] 505 [3,] 523 [4,] 545 [5,] 507
为了将矩阵 M2 转换为上面创建的矩阵上的对角矩阵，请将以下代码添加到上面的代码片段中 -
M2<-matrix(rpois(5,500),ncol=1) M2<-matrix(diag(as.vector(M2)),ncol=5) M2
输出
如果将以上所有代码片段作为一个程序执行，则会生成以下输出 -
[,1] [,2] [,3] [,4] [,5] [1,] 505 0 0 0 0 [2,] 0 505 0 0 0 [3,] 0 0 523 0 0 [4,] 0 0 0 545 0 [5,] 0 0 0 0 507
示例 3
以下代码片段创建了一个示例矩阵 -
M3<-matrix(rnorm(5),ncol=1) M3
创建了以下矩阵 -
[,1] [1,] 0.2614596 [2,] 0.6914427 [3,] -1.8483160 [4,] -1.0057351 [5,] -1.4467553
为了将矩阵 M3 转换为上面创建的矩阵上的对角矩阵，请将以下代码添加到上面的代码片段中 -
M3<-matrix(rnorm(5),ncol=1) M3<-matrix(diag(as.vector(M3)),ncol=5) M3
输出
如果将以上所有代码片段作为一个程序执行，则会生成以下输出 -
[,1] [,2] [,3] [,4] [,5] [1,] 0.2614596 0.0000000 0.000000 0.000000 0.000000 [2,] 0.0000000 0.6914427 0.000000 0.000000 0.000000 [3,] 0.0000000 0.0000000 -1.848316 0.000000 0.000000 [4,] 0.0000000 0.0000000 0.000000 -1.005735 0.000000 [5,] 0.0000000 0.0000000 0.000000 0.000000 -1.446755
示例 4
以下代码片段创建了一个示例矩阵 -
M4<-matrix(round(rnorm(5,25,3.2),1),ncol=1) M4
创建了以下矩阵 -
[,1] [1,] 26.6 [2,] 26.5 [3,] 22.1 [4,] 24.8 [5,] 19.1
为了将矩阵 M4 转换为上面创建的矩阵上的对角矩阵，请将以下代码添加到上面的代码片段中 -
M4<-matrix(round(rnorm(5,25,3.2),1),ncol=1) M4<-matrix(diag(as.vector(M4)),ncol=5) M4
输出
如果将以上所有代码片段作为一个程序执行，则会生成以下输出 -
[,1] [,2] [,3] [,4] [,5] [1,] 26.6 0.0 0.0 0.0 0.0 [2,] 0.0 26.5 0.0 0.0 0.0 [3,] 0.0 0.0 22.1 0.0 0.0 [4,] 0.0 0.0 0.0 24.8 0.0 [5,] 0.0 0.0 0.0 0.0 19.1
示例 5
以下代码片段创建了一个示例矩阵 -
M5<-matrix(round(runif(5,2,10),2),ncol=1) M5
创建了以下矩阵 -
[,1] [1,] 5.92 [2,] 7.34 [3,] 7.72 [4,] 3.18 [5,] 7.00
为了将矩阵 M5 转换为上面创建的矩阵上的对角矩阵，请将以下代码添加到上面的代码片段中 -
M5<-matrix(round(runif(5,2,10),2),ncol=1) M5<-matrix(diag(as.vector(M5)),ncol=5) M5
输出
如果将以上所有代码片段作为一个程序执行，则会生成以下输出 -
[,1] [,2] [,3] [,4] [,5] [1,] 5.92 0.00 0.00 0.00 0 [2,] 0.00 7.34 0.00 0.00 0 [3,] 0.00 0.00 7.72 0.00 0 [4,] 0.00 0.00 0.00 3.18 0 [5,] 0.00 0.00 0.00 0.00 7
更新于: 2021-11-08
503 次查看
广告