比较一列中的两行 R

Question

我想比较 R 中两行一列中列出的值。 行通过 ID 变量标识。 我想生成一个新变量，告诉我两个值中的哪一个低于另一个。 这里有一个例子：

value   id   new_var
    1    1     lower
    2    1    higher
    5    2    higher
    3    2     lower
   10    3     lower
   11    3    higher
    2    4     lower
    1    4    higher

谢谢！

Answer 1

如果每组有两个以上的元素，则进行分组，并使用ifelse/case_when创建条件以创建“new_var”

library(dplyr)
df1 %>% 
  group_by(id) %>% 
  mutate(new_var = case_when(value == max(value) ~ "higher",
      TRUE ~ "lower")) %>% 
  ungroup
# A tibble: 8 × 3
  value    id new_var
  <int> <int> <chr>  
1     1     1 lower  
2     2     1 higher 
3     5     2 higher 
4     3     2 lower  
5    10     3 lower  
6    11     3 higher 
7     2     4 higher 
8     1     4 lower  

---

一个选项也是arrange ，然后使用rep按顺序创建一个新列（假设每个 id 有 2 个元素）

df1 %>%
  arrange(id, value) %>% 
  mutate(new_var = rep(c("lower", "higher"), length.out = n()))

数据

df1 <- structure(list(value = c(1L, 2L, 5L, 3L, 10L, 11L, 2L, 1L), id = c(1L, 
1L, 2L, 2L, 3L, 3L, 4L, 4L)), row.names = c(NA, -8L), class = "data.frame")

Answer 2

我们可以使用以min为条件value ifelse语句来mutate new_var ：

library(dplyr)
df %>% 
  group_by(id) %>% 
  mutate(new_var = ifelse(value == min(value), "lower", NA_character_)) %>%
  ungroup()

    value    id new_var
  <int> <int> <chr>  
1     1     1 lower  
2     2     1 NA     
3     5     2 NA     
4     3     2 lower  
5    10     3 lower  
6    11     3 NA     
7     2     4 NA     
8     1     4 lower