2017-06-07 29 views
0
df1 

Date 
2014-01-01 01:01:00 
2014-01-01 01:02:00 
2014-01-01 01:03:00 

df2 
Date      **name** 
2014-01-01 01:01:00  **p1** 
2014-01-01 01:03:00  **p1** 
2014-01-01 01:01:00  **p2** 
2014-01-01 01:02:00  **p2** 

我々が得るにはどうすればよい分02は、私が試してみましたP2DFと一致しない行を抽出する方法を

ための「P1」および03のために不足しているとDF2すなわち 時系列から欠落行コード

a=merge(x = df1, y = df2, by = "Date", all.x = TRUE) 

のみmissind日付

O/P

を得て、以下の
+1

あなたが少し良くあなたの質問にコードをフォーマットすることはできますか? – smacdonald

答えて

1

事前

ありがとうございます試すことができますので、それをより読みやすいです

library(tidyverse) 
df2 %>% 
    semi_join(df1, by="Date") %>% 
    group_by(Date) %>% 
    filter(n() < 2) %>% 
    mutate(Miss=ifelse(name== "p1", "p2", "p1")) 
Source: local data frame [2 x 3] 
Groups: V1 [2] 

       Date name Miss 
       <fctr> <fctr> <chr> 
1 2014-01-01 01:02:00  p2 p1 
2 2014-01-01 01:03:00  p1 p2 
+0

ありがとうございますjimbou、N個の行と名前がある場合にコード化する方法 – snr999

+0

上記と同じコードにする必要があります。質問を編集することで、さらに多くの行の例を提供してください。 'dput(head(df1,20))'と 'dput(head(df2,20))'の出力を貼り付けると、 – Jimbou

関連する問題