r - R 中 seq() 中缺少最后一个序列

Question

我有这个示例数据

by<-200
to<-seq(from=by,to=35280,by=by)

问题是 to结束于 35200 并忽略我需要作为最后一个值参与的最后 80。
有没有直接的方法来实现它？
我试过 along.with和 length.out参数，但我不能通过。

Answer 1

您可以为向量的最后一个元素放置 if 语句，例如在以下函数中:

seqlast <- function (from, to, by) 
{
  vec <- do.call(what = seq, args = list(from, to, by))
  if ( tail(vec, 1) != to ) {
    return(c(vec, to))
  } else {
    return(vec)
  }
}

然后

by <- 200
to <- seqlast(from=by,to=35280,by=by)

将返回

> head(to)
[1]  200  400  600  800 1000 1200
> tail(to)
[1] 34400 34600 34800 35000 35200 35280