編集:例:
FIPS Date Counts
1001 Jan_22 0
1003 Jan_22 1
1004 Jan_22 0
1001 Jan_23 1
1003 Jan_23 5
1004 Jan_23 0
1001 Jan_24 6
1003 Jan_24 10
1004 Jan_24 1
1001 Jan_25 8
1003 Jan_25 12
1004 Jan_25 3
Result:
FIPS Date Counts
1001 Jan_23 1
1003 Jan_22 1
1004 Jan_24 1
私は、米国のさまざまな郡でのCovid-19の最初の症例からの日数を見つけようとしています。その郡で確認された1つのケースの最初の発生を見つけてから、Rに各FIPSコードについて、1つのケースで確認された最初の日がいつだったかを教えてもらう必要があります。私は3141の郡すべてをやっています。日付はJan_22からApril_30までです。
Edit3:そして観測数は314200で、3つの変数があります。
t.first <- data_long[match(unique(data_long$Counts, data_long$Counts))]`
t.firstを使用して、そのデータの最初のオカレンスを取得しようとしています。
行をどこに保持しCounts > 0
てから、それぞれについてFIPS
最初の行を選択できます。
library(dplyr)
df %>%
filter(Counts > 0) %>%
group_by(FIPS) %>%
slice(1L)
# FIPS Date Counts
# <int> <chr> <int>
#1 1001 Jan_23 1
#2 1003 Jan_22 1
#3 1004 Jan_24 1
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加