子集警告：较长的对象长度不是较短的对象长度的倍数

Question

出乎意料的是，当我使用subset（）时，我已经开始收到警告消息：

以下是可重现的示例：

demo <- data.frame(country = c("USA", "Albania", "Turkey", "China", "Sudan"),
                   democracy_score = c(19, 16, 16, 5, 10))

demo2 <- subset(demo,demo$democracy_score==16)

警告：

longer object length is not a multiple of shorter object length

这从来没有发生过，我不明白我在做什么错。最后，我将在运行每条命令后在控制台中生成这些警告的列表，具体取决于我加载了多少个子集数据帧。用％in％替换==没有帮助。