按十进制分割数

Question

我正在尝试将带小数的数字拆分为2个单独的数字（字符也可以）。

a <- c(1241.3233, 5632.2344, 1313,8643)

我想回复此

col1    col2
1241    3233
5632    2344
1313    8643

我试过

strsplit(as.character(a), ".")

和

stringr::str_split(a,".")

没有成功。

Answer 1

两点：

1）使用as.character

将数字强制转换为字符串

2）使用\\

退出句号

a = c(1241.3233, 5632.2344, 1313.8643)
do.call(rbind, strsplit(as.character(a),"\\."))
#     [,1]   [,2]  
#[1,] "1241" "3233"
#[2,] "5632" "2344"
#[3,] "1313" "8643"

Answer 2

如果您正在处理数据框，并且您所需的输出将成为数据框。来自searchBar.setImage(UIImage(), for: .clear, state: .normal) 的{​​{1}}函数可能很有用。这是一个例子。

separate