1

発生する順序に基づいてデータに列挙しようとしているイベントがいくつかありますが、別の変数 (この場合Dateは ) に条件付けられていません。だいぶ引っかかった。私の問題は、base-R のみを使用して実行する必要があることです。

これが実際の例です：

df <-
structure(list(Date = c("Sep 02 2012", "Sep 10 2012", "Sep 22 2012", 
"Sep 23 2012", "Sep 23 2012", "Sep 23 2012", "Sep 24 2012", "Sep 24 2012", 
"Sep 24 2012", "Dec 01 2012", "Sep 09 2014", NA), Event = c("005", 
"006", "002", "003", "004", "007", "008", "010", "011", "012", 
"009", "001"), Type = c("IND", "IND", "CON", "OUT", "OUT", "IND", 
"CMA", "ASH", "CON", "ASH", "CMA", "IND")), .Names = c("Date", 
"Event", "Type"), class = "data.frame", row.names = c(13L, 14L, 
10L, 11L, 12L, 15L, 16L, 18L, 19L, 20L, 17L, 9L))

このデータフレームをくれて、

df
          Date Event Type
13 Sep 02 2012   005  IND
14 Sep 10 2012   006  IND
10 Sep 22 2012   002  CON
11 Sep 23 2012   003  OUT
12 Sep 23 2012   004  OUT
15 Sep 23 2012   007  IND
16 Sep 24 2012   008  CMA
18 Sep 24 2012   010  ASH
19 Sep 24 2012   011  CON
20 Dec 01 2012   012  ASH
17 Sep 09 2014   009  CMA
9         <NA>   001  IND

手に入れたいもの、

new.df

       Date    Event Type Num_Type
13 Sep 02 2012   005  IND       1
14 Sep 10 2012   006  IND       2
10 Sep 22 2012   002  CON       1
11 Sep 23 2012   003  OUT       1
12 Sep 23 2012   004  OUT       2
15 Sep 23 2012   007  IND       3
16 Sep 24 2012   008  CMA       1
18 Sep 24 2012   010  ASH       1
19 Sep 24 2012   011  CON       1
20 Dec 01 2012   012  ASH       2
17 Sep 09 2014   009  CMA       2
9         <NA>   001  IND      NA
4

2 に答える 2

2

aveと でこれを行うことができますcumsum：

df$Num_Type <- 1
df$Num_Type <- ave(df$Num_Type, df$Type, FUN=cumsum)
is.na(df$Num_Type) <- which(is.na(df$Date))
于 2012-12-05T21:25:23.083 に答える
1

最初に必要な変数を注文できますdfか? お気に入り：

df <- df[order(df$Event, df$Type),]

それから...

df$Num_Type  <- sequence(rle(as.character(df$Type))$lengths)
于 2012-12-05T21:18:52.280 に答える