[Rcode]构造函数把数据中某项状态的持续时间转化为新的向量

TOMOCAT

于 2017-11-30 22:18:53 发布

阅读量1.9w

点赞数

分类专栏： Rcode

本文链接：https://blog.csdn.net/TOMOCAT/article/details/78681728

版权

Rcode 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一个使用R语言编写的函数countDurationTime，该函数能够接收一个向量作为输入，并返回每个元素及其出现的连续次数。适用于数据分析场景中对序列数据进行频率统计的需求。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

countDurationTime <- function(x){
  # Examples: x <- c('A', 'A', 'A', 'B', 'B', 'C')
  #> countDurationTime(x)
  #   items freq
  #   1     A    3
  #   2     B    2
  #   3     C    1
  if (length(x) <=1 ){
    return('The length of input vector should be greater than 2.')
  } else {   
    current <- x[1]
    frequency <- data.frame(items=NULL, freq=NULL, stringsAsFactors=FALSE)##构造一个空的数据框
    for (i in 2:length(x)) {
      if (x[i] %in% current) {
        current <- c(current, x[i])
      } else {
        tmp <- data.frame(items=current[1], freq=length(current), stringsAsFactors=FALSE)
        frequency <- rbind(frequency, tmp)#注意这里rbind合并起来多个数据
        current <- x[i]
      } 
    }
    tmp <- data.frame(items=current[1], freq=length(current), stringsAsFactors=FALSE)
    frequency <- rbind(frequency, tmp)  #针对最后一次合并
  }
  return(frequency)
}

x<-c(1,1,1,2,3,4,4,4,4,5,5,6,6,6,6)
countDurationTime(x)