条件式の設定：日付けが他の日付けから見て、何番目にあたるのか？の条件式

Question

Rにて条件式の設定をしています。下記データを用いています。

事例の様にrank_datea 列に　date_amin の日付けが他のdateから見て何番目に当たるのかの
条件設定をしたいと思っています。
rank_dateaが１になるように設定するのは簡単ですが、他の順位（2番目以降）も抽出できるように設定することに難儀しています。
ご教示いただけますと幸いです。

よろしくお願いいたします。

Answer 1

dplyr を使う場合。

library(dplyr)
library(tibble)

df <- data.frame(
    X = c(1, 2, 3), id = c(1, 2, 4),
    date_amin = c("2020/4/1", "2019/7/14", "2021/12/1"),
    date_bmin = c("2021/4/1", "2018/5/1", "2021/10/1"),
    date_cmin = c("2019/2/8", "2018/7/19", "2022/3/8"),
    date_dmin = c("2022/3/8", "2019/7/29", "2022/5/1"),
    date_dmin.1 = c("2021/3/8", "2021/3/10", "2021/6/3"))

df <- df %>%
    # 名前が "date_" で始まるカラムを Date 型に変換
    mutate(across(starts_with("date_"), ~as.Date(.))) %>%
    # 行単位で処理
    rowwise() %>%
    # 最初の列(date_amin)の順位(ranking)を計算
    mutate(rank_datea = first(dense_rank(c_across(starts_with("date_")))))

df

実行結果

# A tibble: 3 × 8
# Rowwise: 
      X    id date_amin  date_bmin  date_cmin  date_dmin  date_dmin.1 rank_datea
  <dbl> <dbl> <date>     <date>     <date>     <date>     <date>           <int>
1     1     1 2020-04-01 2021-04-01 2019-02-08 2022-03-08 2021-03-08           2
2     2     2 2019-07-14 2018-05-01 2018-07-19 2019-07-29 2021-03-10           3
3     3     4 2021-12-01 2021-10-01 2022-03-08 2022-05-01 2021-06-03           3

Comments

[keikmyo]

解答をいただきまして、ありがとうございます！うまくランク付けすることができました。
もし可能であればc_acrossとacross関数の違いについてご教示いただくことは可能でしょうか？
あとすごく初歩的な質問で恐縮ですが、～の使い方をマスターしておりません。ネットなどで検索してもあまりうまくヒットしないためご教示いただけますと幸いです。よろしくお願いいたします。

[melian]

c_across は rowwise と組み合わせて使う事を前提としていまして、行単位の集計に特化しています。~ にはついては function と同じ意味で、以下の様に書くこともできます。

mutate(across(starts_with("date_"), function(x){as.Date(x)}))

[keikmyo]

丁寧に解説を頂きまして、ありがとうございます。理解が深まりました！

Answer 2

日付データをDateオブジェクトに変換し、order()で順位をつければいいと思います。

df1 <- read.table(header=T, text="
id date_amin rank_datea                  
1 2020/4/1 NA
2 2019/7/14 NA
4 2021/12/1 NA")

print(df1)

df1$rank_datea <- order(strptime(df1$date_amin, "%Y/%m/%d"))

print(df1)