gsubを使ってどのように置き換えることができますか？

Question

私は以下のようなデータを持っています。colnamesを置き換えたいと思います。

da 

    ..B1 ..B2 ..B3 
a  1  2 1 
b  1  1 1 

優先出力：

 B1 B2 B3 
a  1  2 1 
b  1  1 1 

と私は、このコマンドを使用しますが、それはうまくいきませんでした：

da=gsub(pattern = "..", replacement = "", x = colnames(da)) 

Answer 1

.は、任意の文字を表すメタ文字です。我々は

gsub("..", "", x= colnames(da)) 

を使用する場合、すべての文字が削除されるように、結果は

#[1] "" "" "" 

になります。私たちは、fixed = TRUEを使用するか、エスケープするか必要.

colnames(da) <- gsub("..", "", x= colnames(da), fixed=TRUE) 
colnames(da) 
#[1] "B1" "B2" "B3" 

gsub("\\.+", "", colnames(da)) 
#[1] "B1" "B2" "B3" 

Answer 2

としても機能するであろう次：これは名前のどの位置にある任意の期間を削除することをサイドノートでは

da<-data.frame(..B1=c(1,1), ..B2=c(2,1), ..B3=c(1,1)) 

colnames(da) <- gsub("[.]","", x=colnames(da)) 

。いくつかの状況では、あなたはそれを望んでいません。以下は、開始時にある二つの期間を削除します：

colnames(da) <- gsub("^..","", x=colnames(da)) 

Answer 3

機能[[：PUNCT：]]：句読点文字**を削除するために使用されます！ "＃$は％& '（）* +、 - /：;。？< => @ [\]^_` {|} **

colnames(da) <- gsub("[[:punct:]]","",colnames(da)) 
> da 
     B1 B2 B3 
    1 1 2 1 
    2 1 1 1