如何在 R 中将数字拆分为数位?
要在 R 中将数字拆分为数位，我们可以使用 strsplit 函数，先用 as.character 读取数字，再用 as.numeric 读取输出。
例如，如果我们将一个数字存储在名为 X 的对象中，那么我们可以使用以下命令将存储在 X 中的数字拆分为数位 −
as.numeric(strsplit(as.character(X),"")[[1]])
示例 1
要在 R 中将数字拆分为数位，请使用以下代码片段 −
x1<-2547435 x1
如果执行上面给出的代码片段，它会生成以下输出−
[1] 2547435
要将数字拆分为 R 中的数字，请将以下代码添加到上面的代码段 −
x1<-2547435 as.numeric(strsplit(as.character(x1),"")[[1]])
输出
如果将上述所有代码作为单个程序执行，它将生成以下输出 −
[1] 2 5 4 7 4 3 5
示例 2
要在 R 中将数字拆分为数字，请使用下面的代码片段 −
x2<-8789342355 x2
如果执行上面给出的代码片段，它会生成以下输出 −
[1] 8789342355
要在 R 中将数字拆分为数位，请将以下代码添加到上述代码片段 −
x2<-8789342355 as.numeric(strsplit(as.character(x2),"")[[1]])
输出
如果将上述所有代码作为一个程序执行，则会生成以下输出 −
[1] 8 7 8 9 3 4 2 3 5 5
示例 3
要在 R 中将数字拆分为数位，请使用以下代码片段 −
x3<-10000 x3
如果执行上面给出的代码片段，它会生成以下输出 −
[1] 10000
要在 R 中将数字拆分为数位，请将以下代码添加到上述代码片段 −
x3<-10000 as.numeric(strsplit(as.character(x3),"")[[1]])
输出
如果将上述所有代码作为一个程序执行，则会生成以下输出 −
[1] 1 0 0 0 0
示例 4
要在 R 中将数字拆分为数位，请使用以下代码片段 −
x4<-rpois(1,200) x4
如果执行上面给出的代码片段，它会生成以下输出 −
[1] 207
要在 R 中将数字拆分为数位，请将以下代码添加到上述代码片段 −
x4<-rpois(1,200) as.numeric(strsplit(as.character(x4),"")[[1]])
输出
如果将上述所有代码作为一个程序执行，则会生成以下输出 −
[1] 2 0 7
示例 5
要在 R 中将数字拆分为数位，请使用以下代码片段 −
x5<-47824135 x5
如果执行上面给出的代码片段，它会生成以下输出 −
[1] 47824135
要在 R 中将数字拆分为数位，请将以下代码添加到上述代码片段 −
x5<-47824135 as.numeric(strsplit(as.character(x5),"")[[1]])
输出
如果将上述所有代码作为一个程序执行，则会生成以下输出 −
[1] 4 7 8 2 4 1 3 5
示例 6
要在 R 中将数字拆分为数位，请使用以下代码片段 −
x6<-231404700 x6
如果执行上面给出的代码片段，它会生成以下输出 −
[1] 231404700
要在 R 中将数字拆分为数位，请将以下代码添加到上述代码片段 −
x6<-231404700 as.numeric(strsplit(as.character(x6),"")[[1]])
输出
如果将上述所有代码作为一个程序执行，则会生成以下输出 −
[1] 2 3 1 4 0 4 7 0 0
示例 7
要在 R 中将数字拆分为数位，请使用以下代码片段 −
x7<-00142452233 x7
如果执行上面给出的代码片段，它会生成以下输出 −
[1] 142452233
要在 R 中将数字拆分为数位，请将以下代码添加到上述代码片段 −
x7<-00142452233 as.numeric(strsplit(as.character(x7),"")[[1]])
输出
如果将上述所有代码作为一个程序执行，则会生成以下输出 −
[1] 1 4 2 4 5 2 2 3 3
示例 8
要在 R 中将数字拆分为数位，请使用以下代码片段 −
x8<-rpois(1,100032474) x8
如果执行上面给出的代码片段，它会生成以下输出 −
[1] 100035562
要在 R 中将数字拆分为数位，请将以下代码添加到上述代码片段 −
x8<-rpois(1,100032474) as.numeric(strsplit(as.character(x8),"")[[1]])
输出
如果将上述所有代码作为一个程序执行，则会生成以下输出 −
[1] 1 0 0 0 3 5 5 6 2
示例 9
要在 R 中将数字拆分为数位，请使用以下代码片段 −
x9<-rpois(1,2875662365) x9
如果执行上面给出的代码片段，它会生成以下输出 −
[1] NA
要在 R 中将数字拆分为数位，请将以下代码添加到上述代码片段 −
as.numeric(strsplit(as.character(x9),"")[[1]])
输出
如果将上述所有代码作为一个程序执行，则会生成以下输出 −
[1] 2 8 7 5 6 7 2 5 3 2
示例 10
要在 R 中将数字拆分为数位，请使用以下代码片段 −
x10<-rpois(1,924135746) x10
如果执行上面给出的代码片段，它会生成以下输出 −
[1] 924151778
要在 R 中将数字拆分为数字，请将以下代码添加到上述代码片段 −
x10<-rpois(1,924135746) as.numeric(strsplit(as.character(x10),"")[[1]])
输出
如果将上述所有代码作为一个程序执行，则会生成以下输出 −
[1] 9 2 4 1 5 1 7 7 8
