根据另一个向量的值创建一个升序数字向量

Question

我有一个名为 my_df 的数据框，其中包含以下信息：

Id_user Id_log Condition
123     a      day
124     a      day
125     a      night
126     b      day
127     b      day
130     c      night

我想根据 Id_log 出现的次数创建一个新列。例如：

Id_user Id_log Condition Id_log_user
123     a      day       1
124     a      day       2
125     a      night     3
126     b      day       1
127     b      day       2
130     c      night     1

我尝试过使用 dplyr 函数进行计数：

counts_id_log<-my_df %>% group_by(id_log) %>% 计数(id_log)

counts_id_log 看起来像：

id_log n
a      3
b      2
c      1

然后我可以使用 id_log 作为向量，然后根据 id_log 的值创建一个升序数字向量。例如：

x<- counts_id_log$n

基于 x 我正在尝试创建以下向量：

y<- c(1,2,3,1,2,1)

之后我可以将 y 向量添加到原始数据框。我尝试了一些 rep 但没有很好的结果。任何建议将不胜感激。我希望这是清楚的。

Answer 1

如果我没理解错的话，你可以进行以下操作

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

unlist(sapply(x, function(x) 1:x))
# [1] 1 2 1 2 1 2 3 4 1 2 3 4 5 1 1 2 1 2 3 1 2 3 4 5

或避免显式 function

unlist(sapply(x, seq, from = 1))

identical(as.numeric(unlist(sapply(x, function(x) 1:x))), y)
#[1] TRUE

Answer 2

修改后

library(dplyr)
df%>%group_by(Id_log)%>%mutate(Id_log_user=row_number())

Answer 3

使用这个自定义函数，它应该会做你想做的事：

CountNumber <- function(x) ave(seq_along(x), x, FUN=seq_along) 
my_df$count <- CountNumber(my_df$Id_log)

我之前问过这个问题，有人给了我这个答案，但我找不到原始答案。

根据另一个向量的值创建一个升序数字向量

Create a vector of ascending numbers based on the value of another vector

numbers

r

vector

rep