在使用R语言进行数据处理时遇到问题不知道怎么解决

我在做一个R语言的项目，我需要提取如下数据中每个元素的首位

但是我利用substr函数提取之后与我的预想不同，输出结果如下图

请问有什么解决办法吗？
谢谢了！

直接用只能提取一个单元格，写个循环或者写个function，举例

# 提取第 2 列中每个单元格的首位数字
col_first_digit <- sapply(mat[, 2], function(x) substr(as.character(x), 1, 1))