r - 如何使用R计算向量中的重复元素

Question

我需要编写一个在 R 中接收 2 个参数的函数：首先是一个数字 = X，其次是一个向量 = V 我需要这个函数返回 X 的相同直接出现的最大数量，例如：f(6, c(7, 6,6,3,7,9,3,6,6,6,8,9) 应该返回 3

score 1 · Accepted Answer

你可能不需要函数

dat <- c(7,6,6,3,7,9,3,6,6,6,8,9)

fmax <- function(x, vec){
  v <- rle(vec)
  max(v$lengths[v$values == x])
}
fmax(x=6, vec=dat)
[1] 3

当 x 不在 dat 中时

fmax <- function(x, vec){
  if(x %in% vec){
    v <- rle(vec)
    max(v$lengths[v$values == x])
  } else 0
}
fmax(x=20, vec=dat)
[1] 0

score 0 · Accepted Answer

r <- numeric()
j <- 0
X <- 6
for(i in 1:length(V){
j <- ifelse(v[i]==X,j+1,0)
r[i] <- j
}

max(r)

如果你想拥有向量中所有元素的最大长度：

a <- c(7,6,6,3,7,9,3,6,6,6,8,9)
b <- rle(a)
b <- data.frame(length=b$lengths, values=b$values)
aggregate(b, by=list(b$values), FUN=max)

2 回答 2