英文:
Mutate case_when nested conditional labelling
问题
以下是代码部分的翻译：
# 创建一个新的变量来根据测试表现的变化对每个个体进行分类df2 <- df %>%mutate(test1_rankgroup = case_when(all(test1_rank == "top") ~ "stable(top)",all(test1_rank == "bottom") ~ "stable(bottom)",test1_rank[1] == "top" & test1_rank[2] == "mid" & test1_rank[3] == "bottom" ~ "gradual",test1_rank[1] == "top" & (test1_rank[2] == "bottom" | test1_rank[3] == "bottom") ~ "rapid",TRUE ~ "Other"),test2_rankgroup = case_when(all(test2_rank == "top") ~ "stable(top)",all(test2_rank == "bottom") ~ "stable(bottom)",test2_rank[1] == "top" & test2_rank[2] == "mid" & test2_rank[3] == "bottom" ~ "gradual",test2_rank[1] == "top" & (test2_rank[2] == "bottom" | test2_rank[3] == "bottom") ~ "rapid",TRUE ~ "Other"))
希望这能帮助您完成您的数据处理任务。如果需要进一步的解释或帮助，请随时提问。
英文:
I have a data frame with multiple observations per ID. Each ID has performed many tests and for each test, has been classified into a tertile rank (top, mid, bottom) based on their test performance. This rank can vary at each time point.
Dummy df looks like this:
df <- tibble(ID = c(1,1,1,2,2,2,3,3,3,4,4,4),time = c(1,2,3,1,2,3,1,2,3,1,2,3),test1_rank <- c("top", "top", "top", "top", "mid", "bottom", "bottom", "bottom", "bottom", "top", "bottom", "bottom"),test2_rank <- c("bottom", "bottom", "bottom", "top", "mid", "bottom", "top", "top", "top", "top", "bottom", "bottom"))ID time `test1_rank <- ...` `test2_rank <- ...`<dbl> <dbl> <chr> <chr>1 1 1 top bottom2 1 2 top bottom3 1 3 top bottom4 2 1 top top5 2 2 mid mid6 2 3 bottom bottom7 3 1 bottom top8 3 2 bottom top9 3 3 bottom top10 4 1 top top11 4 2 bottom bottom12 4 3 bottom bottom
I want to create a new variable where I classify each individual based on how their rank changes with time for each test. Specifically, for each test:
- If rank is the same through all three time points, they get a label
"stable" (can be stable(top) or stable(bottom) based on whether the
rank is "top" or "bottom" across all time points). - If the rank changes from top (time 1) to mid (time 2) to bottom (time 3), they
get a label of "gradual". - If rank declines from top (time 1) to
bottom (time 2 and time 3), they get a label of "rapid". - Any other
combination gets the label "Other".
Desired data frame:
df2 <- tibble(ID = c(1,1,1,2,2,2,3,3,3,4,4,4),time = c(1,2,3,1,2,3,1,2,3,1,2,3),test1_rank <- c("top", "top", "top", "top", "mid", "bottom", "bottom", "bottom", "bottom", "top", "bottom", "bottom"),test2_rank <- c("bottom", "bottom", "bottom", "top", "mid", "bottom", "top", "top", "top", "top", "bottom", "bottom"),test1_rankgroup <- c("stable(top)", "stable(top)", "stable(top)", "gradual", "gradual", "gradual", "stable(bottom)", "stable(bottom)", "stable(bottom)", "rapid", "rapid", "rapid"),test2_rankgroup <- c("stable(bottom)", "stable(bottom)", "stable(bottom)", "gradual", "gradual", "gradual", "stable(top)", "stable(top)", "stable(top)", "rapid", "rapid", "rapid"))ID time `test1_rank <- ...` `test2_rank <- ...` `test1_rankgroup <- ...` test2_ra…¹<dbl> <dbl> <chr> <chr> <chr> <chr>1 1 1 top bottom stable(top) stable(bo…2 1 2 top bottom stable(top) stable(bo…3 1 3 top bottom stable(top) stable(bo…4 2 1 top top gradual gradual5 2 2 mid mid gradual gradual6 2 3 bottom bottom gradual gradual7 3 1 bottom top stable(bottom) stable(to…8 3 2 bottom top stable(bottom) stable(to…9 3 3 bottom top stable(bottom) stable(to…10 4 1 top top rapid rapid11 4 2 bottom bottom rapid rapid12 4 3 bottom bottom rapid rapid
What is the easiest way to solve this in dplyr using mutate and case_when?
答案1
得分: 3
You can use mutate与across一起使用，将case_when应用于你的两个排名列。
你的case_when可以使用n_distinct来查看相同的值是否在你的三个时间点保持不变。你还可以为标记的组值的第一个、第二个和第三个值包含特定的逻辑。
.default参数可以用于"其他"情况。.by参数将在ID分组的基础上执行mutate操作。
英文:
You can use mutate with across to apply your case_when to both of your ranked columns.
Your case_when can use n_distinct to see if the same value is held across your 3 time points. You can also include specific logic for 1st, 2nd, and 3rd values for a labelled group value.
The .default argument can be used for "other". The .by argument will perform the mutate grouped by ID.
library(tidyverse)df <- tibble(ID = c(1,1,1,2,2,2,3,3,3,4,4,4),time = c(1,2,3,1,2,3,1,2,3,1,2,3),test1_rank = c("top", "top", "top", "top", "mid", "bottom", "bottom", "bottom", "bottom", "top", "bottom", "bottom"),test2_rank = c("bottom", "bottom", "bottom", "top", "mid", "bottom", "top", "top", "top", "top", "bottom", "bottom"))df %>%mutate(across(-time,~ case_when(n_distinct(.) == 1 ~ paste("stable", .),.[1] == "top" & .[2] == "mid" & .[3] == "bottom" ~ "gradual",.[1] == "top" & .[2] == "bottom" & .[3] == "bottom" ~ "rapid",.default = "other"),.names = "{.col}_group"),.by = ID)
Output
ID time test1_rank test2_rank test1_rank_group test2_rank_group<dbl> <dbl> <chr> <chr> <chr> <chr>1 1 1 top bottom stable top stable bottom2 1 2 top bottom stable top stable bottom3 1 3 top bottom stable top stable bottom4 2 1 top top gradual gradual5 2 2 mid mid gradual gradual6 2 3 bottom bottom gradual gradual7 3 1 bottom top stable bottom stable top8 3 2 bottom top stable bottom stable top9 3 3 bottom top stable bottom stable top10 4 1 top top rapid rapid11 4 2 bottom bottom rapid rapid12 4 3 bottom bottom rapid rapid
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论