问个比较复杂的问题，情各位帮忙

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请各位帮忙看一下，我的问题如下，首先我的数据如下
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.

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：请各位帮忙 我的问题

1. check=function(row){
   
2.   select=subset(df,id!=row["id"] & year==row["year"] & ceo==row["cfo"])
   
3.   if(dim(select)[1]==0) return(0) else return(1)
   
4. }
   
5. dummy=apply(df,1,check)
   
6. cbind(df,dummy)

复制代码

fdsasdfddsa 发表于 2018-9-26 15:18

谢谢！就是这个！