gpt4 book ai didi

string - 有没有更快的方法将字符串拆分为给定长度的子字符串?

转载 作者:行者123 更新时间:2023-12-05 04:17:53 28 4
gpt4 key购买 nike

我有一些列宽度固定的天气数据,但长度取决于变量(见下文,来自 GHCN 的数据,http://www1.ncdc.noaa.gov/pub/data/ghcn/daily/readme.txt)。

我想将它们拆分成一个 data.frame 并按照@GSee ( How to split a string into substrings of a given length? ) 的建议编写了一些代码。但是处理 6000 行大约需要 4.3 秒。

有没有更快的方法来处理这个数据集?

感谢您的任何建议。

temp <- readLines(textConnection("NO000050550193801TMAX   53  I   51  I   10  I   22  I   56  I   31  I   30  I   24  I   38  I   25  I    2  I   32  I   75  I   71  I   98  I   96  I   57  I   55  I   54  I   60  I   91  I   75  I   94  I   82  I   89  I   46  I   26  I   68  I   62  I   46  I   37  I
NO000050550193801TMIN 25 I -6 I -27 I 0 I 3 I -14 I -8 I 11 I 10 I -11 I -30 I -23 I 22 I 38 I 47 I 33 I 13 I 5 I 10 I 29 I 42 I 45 I 51 I 44 I 35 I 5 I -16 I -20 I 5 I 2 I 5 I
NO000050550193802TMAX 69 I 58 I 71 I 90 I 77 I 70 I 56 I 46 I 58 I 32 I 32 I 22 I 25 I 30 I 29 I 29 I 34 I 88 I 58 I 50 I 45 I 62 I 38 I 40 I 59 I 112 I 92 I 77 I-9999 -9999 -9999
NO000050550193802TMIN 11 I 26 I 16 I 35 I 44 I 21 I 19 I 22 I 20 I 6 I 6 I -16 I -22 I -39 I -28 I -35 I -33 I -21 I -13 I 15 I 26 I 17 I -1 I 9 I 18 I 38 I 58 I 28 I-9999 -9999 -9999
NO000050550193803TMAX 81 I 84 I 89 I 86 I 86 I 74 I 54 I 74 I 83 I 64 I 75 I 77 I 66 I 91 I 82 I 84 I 89 I 84 I 94 I 85 I 82 I 89 I 74 I 84 I 81 I 58 I 72 I 58 I 86 I 84 I 89 I
NO000050550193803TMIN 31 I 25 I 29 I 45 I 61 I 20 I 9 I 8 I 38 I 31 I 9 I 39 I 27 I 56 I 48 I 65 I 45 I 54 I 46 I 42 I 43 I 36 I 56 I 61 I 15 I -2 I -11 I -2 I 12 I 30 I 24 I"))

temp <- rep(temp, 1000)
system.time({

out <- strsplit(temp, '')
out <- as.matrix(do.call(rbind, out))
pos_matrix <- matrix(c(12, 16, 18, seq(0, 30) * 8 + 22,
15, 17, 21, seq(0, 30) * 8 + 26), ncol = 2)
out <- apply(out, 1, function(x)
{
apply(pos_matrix, 1, function(y)
paste(x[y[1]:y[2]], collapse = ''))
})
})

user system elapsed
4.46 0.01 4.52

编辑 Ananda Mahto 评论:

system.time({
pos_matrix <- matrix(c(12, 16, 18, seq(0, 30) * 8 + 22,
15, 17, 21, seq(0, 30) * 8 + 26), ncol = 2)
pos_matrix <- lapply(seq(1, nrow(pos_matrix)), function(x)
{
sprintf('substr(V1, %s, %s) f%s',
pos_matrix[x,1], pos_matrix[x,2], x)
})
pos_matrix <- paste(pos_matrix, collapse = ', ')
out <- data.frame(V1 = temp)

out <- sqldf(sprintf('select %s from out', pos_matrix))
})

user system elapsed
0.4 0.0 0.4

根据 jlhoward 的建议进行编辑:

system.time({
pos_matrix <- matrix(c(12, 16, 18, seq(0, 30) * 8 + 22,
15, 17, 21, seq(0, 30) * 8 + 26), ncol = 2)
out <- apply(pos_matrix, 1, function(x)
{
substr(temp, x[1], x[2])
})
})
user system elapsed
0.04 0.00 0.04

最佳答案

分析您的代码 (?Rprof) 表明 2/3 的执行时间花费在 paste(...) 上,这并不奇怪。看起来您正在将输入分解为单个字符,然后根据 pos_matrix(...) 重新组合它们。将 substr(...) 与具有起始位置和长度的矩阵一起使用可能更有效。

编辑:添加代码以实现上述建议

vec <- as.vector(temp)
pos_matrix <- matrix(c(12, 16, 18, seq(0, 30) * 8 + 22,
15, 17, 21, seq(0, 30) * 8 + 26), ncol = 2)
pos <- t(pos_matrix)
system.time(
out <- do.call(rbind,list(apply(pos,2,function(x){substr(vec,x[1],x[2])})))
)
# user system elapsed
# 0.09 0.00 0.09

关于string - 有没有更快的方法将字符串拆分为给定长度的子字符串?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/20667086/

28 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com