在R中打印有效数字

我试图找到一种方法，在一个大的数字中选择一个特定的数字。

---

例如：数字是25896，我想定义一个新的数字，它是右边的第二个数字，所以这个数字是9。或者我想从左边写第二个数字，比如5。

也许substrstr1，ncharstr1-1，ncharstr1-1[1]9或者substrstr1，2,2[1]5你也可以用modulo%%做点什么。