请各位帮忙看一下，我的问题如下，首先我的数据如下
id <- rep(letters[1:3],5)
year <- seq(2001,2005)
ceo <- sample(LETTERS, 15, replace = T)
cfo <- sample(LETTERS, 15, replace = T)

df <- data.frame(id,year, ceo, cfo)

df <- arrange(df,id,year)

数据大概是这个样子：


我想做的是在这个数据里加进一列，dummy，如果某年某个id的cfo恰巧是另一个id相同年份的ceo，那么dummy为1，其他情况为0。我上边举得这个数据的例子不太好，数据里没有这种情况。如果把上边数据改一下，2005年id c的cfo是H，那么2005年id c这一行的dummy应该是1，因为同一年，2005年这一年id b的ceo恰巧是H。2004年id a这一行的dummy也是0，因为同一个id同一个年份ceo和cfo一样，dummy不算1，必须是和同一年份其他id的ceo相同才算1.