if statement and mutate

Question

EMPLTOT_N FIRMTOT average min 
12289593 4511051 5 1 
26841282 1074459 55 10 
15867437 81243 300 100 
6060684 8761 750 500 
52366969 8910 1000 1000 
137003 47573 5 1 
226987 10372 55 10 
81011 507 300 100 
23379 52 750 500 
13698 42 1000 1000 
67014 20397 5 1 

我的数据看起来像上面的数据。我想创建一个使用发生变异函数，新列EMP：

emp= average*FIRMTOT if EMPLTOT_N/FIRMTOT<min 
and emp=EMPLTOT_N if EMPLTOT_N/FIRMTOT>min 

Answer 1

在您的样本数据EMPLTOT_N/FIRMTOT不会比min少，但这应该工作：

df <- read.table(text = "EMPLTOT_N FIRMTOT average min 
12289593 4511051 5 1 
26841282 1074459 55 10 
15867437 81243 300 100 
6060684 8761 750 500 
52366969 8910 1000 1000 
137003 47573 5 1 
226987 10372 55 10 
81011 507 300 100 
23379 52 750 500 
13698 42 1000 1000 
67014 20397 5 1", header = TRUE) 

library('dplyr') 
mutate(df, emp = ifelse(EMPLTOT_N/FIRMTOT < min, average * FIRMTOT, EMPLTOT_N)) 

在上面，如果EMPLTOT_N/FIRMTOT == min，emp将被赋予EMPLTOT_N的值，因为您没有指定在这种情况下想要发生的事情。