r - 添加基于其他值的列

Question

我有一个包含数百万行和三列标记为关键字、展示次数、点击次数的数据框。我想根据此函数的评估添加一个带有值的列:

isType <- function(Impressions, Clicks)
{ 
if (Impressions >= 1 & Clicks >= 1){return("HasClicks")} else if (Impressions >=1 & Clicks == 0){return("NoClicks")} else {return("ZeroImp")}
}

到目前为止，一切都很好。然后我尝试用它来创建列，但 1)它需要永远和 2)它标记所有行都有“HasClicks”，即使是那些不应该的行。

# Creates a dataframe
Type <- data.frame()
# Loops until last row and store it in data.frame
for (i in c(1:dim(Mydf)[1])) {Type <- rbind(Type,isType(Mydf$Impressions[i], Mydf$Clicks[i]))}
# Add the column to Mydf
Mydf <- transform(Mydf, Type = Type)

输入数据:

关键字、展示次数、点击次数
“你好”,0,0
"世界",1,0
"R",34,23

想要的输出:

关键字、展示次数、点击次数、类型
"你好",0,0,"ZeroImp"
"世界",1,0,"NoClicks"
"R",34,23,"点击次数"

Answer 1

基于 Joshua 的解决方案，我发现在一次拍摄中生成 Type 更清晰(但请注意，这假定 Clicks >= 0 ...)

Mydf$Type = ifelse(Mydf$Impressions >= 1,
    ifelse(Mydf$Clicks >= 1, 'HasClicks', 'NoClicks'), 'ZeroImp')