experiment1_rename<-experiment1 %>%
group_by(filename,actor) %>% ##把变量filename和actor一样的人分为同一组
mutate(participant= cur_group_id()) ##对每组人进行相同编码,并在新数据框experiment1_rename加上一列participant变量
arrange(experiment1_rename,experiment1_rename$participant)##可以对编码进行排序