时间戳

首页 > 解决方案 > 使用 R 将数字序列拆分为 10 位数字组

r - 使用 R 将数字序列拆分为 10 位数字组

问题描述

我想让 R 读取 Pi 的前 10,000 位数字并将每 10 位数字组合在一起

例如，我希望 R 按顺序读取

pi <- 3.14159265358979323846264338327950288419716939937510582097...

并希望 R 给我一个表格，其中每行包含 10 位数字：

3141592653

5897932384

6264338327 ...

我是 R 新手，真的不知道从哪里开始，所以非常感谢任何帮助！

先感谢您

标签： r

解决方案

我们可以使用str_extract：

pi  <- readLines("https://www.pi2e.ch/blog/wp-content/uploads/2017/03/pi_dec_1m.txt")

library(stringr)
t <- unlist(str_extract_all(sub("\\.","", pi), "\\d{10}"))
t[1:100]
  [1] "3141592653" "5897932384" "6264338327" "9502884197" "1693993751" "0582097494" "4592307816" "4062862089"
  [9] "9862803482" "5342117067" "9821480865" "1328230664" "7093844609" "5505822317" "2535940812" "8481117450"
 [17] "2841027019" "3852110555" "9644622948" "9549303819" "6442881097" "5665933446" "1284756482" "3378678316"
 [25] "5271201909" "1456485669" "2346034861" "0454326648" "2133936072" "6024914127" "3724587006" "6063155881"
 [33] "7488152092" "0962829254" "0917153643" "6789259036" "0011330530" "5488204665" "2138414695" "1941511609"
 [41] "4330572703" "6575959195" "3092186117" "3819326117" "9310511854" "8074462379" "9627495673" "5188575272"
 [49] "4891227938" "1830119491" "2983367336" "2440656643" "0860213949" "4639522473" "7190702179" "8609437027"
 [57] "7053921717" "6293176752" "3846748184" "6766940513" "2000568127" "1452635608" "2778577134" "2757789609"
 [65] "1736371787" "2146844090" "1224953430" "1465495853" "7105079227" "9689258923" "5420199561" "1212902196"
 [73] "0864034418" "1598136297" "7477130996" "0518707211" "3499999983" "7297804995" "1059731732" "8160963185"
 [81] "9502445945" "5346908302" "6425223082" "5334468503" "5261931188" "1710100031" "3783875288" "6587533208"
 [89] "3814206171" "7766914730" "3598253490" "4287554687" "3115956286" "3882353787" "5937519577" "8185778053"
 [97] "2171226806" "6130019278" "7661119590" "9216420198"

推荐阅读