r - 如何从给定序列生成序列

Question

我正在尝试生成一个序列

例如如下所示::

> s
[1]  1  5  7 10 

>s.Generated_Seq 
[1]  1 2 9 10 13 14 19 20 

> s
[1]  2 5 7 10 

>s.Generated_Seq 
[1]  3 4 9 10 13 14 19 20 

注意：当序列从 1 开始时，其生成的序列应仅从 1 开始，如果序列从 2 或 6 或 15 或任何数字开始，则生成的序列应是该数字的倍数。

Answer 1

我们可以创建一个函数，它以 avector作为输入参数并根据描述的逻辑返回转换后的输出

f1 <- function(vec){
  if(vec[1]==1) {  #if the first element is 1
   #append the first element with the twice multiplied other elements
      c(vec[1], 2*vec[-1]) 
   #or else just multiply the vector with the first element
  } else vec*vec[1]
 }

f1(v1)
#[1]  1 10 14 20

f1(v2)
#[1]  4 10 14 20

数据

v1 <- c(1, 5, 7, 10)
v2 <- c(2, 5, 7, 10)

Answer 2

v1 <- c(1, 5, 7, 10)
v2 <- c(2, 5, 7, 10)

ifelse(rep(v1[1],length(v1))==1,c(v1[1],2*v1[-1]), 2*v1)
# [1]  1 10 14 20

ifelse(rep(v2[1],length(v2))==1,c(v2[1],2*v2[-1]), 2*v2)
# [1]  4 10 14 20

做rep(v2[1],length(v2))而不是做的原因v2[1]==1是它ifelse返回一个与“测试”长度相同的值。所以我们基本上做与向量长度相同的测试次数，这样我们就可以返回完整的向量ifelse