条件帮助 ifelse 语句

Question

对于数据集，我们有以下分段等式：

tenure_new == tenure iftenure <= exper 
tenure_new == exper iftenure> exper

所以我写的代码是：

tenure_new <- ifelse(wage2$tenure <= wage2$exper,wage2$tenure, wage2$exper)

我们想得到平均值，但我们得到的答案没有被接受——不知道还能做什么。

我不想要答案，只是一些关于我可能会忽略的方向。

这里是问题问题：

Answer 1

有多种方法可以做到这一点。但为了简单起见，我将展示带有 base R 的传统 for 循环方法，带有 base R 的 mapply 方法，并分享 tidyverse 方法。

基本 R 方法 - 使用 for 循环

library(wooldridge)

data(wage2)

# Traditional solution
# Make new variable
wage2$tenure_new<- NA

for(i in 1:length(wage2$tenure)){
  if(wage2$tenure[i]<= wage2$exper[i]){
    wage2$tenure_new[i]<- wage2$tenure[i]
  }else{
    wage2$tenure_new[i]<- wage2$exper[i]
  }
}

# mean of tenure_new
round(mean(wage2$tenure_new),2)
# Output> [1] 6.51

Base R 方法-使用mapply

代码量非常少，但如果您不太了解 R，则很难阅读。

round(mean(mapply(function(x,y) if(x<=y){x}else{y},x=wage2$tenure,y=wage2$exper)),2)

tidyverse接近

（实际上你可以单独使用dplyr 包，但我个人更喜欢完整加载tidyverse。）

library(tidyverse)

wage2 %>% 
  transmute(tenure_new=ifelse(tenure<=exper,tenure,exper)) %>% 
  colMeans() %>% 
  round(2)

# Output> tenure_new 
#               6.51