有没有什么函数可以使用seq(from = )中的多个值来生成一个数字向量?

例如,我想生成一个从1:350的数字向量,增量为7.输出应为

sort(c(seq(1, 50, 7), seq(2, 50, 7), seq(3, 50, 7)))
[1]  1  2  3  8  9 10 15 16 17 22 23 24 29 30 31 36 37 38 43 44 45 50

目前我用sapply包在1:3左右,我觉得这不是很优雅.

sort(unlist(sapply(1:3, \(x) seq(x, 50, 7))))

推荐答案

这是一个使用sequence()的矢量化版本.

不需要循环.:)

seqv <- function(from, to, by = 1){
  sequence( ((to - from) / by) + 1, from = from, by = by)
}

sort(seqv(1:3, 50, 7))
[1]  1  2  3  8  9 10 15 16 17 22 23 24 29 30 31 36 37 38 43 44 45 50

R相关问答推荐

如何将具有重复名称的收件箱合并到R中的另一列中,而结果不同?

多个ggpredicate对象的平均值

在特定列上滞后n行,同时扩展框架的长度

如果列中存在相同的字符串,则对行值进行总和

ggplot2中的X轴显示数值,单位为百,而不是十

如何编辑gMarginal背景以匹配绘图背景?

使用较长的查询提取具有部分匹配的列表中的较短目标,

如何在R中描绘#符号?

在R中,我如何使用滑动窗口计算位置,然后进行过滤?

减go R中列表的所有唯一元素对

我是否可以使用多个变异项来构建顺序列(标记多个问题)

创建在文本字符串中发现两个不同关键字的实例的数据框

数值型数据与字符混合时如何进行绑定

如何显示准确的p值而不是<;0.001*?

在ggplot2图表中通过端点连接点

如何使投篮在R中保持一致

排序R矩阵的行和列

Package emMeans:如果emmip模型中包含的变量较少,emMeans模型中的其他变量设置为什么?

删除r中每个因素级别的最后2行

reshape 数据帧-基于组将行转换为列