r - 如何按矩阵中的名称而不是数字索引重命名特定列？

Question

我有很多来自不同站点的数据。因此，我想重命名 colnames 选择变量名称而不是矩阵中的数字位置。这是来自一个站点的矩阵的想法:

mdat <- matrix(c(rnorm(5,100), rnorm(5, 15), rnorm(5, 0.5), rnorm(5,0.1), rnorm(5,40)), nrow = 5, ncol = 5, byrow = F,
                dimnames = list(c(2011:2015), c("Pre", "Temp", "Magnesium", "Zinc", "Hum")))

然后我只想按名称重命名特定的colnames，即“Magnesium”为“Mg”，“Zinc”为“Zn”。

当我使用数字索引时，它工作得很好:

colnames(mdat)[3:4] <- c("Zn", "Mg")

但我想知道如何通过列名执行相同的操作，因为在我的不同矩阵中，这些变量位于不同的列位置。我尝试了一下，但出现错误:

colnames(mdat)[c("Zinc", "Magnesium")] <- c("Zn", "Mg")

Error in `colnames<-`(`*tmp*`, value = c("Pre", "Temp", "Magnesium", "Zinc",  : 
  length of 'dimnames' [2] not equal to array extent

你能告诉我一些解决这个问题的方法吗？

谢谢

Answer 1

我们可以使用match来获取向量元素的数字索引(c('Zinc', 'Magnesium') ) 列名称中。使用它来对列名称进行子集化并替换为相应的向量 (c('Zn', 'Mg'))。

 indx <- match(c('Zinc', 'Magnesium'), colnames(mdat))
 colnames(mdat)[indx] <- c('Zn', 'Mg')