R语言入门求助：统计列表中比前一个元素大的元素个数

嘿，我来帮你搞定这个问题～先看看你代码里的几个小问题，然后给你两种实用的解决方案：

你的代码存在的问题 #

• 循环索引越界：当i走到length(value)的时候，value[i+1]就超出了向量的范围，会返回NA，这不仅会触发警告，还会干扰计数结果。循环应该只到length(value)-1就停止。
• 变量作用域与返回值缺失：你在函数外部定义了count，而且函数最后没有返回值，导致调用number(x)后看不到结果。更规范的做法是把计数变量放在函数内部，最后返回它。

修改后的循环版本代码 #

如果你习惯用for循环，可以这样调整：

number <- function(value) {
  count <- 0
  # 循环到倒数第二个元素，避免越界
  for (i in 1:(length(value)-1)) {
    if(value[i+1] > value[i]) {
      count <- count + 1
    }
  }
  return(count)
}

x <- c(1,2,1,1,3,5)
number(x) # 输出3，和预期一致

更简洁的R向量化写法 #

其实R里有更高效的方式，不用写循环，利用diff()函数就能轻松搞定：

x <- c(1,2,1,1,3,5)
sum(diff(x) > 0) # 直接得到结果3

解释一下：diff(x)会计算向量中相邻元素的差值（后一个元素减前一个），diff(x) > 0会生成一个逻辑向量，其中TRUE代表后一个元素比前一个大，最后sum()会把TRUE当作1、FALSE当作0求和，刚好就是你要的数量。

内容的提问来源于stack exchange，提问作者Shawn M.