2017-06-24 88 views
0

我看到類似的後https://stackoverflow.com/questions/6104836/splitting-a-continuous-variable-into-equal-sized-groups。但我的問題在於,範圍必須是一個字符串。下面 是我的數據幀將連續變量轉換爲R中的離散值(字母數字)。範圍是字母數字

df 
name salary bonus increment(%) 
AK 22200 120 2 
BK 55000 34 .1 
JK 12000 400 3 
VK 3400 350 15 
DK 5699 NA NA 

df = structure(list(name = c("AK", "BK", "JK", "VK", "DK"), salary = c(22200L, 55000L, 12000L, 3400L, 5699L), bonus = c(120L, 34L, 400L, 350L, NA), `increment(%)` = c(2, 0.1, 3, 15, NA)), .Names = c("name", "salary", "bonus", "increment(%)"), row.names = c(NA, -5L), class = "data.frame") 

工資列需要與像"< 10K""10K-20K"的範圍內進行修改,"20K-30K""> 30K"這些值是字母數字未在cut by defined interval

name salary bonus increment(%) 
AK 20K-30K 120 2 
BK >30K  34 .1 
JK 10K-20K 400 3 
VK <10K  350 15 
DK <10K  NA NA 

尋址然而,使用後由R定義的時間間隔沒有產生所期望的結果切割,下面是代碼 df$salary<-cut(df$salary,breaks = c(0,10000,20000,30000,60000),include.lowest = TRUE)

輸出是

name  salary bonus increment(%) 
    1 AK (2e+04,3e+04] 120   2.0 
    2 BK (3e+04,6e+04] 34   0.1 
    3 JK (1e+04,2e+04] 400   3.0 
    4 VK  [0,1e+04] 350   15.0 
    5 DK  [0,1e+04] NA   NA 
+0

夥計們這不是一個重複的問題,這裏的範圍基本上是一個字母數字值。 – Anurodh

回答

1

可以使用case_when函數從dplyr包。 df2是最終的輸出。

library(dplyr) 

df2 <- df %>% 
    mutate(salary = case_when(
    salary < 10000     ~ "<10K", 
    salary >= 10000 & salary < 20000 ~ "10K-20K", 
    salary >= 20000 & salary < 30000 ~ "20K-30K", 
    salary >= 30000     ~ ">30K", 
    TRUE        ~ "NA" 
)) 
+0

謝謝,case_when似乎很適合這種情況。只是,使用TWIK。在我的工作室 - [R在case_when工資infornt $它拋出一個錯誤,因爲無法找到薪水變量。 – Anurodh