R 如果列表中的关键字

我面临以下问题： 我正在尝试创建一个伪变量，如果团队是top，它将打印1，否则将打印0。顶级球队名单如下：（阿森纳、切尔西、曼城、曼努尼、利物浦） 2015年第二季度原始数据：

                    team       opponent goals home 
HomeTeam         Arsenal Crystal Palace     2    1   
AwayTeam  Crystal Palace        Arsenal     1    0   
HomeTeam1      Leicester        Everton     2    1   
AwayTeam1        Everton      Leicester     2    0   
HomeTeam2     Man United        Swansea     1    1   
AwayTeam2        Swansea     Man United     2    0   

我的目标是创建变量“top”，如果团队在单词列表中，它将放1

                    team       opponent goals home top
HomeTeam         Arsenal Crystal Palace     2    1   1
AwayTeam  Crystal Palace        Arsenal     1    0   0
HomeTeam1      Leicester        Everton     2    1   0
AwayTeam1        Everton      Leicester     2    0   0
HomeTeam2     Man United        Swansea     1    1   1
AwayTeam2        Swansea     Man United     2    0   0

我尝试过的代码是（我知道代码是错误的）：

---

wordlist如果您的数据如下所示

>season_2015 <- read.csv("season_2015.csv")
>season_2015

  home_away           team       opponent goals home
1  HomeTeam        Arsenal Crystal Palace     2    1
2  AwayTeam Crystal Palace        Arsenal     1    0
3 HomeTeam1      Leicester        Everton     2    1
4 AwayTeam1        Everton      Leicester     2    0
5 HomeTeam2     Man United        Swansea     1    1
6 AwayTeam2        Swansea     Man United     2    0

>2015年第四季第四季
主队\客队对手主场进球
1主队阿森纳水晶宫2 1
2阿瓦泰姆水晶宫阿森纳10
3主场1莱斯特埃弗顿2 1
艾弗顿莱斯特2 0
5个主场2人联合斯旺西1 1
斯旺西男子联队2 0

您的顶级团队数据如下所示：

>topteams <- c("Arsenal", "Man City", "Man United", "Liverpool", "Chelsea")

>顶级球队2015赛季$2015赛季顶级球队
主客场球队对手进球居首
1主队阿森纳水晶宫211
2阿瓦泰姆水晶宫阿森纳队100
3个家庭队1莱斯特埃弗顿2 1 0
埃弗顿莱斯特4 AwayTeam1 2 0 0
5名主场队员2名斯旺西联队队员1名
斯旺西男子联队
变量
top
和
2015年第四季
是什么样子的？您好，我已经编辑了您现在应该可以看到的问题
>topteams <- c("Arsenal", "Man City", "Man United", "Liverpool", "Chelsea")

>season_2015$top <- ifelse(season_2015$team %in% topteams, 1, 0)
>season_2015

  home_away           team       opponent goals home top
1  HomeTeam        Arsenal Crystal Palace     2    1   1
2  AwayTeam Crystal Palace        Arsenal     1    0   0
3 HomeTeam1      Leicester        Everton     2    1   0
4 AwayTeam1        Everton      Leicester     2    0   0
5 HomeTeam2     Man United        Swansea     1    1   1
6 AwayTeam2        Swansea     Man United     2    0   0