那有哪些角色出现在了第一部,却在后边某些版本没出现呢。
show_in_all <- Reduce(intersect, lapply(series, "[", 1))
setdiff(filter(series_full, 版本 == "三國志1")$姓名, show_in_all$姓名)
这里分析错了吧?
只出现在第一版本,后续版本没有出现,应该是第一个版本的英雄与后10个版本的英雄做比较,而不是与11个版本都出现的英雄做比较吧?
代码应该是:
seriesByOne <- filter(seriesAll, 版本 == "三國志1")$姓名
seriesExcOne <- filter(seriesAll, 版本 != "三國志1")$姓名
hero_only_ver_one = setdiff(seriesByOne, seriesExcOne)
执行后是空,说明第一个版本的英雄在后续版本都出现了
seriesByOne <- filter(seriesAll, 版本 == "三國志1")$姓名
seriesExcOne <- filter(seriesAll, 版本 != "三國志1")$姓名
hero_only_ver_one = setdiff(seriesByOne, seriesExcOne)
hero_only_ver_one
character(0)