方法有很多，給一個主要靠 gsub() 的方法。
x0 <- c(123,456)
xStr0 <- as.character(x0)
xStr1 <- gsub("([0-9])[0-9]([0-9])", "\\1\\2", xStr0)
x1 <- as.numeric(xStr1)
x1 為所求。
※ 引述《sinclairJ (Jun)》之銘言：
: 有一欄變數資料如下
: 每一格的內容大概就是
: 156
: 756
: 258
: 693
: 127
: ...共幾萬列
: 我想把每列儲存格裡面第二個數字拿掉
: 最後會變這樣:
: 16
: 76
: 28
: 63
: 17
: …
: 請問各位前輩要怎麼做阿
: 想了好久:(
: ps.每個儲存格都是三位數