如何解决if语句中长度为零的R参数
我有一个df
df <- data.frame(id = c(1,1,2,3,3),year = c(1997,1997,1998,1998),usable = c(TRUE,TRUE,FALSE,FALSE),main = c(TRUE,TRUE))
执行代码时
df$id_year <- interaction(df$id,df$year)
for (i in levels(df$id_year)) {
rows <- df$id_year == i & df$usable
if (!unique(df$main[rows]) {
print("yes")
}
}
if (!unique(df$main[rows])
行出现“长度为0的参数”的错误。谁能解释为什么以及如何解决?谢谢
解决方法
该问题最有可能是由于创建了未使用的levels
,因为默认情况下drop = FALSE
中的interaction
df$id_year <- interaction(df$id,df$year,drop = TRUE)
在循环中,正如其他人提到的,!unique(
并不明确。如果我们检查length
个元素中的unique
个大于0(if (length(unique(df$main[rows])) > 0)
,它将显示“是”
for (i in levels(df$id_year)) {
rows <- df$id_year == i & df$usable
if (length(unique(df$main[rows])) > 0) {
print("yes")
}
}
#[1] "yes"
#[1] "yes"
#[1] "yes"
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。