したがって、次のようなデータフレームがあります。
ID Initialdate Finaldate
1405 2003-12-03 2010-12-07
7044 2004-12-08 2011-10-13
7219 2008-05-16 2009-06-04
18618 2004-06-17 2012-02-13
19900 2005-06-01 2008-06-11
20138 2010-01-20 2010-01-20
29067 2003-04-30 2004-09-10
33546 2003-11-25 2008-10-10
37321 2003-06-07 2006-03-20
43028 2004-09-23 2008-07-25
43591 2005-04-06 2005-11-15
46749 2005-02-28 2005-05-16
48846 2005-08-02 2005-08-02
114353 2002-05-17 2006-10-26
128180 2004-06-17 2010-06-21
128648 2003-05-07 2009-07-23
133337 2004-05-26 2012-07-26
149181 2002-10-19 2008-07-27
214079 2003-09-26 2007-05-20
215060 2006-04-17 2011-08-17
229816 2007-04-25 2011-09-24
238123 2007-11-26 2012-01-31
253776 2006-03-02 2012-04-19
258660 2010-03-25 2012-04-09
265356 2002-04-22 2002-04-22
次のコードを使用して、最終日と最初の日付の違いを含む 4 番目の列を作成し、そのようにクリーンアップしました。
df$Duration<-(difftime(df$Finaldate, df$Initialdate, units = "days"))
df$Duration<-as.numeric(df$Duration, units = "days")
次の出力が得られ、満足しています。
ID Initialdate Finaldate Duration
1405 2003-12-03 2010-12-07 2561.00000
7044 2004-12-08 2011-10-13 2499.95833
7219 2008-05-16 2009-06-04 384.00000
18618 2004-06-17 2012-02-13 2797.04167
19900 2005-06-01 2008-06-11 1106.00000
20138 2010-01-20 2010-01-20 0.00000
29067 2003-04-30 2004-09-10 499.00000
33546 2003-11-25 2008-10-10 1780.95833
37321 2003-06-07 2006-03-20 1017.04167
43028 2004-09-23 2008-07-25 1401.00000
43591 2005-04-06 2005-11-15 223.04167
46749 2005-02-28 2005-05-16 76.95833
48846 2005-08-02 2005-08-02 0.00000
114353 2002-05-17 2006-10-26 1623.00000
128180 2004-06-17 2010-06-21 2195.00000
128648 2003-05-07 2009-07-23 2269.00000
133337 2004-05-26 2012-07-26 2983.00000
149181 2002-10-19 2008-07-27 2108.00000
214079 2003-09-26 2007-05-20 1332.00000
215060 2006-04-17 2011-08-17 1948.00000
229816 2007-04-25 2011-09-24 1613.00000
238123 2007-11-26 2012-01-31 1527.00000
253776 2006-03-02 2012-04-19 2239.95833
258660 2010-03-25 2012-04-09 746.00000
265356 2002-04-22 2002-04-22 0.00000
ここからの私の計画は、期間データ、特に 180 日未満のものをベクトル化し、その新しいデータフレームを使用して、次のようなコードを使用して初期データフレームからそれらの ID 番号を削除することでした: df_final<-df[!(df$ID %in% unqualified$ID),]
. ただし、次のようにすると:
unqualified<-(df[df$Duration <= '179.000',])
次の出力が得られますが、これは間違いなく正しくありません。
ID Initialdate Finaldate Duration
19900 2005-06-01 2008-06-11 1106.000
20138 2010-01-20 2010-01-20 0.000
33546 2003-11-25 2008-10-10 1780.958
37321 2003-06-07 2006-03-20 1017.042
43028 2004-09-23 2008-07-25 1401.000
48846 2005-08-02 2005-08-02 0.000
114353 2002-05-17 2006-10-26 1623.000
214079 2003-09-26 2007-05-20 1332.000
229816 2007-04-25 2011-09-24 1613.000
238123 2007-11-26 2012-01-31 1527.000
265356 2002-04-22 2002-04-22 0.000
おそらく、持続時間の数値に問題があったためだと思いましたが、実行するsapply(unqualified, class)
と数値としてリストされ、 sapply(unqualified, mode)
. また、コーディングの早い段階で、正しいことを確認するために strptime を使用して日付を変換したことにも言及する必要があります。私は問題を理解しようと検索しましたが、すべてがMillhouseに近づいています...どんな助けもいただければ幸いです