方法有很多，给一个主要靠 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.每个储存格都是三位数