Я хочу создать накопительный счетчик количества раз, когда каждое значение появляется.
например скажем, у меня есть столбец:
id
1
2
3
2
2
1
2
3
Это станет:
id count
1 1
2 1
3 1
2 2
2 3
1 2
2 4
3 2
так далее...
Спасибо
dplyr способ:
library(dplyr)
foo <- data.frame(id=c(1, 2, 3, 2, 2, 1, 2, 3))
foo <- foo %>% group_by(id) %>% mutate(count=row_number())
foo
# A tibble: 8 x 2
# Groups: id [3]
id count
<dbl> <int>
1 1 1
2 2 1
3 3 1
4 2 2
5 2 3
6 1 2
7 2 4
8 3 2
Это заканчивается группировкой по id. Если вы хотите, чтобы он не был сгруппирован, добавьте %>% ungroup().
Функция ave вычисляет функцию по группе.
> id <- c(1,2,3,2,2,1,2,3)
> data.frame(id,count=ave(id==id, id, FUN=cumsum))
id count
1 1 1
2 2 1
3 3 1
4 2 2
5 2 3
6 1 2
7 2 4
8 3 2
Я использую id==id для создания вектора всех значений TRUE, которые преобразуются в числовые при передаче в cumsum. Вы можете заменить id==id на rep(1,length(id)).
Вот способ получить счетчики:
id <- c(1,2,3,2,2,1,2,3)
sapply(1:length(id),function(i)sum(id[i]==id[1:i]))
Что дает вам:
[1] 1 1 1 2 3 2 4 2
Фрейм данных, который у меня был, был слишком большим, и принятый ответ продолжал падать. Это сработало для меня:
library(plyr)
df$ones <- 1
df <- ddply(df, .(id), transform, cumulative_count = cumsum(ones))
df$ones <- NULL
Для полноты добавление пути data.table:
library(data.table)
DT <- data.table(id = c(1, 2, 3, 2, 2, 1, 2, 3))
DT[, count := seq(.N), by = id][]
Выход:
id count
1: 1 1
2: 2 1
3: 3 1
4: 2 2
5: 2 3
6: 1 2
7: 2 4
8: 3 2
Функция для получения совокупного количества любого массива, включая нечисловой массив:
cumcount <- function(x){
cumcount <- numeric(length(x))
names(cumcount) <- x
for(i in 1:length(x)){
cumcount[i] <- sum(x[1:i]==x[i])
}
return(cumcount)
}
