Question

我有一个分组数据框，如下所示：

df <- data.frame(group = rep(1:4, each=3),
                 lets = rep(LETTERS[1:4], times=3))

对于每一行，我现在想要识别除行本身的lets之外的同一组中的所有lets。使用dplyr我可以获得所有 lets：

df %>%
  group_by(group) %>%
  mutate(all_lets_in_group = paste(lets, collapse=','))

但是，如何将当前行的lets排除在paste()之外？

Answer 1

此任务的目的不是很清楚，因此代码清晰度因此受到影响，但仍然存在：

library(tidyverse)

df %>%
  group_by(group) %>%
  mutate(
    all_lets_in_group = lets %>% 
      map(function(l) setdiff(., l)) %>%
      map_chr(function(x) paste(x, collapse=',')))

使用set operation setdiff从组中减去purrr::map提供的当前字母，然后使用paste重新格式化矢量列表并返回为字符向量。< / p>

Answer 2

不确定dplyr解决方案，但您可以使用lapply。

df$all_lets_in_group <- lapply(1:nrow(df), function(x) 
    paste(with(df, lets[group == group[x] & lets != lets[x]]), collapse = ','))

Answer 3

使用ave，sapply和setdiff的另一个基础R方法

ave(df$lets, df$group,
    FUN=function(i) sapply(i, function(j) paste(setdiff(i, j), collapse=",")))
 [1] "B,C" "A,C" "A,B" "A,B" "D,B" "D,A" "D,A" "C,A" "C,D" "C,D" "B,D" "B,C"

所有组成员，但当前行

3 个答案: