每次将另一列的文本更改r恢复为0

Question

在R中，我有一个带有一个时间列的数据框，每当另一列中的文本更改时，我希望将其恢复为一个或零。文本再也没有回到上一段文字。 文本更改的395倍，〜270'000行。

目前表

时间	试验
11	A
12	A
13	B
14	B

表想要

时间	试验
1	A
2	A
2 A 1	B
2	B

Answer 1

1）基本解决方案是：

transform(DF, Time = ave(Time, Trial, FUN = seq_along))

2）另一个基本解决方案是：

transform(DF, Time = 1:nrow(DF) - match(Trial, Trial) + 1)

3）dplyr 我们可以写：

library(dplyr)
DF %>%
  group_by(Trial) %>%
  mutate(Time = 1:n()) %>%
  ungroup

基准测试

基准基础解决方案问题的数据速度要快得多，但建议您使用数据或其中一部分重复此操作。

library(dplyr)
library(microbenchmark)

microbenchmark(
  base1 = transform(DF, Time = ave(Time, Trial, FUN = seq_along)),
  base2 = transform(DF, Time = 1:nrow(DF) - match(Trial, Trial) + 1),
  dplyr = DF %>% group_by(Trial) %>% mutate(Time = 1:n()) %>% ungroup
)
## Unit: microseconds
##   expr     min      lq      mean   median       uq      max neval cld
##  base1   555.8   578.5   654.702   626.95   692.95   1345.7   100  a 
##  base2   308.5   330.2   415.610   391.75   410.30    950.6   100  a 
##  dplyr 11076.4 11354.9 13846.736 11543.80 11751.65 101861.9   100   b

注意

以可重复形式输入。

DF <- structure(list(Time = 11:14, Trial = c("A", "A", "B", "B")), 
  class = "data.frame", row.names = c(NA, -4L))

Answer 2

我们可以分组，然后使用row_number（）

library(dplyr)

df %>% 
  group_by(Trial) %>% 
  mutate(Time = row_number()) %>%
  ungroup()

   Time Trial
  <int> <chr>
1     1 A    
2     2 A    
3     1 B    
4     2 B