string - rで行列の列名を編集する(つまり、文字を削除する)ときに、paste()の反対の関数はありますか?

Question

マトリックス内のすべての列名の最初の文字を削除しようとしています。

mat1 <- matrix(seq(1:6), 2)
dimnames(mat1)[[2]] <- c("bA", "bB", "bC")


bA    bB    bC
1     2     3
4     5     6

これに：

A     B     C
1     2     3
4     5     6

paste()関数を使用すると、列名に追加できることがわかります。反対の機能はありますか？

Answer 1

substring は適切な関数です:

 dimnames(mat1)[[2]] <- substring(dimnames(mat1)[[2]], first=2)

 mat1
     A B C
[1,] 1 3 5
[2,] 2 4 6

Answer 2

アプローチに加えて、substring正規表現メソッドを使用できます。

?regex
  colnames(mat1) <- sub('^\\.', "", colnames(mat1) ) # removes first letter
  # the next one removes lower-case letters which for some reason Jilber has already posted but  deleted
  colnames(mat1) <- sub("[a-z]", "", colnames(mat1) )

「セパレーター」がある場合は、次も使用できますstrsplit。

?strsplit
 colnames(mat1) <- sapply( strsplit( c("b_A", "b_B", "b_C"), "_"), "[", 2)