我有一个12行乘17列的数据帧(dat_gs2)。我希望循环遍历两列中的每一行,并使用它们来计算第三列的值。我在下面的代码中遇到的问题是关键字"in“被标记为”意外的token in“。如果我试图运行这段代码,我会得到下面的错误。我不确定问题出在哪里。感谢您的任何帮助
"Error in
[.data.frame
(dat_qs2,i,11):找不到对象'i‘“
LoopIters<-1:12
i=1
For (i in seq_along(LoopIters))
{
if ((dat_qs2[i,11]/dat_qs2[i,13])<.25)
{
dat_qs2[i,14]<-"Low"
next
}
else if((dat_qs2[i,11]/dat_qs2[i,13])<.75)
{
dat_qs2[i,14]<-"Medium"
next
}
else if((dat_qs2[i,11]/dat_qs2[i,13])>=.75)
{
dat_qs2[i,14]<-"High"
next
}
}
发布于 2018-08-15 07:29:18
下面是没有循环的代码:
dat_qs2[ ,14] <- ifelse(dat_qs2[,11]/dat_qs2[,13]<.25, "Low",
ifelse(dat_qs2[,11]/dat_qs2[,13]<.75, "Medium",
"High"))
发布于 2018-08-15 09:14:52
这应该会达到相同的结果。在看不到实际数据的情况下,我假设数据框中的列名。
library("tidyverse") # or library("dplyr")
dat_result <-
dat_qs2 %>%
mutate(newcolumn = ifelse(columnName11 / columnName13 < 0.75, "Medium", "High")
, newcolumn = ifelse(columnName11 / columnName13 < 0.25, "Low", newcolumn)
https://stackoverflow.com/questions/51850840
复制相似问题