如何在R语言中从序列1:16提取指定元素1、4、8、12、16？

• 先明确目标元素在序列中的位置：对于a <- 1:16，目标元素1、4、8、12、16对应的位置分别是1、4、8、12、16。规律是取首元素，再从第4位开始每隔4个位置提取一个元素。

• 直接提取的代码：

  a <- 1:16
  target <- a[c(1, seq(4, length(a), 4))]
  target
  # 输出结果：1  4  8 12 16
  

• 封装成可复用函数的写法：

  get_target_elements <- function(vec) {
    pos <- c(1, seq(4, length(vec), 4))
    vec[pos]
  }
  
  # 调用函数获取结果
  get_target_elements(a)
  

内容的提问来源于stack exchange，提问作者JayBird