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的值，因爲您沒有指定在這種情況下想要發生的事情。