在创建的数据帧中选择突变列1字段2可变数据帧

Question

ifelse(status %in% target.marker_b, "Bad",
       ifelse(status %in% target_g, "Good", "N/A")

df$status_rank <- df %>% 
  select(status, status_rank) %>%
     mutate(status_rank = ifelse(status %in% target.marker_b, "Bad",
       ifelse(status %in% target_g, "Good", "N/A")))

df["status_rank"] <- "N/A"

然后对status_rank进行mutate操作，将其突变为2个观察点。需要更好的方法来创建一个新列并应用ifelse（状态%在%target.marker_b中，“bad”，ifelse（状态%在%target_g中，“good”，“n/a”）。寻找建议。

数据:dput(df$status)

"Current", "Fully Paid", "Current", "Fully Paid", "Charged Off", "Current", "Current", "Fully Paid", "Current", "Fully Paid", "Charged Off", "Late (31-120 days)", "Current", "Fully Paid", "Current", "Fully Paid", "Charged Off", "Current", "Current", "Fully Paid", "Late (31-120 days)", "Fully Paid", "Charged Off", "Current"

Answer 1

如果没有一个可复制的示例，要理解您所讨论的内容会有点困难，但是dplyr中的case_when函数可能会让您感兴趣：

# Untested code (as no sample data was given)

library(dplyr)

df %>% 
  mutate(status_rank = case_when(
    status %in% target.marker_b ~ "Bad",
    status %in% target_g ~ "Good",
    TRUE ~ "N/A" # Default condition to catch other cases
  ))

如果需要na值而不是字符“n/a”，则不需要默认条件。不满足任何条件的行将被赋予值NA_character_。

即

df %>% 
  mutate(status_rank = case_when(
    status %in% target.marker_b ~ "Bad",
    status %in% target_g ~ "Good"
  ))