我有公司董事的数据集。例如，对于X公司在2005年，他们有3位董事。因此对于x公司在2005年有三个观察结果。每个导演都有一个唯一的ID。现在，我只想过滤那些今年的董事和前一年的董事相同的观察结果（它们的整体是相同的；如果今年的成员包括1个新成员，而前几年的2个老成员；我不希望这些观察结果） ）。每个导演都有一个唯一的ID。另外，每个公司都有一个唯一的ID，例如ISIN。
仅一家公司的数据集看起来像这样-
ISIN year DirectorName DirectorID
1 US9898171015 2006 Thomas (Tom) E Davin 2247441792
2 US9898171015 2006 Matthew (Matt) L Hyde 4842568996
3 US9898171015 2007 James (Jim) M Weber 3581636766
4 US9898171015 2007 Matthew (Matt) L Hyde 4842568996
5 US9898171015 2007 David (Dave) M DeMattei 759047198
6 US9898171015 2008 James (Jim) M Weber 3581636766
7 US9898171015 2008 Matthew (Matt) L Hyde 4842568996
8 US9898171015 2008 David (Dave) M DeMattei 759047198
9 US9898171015 2009 William (Bill) Milroy Barnum Jr 20462211719
10 US9898171015 2009 James (Jim) M Weber 3581636766
11 US9898171015 2009 Matthew (Matt) L Hyde 4842568996
12 US9898171015 2009 David (Dave) M DeMattei 759047198
13 US9898171015 2010 William (Bill) Milroy Barnum Jr 20462211719
14 US9898171015 2010 James (Jim) M Weber 3581636766
15 US9898171015 2010 Matthew (Matt) L Hyde 4842568996
16 US9898171015 2011 Sarah (Sally) Gaines McCoy 11434863691
17 US9898171015 2011 William (Bill) Milroy Barnum Jr 20462211719
18 US9898171015 2011 James (Jim) M Weber 3581636766
19 US9898171015 2011 Matthew (Matt) L Hyde 4842568996
20 US9898171015 2012 Sarah (Sally) Gaines McCoy 11434863691
21 US9898171015 2012 Ernest R Johnson 40425210975
22 US9898171015 2013 Sarah (Sally) Gaines McCoy 11434863691
23 US9898171015 2013 Ernest R Johnson 40425210975
24 US9898171015 2013 Travis D Smith 53006212569
25 US9898171015 2014 Sarah (Sally) Gaines McCoy 11434863691
26 US9898171015 2014 Ernest R Johnson 40425210975
27 US9898171015 2014 Travis D Smith 53006212569
28 US9898171015 2015 Kalen F Holmes 11051172801
29 US9898171015 2015 Sarah (Sally) Gaines McCoy 11434863691
30 US9898171015 2015 Ernest R Johnson 40425210975
31 US9898171015 2015 Travis D Smith 53006212569
32 US9898171015 2016 Sarah (Sally) Gaines McCoy 11434863691
33 US9898171015 2016 Ernest R Johnson 40425210975
34 US9898171015 2016 Travis D Smith 53006212569
35 US9898171015 2017 Sarah (Sally) Gaines McCoy 11434863691
36 US9898171015 2017 Scott Andrew Bailey 174000000000
37 US9898171015 2017 Ernest R Johnson 40425210975
38 US9898171015 2017 Travis D Smith 53006212569
我尝试了这些代码
endo <- ac %>%
group_by(ISIN) %>%
filter(DirectorID == lag (DirectorID, 1))
使用上面的代码后，我得到了以下结果。
ISIN year DirectorName DirectorID
1 US9898171015 2007 Matthew (Matt) L Hyde 4842568996
2 US9898171015 2008 James (Jim) M Weber 3581636766
3 US9898171015 2008 Matthew (Matt) L Hyde 4842568996
4 US9898171015 2008 David (Dave) M DeMattei 759047198
5 US9898171015 2009 James (Jim) M Weber 3581636766
6 US9898171015 2009 Matthew (Matt) L Hyde 4842568996
7 US9898171015 2009 David (Dave) M DeMattei 759047198
8 US9898171015 2010 William (Bill) Milroy Barnum Jr 20462211719
9 US9898171015 2010 James (Jim) M Weber 3581636766
10 US9898171015 2010 Matthew (Matt) L Hyde 4842568996
11 US9898171015 2011 William (Bill) Milroy Barnum Jr 20462211719
12 US9898171015 2011 James (Jim) M Weber 3581636766
13 US9898171015 2011 Matthew (Matt) L Hyde 4842568996
14 US9898171015 2012 Sarah (Sally) Gaines McCoy 11434863691
15 US9898171015 2013 Sarah (Sally) Gaines McCoy 11434863691
16 US9898171015 2013 Ernest R Johnson 40425210975
17 US9898171015 2014 Sarah (Sally) Gaines McCoy 11434863691
18 US9898171015 2014 Ernest R Johnson 40425210975
19 US9898171015 2014 Travis D Smith 53006212569
20 US9898171015 2015 Sarah (Sally) Gaines McCoy 11434863691
21 US9898171015 2015 Ernest R Johnson 40425210975
22 US9898171015 2015 Travis D Smith 53006212569
23 US9898171015 2016 Sarah (Sally) Gaines McCoy 11434863691
24 US9898171015 2016 Ernest R Johnson 40425210975
25 US9898171015 2016 Travis D Smith 53006212569
26 US9898171015 2017 Sarah (Sally) Gaines McCoy 11434863691
27 US9898171015 2017 Ernest R Johnson 40425210975
28 US9898171015 2017 Travis D Smith 53006212569
如果手动检查了第一个数据（使用代码之前的数据），则显然只有2007年和2008年；与2013年和2014年的董事会组成相同。所以我只希望这些观察。
，但是第二个数据（使用代码后的数据）未产生预期的结果。
预期结果在这里-
ISIN year DirectorName DirectorID
1 US9898171015 2007 James (Jim) M Weber 3581636766
2 US9898171015 2007 Matthew (Matt) L Hyde 4842568996
3 US9898171015 2007 David (Dave) M DeMattei 759047198
4 US9898171015 2008 James (Jim) M Weber 3581636766
5 US9898171015 2008 Matthew (Matt) L Hyde 4842568996
6 US9898171015 2008 David (Dave) M DeMattei 759047198
7 US9898171015 2013 Sarah (Sally) Gaines McCoy 11434863691
8 US9898171015 2013 Ernest R Johnson 40425210975
9 US9898171015 2013 Travis D Smith 53006212569
10 US9898171015 2014 Sarah (Sally) Gaines McCoy 11434863691
11 US9898171015 2014 Ernest R Johnson 40425210975
12 US9898171015 2014 Travis D Smith 53006212569
感谢您的帮助。
答案 0 :(得分：1)
这很冗长，可能效率很低，但是可以使用嵌套的数据帧完成这项工作。
library(dplyr)
library(purrr)
library(readr)
library(tidyr)
"ROW,ISIN,YEAR,DIRECTOR_NAME,DIRECTOR_ID
1,US9898171015,2006,Thomas (Tom) E Davin,2247441792
2,US9898171015,2006,Matthew (Matt) L Hyde,4842568996
3,US9898171015,2007,James (Jim) M Weber,3581636766
4,US9898171015,2007,Matthew (Matt) L Hyde,4842568996
5,US9898171015,2007,David (Dave) M DeMattei,759047198
6,US9898171015,2008,James (Jim) M Weber,3581636766
7,US9898171015,2008,Matthew (Matt) L Hyde,4842568996
8,US9898171015,2008,David (Dave) M DeMattei,759047198
9,US9898171015,2009,William (Bill) Milroy Barnum Jr,20462211719
10,US9898171015,2009,James (Jim) M Weber,3581636766
11,US9898171015,2009,Matthew (Matt) L Hyde,4842568996
12,US9898171015,2009,David (Dave) M DeMattei,759047198
13,US9898171015,2010,William (Bill) Milroy Barnum Jr,20462211719
14,US9898171015,2010,James (Jim) M Weber,3581636766
15,US9898171015,2010,Matthew (Matt) L Hyde,4842568996
16,US9898171015,2011,Sarah (Sally) Gaines McCoy,11434863691
17,US9898171015,2011,William (Bill) Milroy Barnum Jr,20462211719
18,US9898171015,2011,James (Jim) M Weber,3581636766
19,US9898171015,2011,Matthew (Matt) L Hyde,4842568996
20,US9898171015,2012,Sarah (Sally) Gaines McCoy,11434863691
21,US9898171015,2012,Ernest R Johnson,40425210975
22,US9898171015,2013,Sarah (Sally) Gaines McCoy,11434863691
23,US9898171015,2013,Ernest R Johnson,40425210975
24,US9898171015,2013,Travis D Smith,53006212569
25,US9898171015,2014,Sarah (Sally) Gaines McCoy,11434863691
26,US9898171015,2014,Ernest R Johnson,40425210975
27,US9898171015,2014,Travis D Smith,53006212569
28,US9898171015,2015,Kalen F Holmes,11051172801
29,US9898171015,2015,Sarah (Sally) Gaines McCoy,11434863691
30,US9898171015,2015,Ernest R Johnson,40425210975
31,US9898171015,2015,Travis D Smith,53006212569
32,US9898171015,2016,Sarah (Sally) Gaines McCoy,11434863691
33,US9898171015,2016,Ernest R Johnson,40425210975
34,US9898171015,2016,Travis D Smith,53006212569
35,US9898171015,2017,Sarah (Sally) Gaines McCoy,11434863691
36,US9898171015,2017,Scott Andrew Bailey,174000000000
37,US9898171015,2017,Ernest R Johnson,40425210975
38,US9898171015,2017,Travis D Smith,53006212569
" %>%
read_csv() %>%
group_by(ISIN, YEAR) %>%
nest(.key = "OTHER_DATA") %>%
group_by(ISIN) %>%
mutate(OTHER_DATA_LAG = lag(OTHER_DATA, 1),
OTHER_DATA_LEAD = lead(OTHER_DATA, 1),
KEEP = pmap(list(OTHER_DATA_LAG, OTHER_DATA, OTHER_DATA_LEAD), function(x, y, z) {
isTRUE(all_equal(x["DIRECTOR_ID"], y["DIRECTOR_ID"])) ||
isTRUE(all_equal(y["DIRECTOR_ID"], z["DIRECTOR_ID"]))
})) %>%
filter(unlist(KEEP)) %>%
select(-OTHER_DATA_LAG, -OTHER_DATA_LEAD, -KEEP) %>%
unnest() %>%
ungroup()
答案 1 :(得分：0)
似乎您要尝试的是识别重复发生的时间。您可能想要
a <- c(1,2,2,3)
a == lag(a)
在3处为TRUE，在其他地方为FALSE。但事实并非如此，这是怎么回事？
lag的问题在此博客文章https://heuristically.wordpress.com/2012/10/29/lag-function-for-data-frames/
博客文章具有更复杂的版本，但是对于您的需求，以下可能就足够了：
mylag <- function(v) { c(NA, head(v, -1)) }
a == mylag(a)