修改矩阵元素的值

以下的操作都是基于这样的一个矩阵：

m1 <- matrix(c(1:6), nrow=2, ncol=3, dimnames = list(c("r1", "r2"), c("c1", "c2", "c3")))

在R语言中，主要通过以下几种形式来修改矩阵中的元素值。

（1）修改单个值

m1[1,2] = 12 #将矩阵m1中第1行第2个元素的值修改为12

m1["r2","c2"] = 22 #将矩阵m1中行名称为r2与列名称c2交叉处的元素值修改为22

（2）修改某一行的数据

m1[2,] = c(21,22,23) #将矩阵第2行的数据修改为21,22,23

m1["r1" ,] = c(11:13) #将矩阵名称为r1的行的数据修改为11 ，12, 13

m1[1, ] = 0 #将矩阵m1的第一行的数据都修改为0

（3）修改某一列的数据

m1[, 1] = c(11,21) #将矩阵的第一列数据修改为11,21

m1[, "c2"] = c(221,222) #将矩阵中名为c2的列数据改为221,222

m1[,3 ] = 333 #将矩阵第3列的数据都修改为333

注意下面这种情况：

ma <- matrix(1:16, nr=4) #创建名为ma的矩阵，共4行4列

修改第2列的数据：

ma[,2] = c(12,22) #这样，向量的数据可以重复以补齐到与矩阵ma的行数相同

即第2列的数据变为 12 22 12 22

如下图所示：

但是如果向量中提供的元素个数不能被替换对象的维数整除的话，会报错，也就是说这里要替换的列元素有4个，提供了2个，2能被4整除，则其通过重复循环向量2次可以将矩阵列元素补齐，但如提供的向量元素有3个的话，会给出“被替换的项目不是替换值长度的倍数”的错误。即对于ma矩阵，其行或列给出替换的元素个数只能是1或2或4，其余会报错。

删除指定的行或列

m1 <- m1[-2,] #删除第2行

m1 <- m1[,-2] #删除第2列

m1<- m1[-1,-2] #删除矩阵的第1行以及第2列

注意，上面使用了给矩阵重新赋值的方式，否则不能实现删除操作，仅是访问。

矩阵的合并

可以使用上面所说的rbind和cbind函数进行合并

m1<-rbind(m1,c(31,32,33)) #将向量按行合并到矩阵m1中

m1<-cbind(m1,c(44,45)) #将向量按列合并到矩阵m1中

同样，上面给出的向量元素不足时，循环使用，同样当元素个数不足时，其提供的元素个数应能被对应的行维或列维除尽，即列数或行数需是所提供的元素个数的整数倍。

-------------------

欢迎关注本号。本号近期将持续更新R语言方面的文章。内容将从简单到复杂，从基本的语法格式到具体的数据分析和应用，希望你能喜欢。希望你能在喜欢之余给我一个赞，满足我一下那个小小的虚荣心。 返回搜狐，查看更多

责任编辑：