Headquarter::ME

Publish

Data

Raw Dataset:

Dirtyness:

  1. numeric gender
  2. 带引号中文名

survey unfortunate scoring (bukanti,meizhuyiwenfafanle)

 Xue_All_Disease <-
  Xue_All_Disease |>
    mutate(绿色饮食意识 = case_when( Status == "No" & 饮食意识 <= 7 ~ 18 - 饮食意识,
                                     Status == "No" & 饮食意识 > 7 ~ 饮食意识,
                                     Status == "Yes" ~ 饮食意识), .after = 饮食意识) |>
    
    mutate(绿色进食的分心程度 = case_when( Status == "No" & 进食的分心程度 <= 8 ~ 24 - 进食的分心程度,
                                           Status == "No" & 进食的分心程度 > 8 ~ 进食的分心程度,
                                           Status == "Yes" ~ 进食的分心程度), .after = 进食的分心程度)