通过过滤不等于R中的值的子集来创建多个数据框

yiah 发表于 Dev

我有一个带有两列“文本”和“颜色”的数据框。

library(tidyverse)
library(purrr)

# sample dataframe
df <- data.frame(Text = c("text1", "text2", "text3", "text4"), 
                 Colours = c("blue", "white", "green", "yellow"), stringsAsFactors = F)

我需要的是一个数据框，例如，NOT_Blue，其中包括除包含“ blue”的行以外的所有行。换句话说，除了不等于“蓝色”的颜色以外，具有所有颜色的数据框。最后，我想编写这些数据框，如csv文件。

对于一个数据框，使用dplyr::filter和!=（不等于）

not_blue <- df %>% filter(!Colours == "blue")

not_blue
   Text Colours
1 text2   white
2 text3   green
3 text4  yellow

问题是我需要为每种颜色/类别创建一个不同的数据框。

我想我需要使用apply / map系列功能之一。因此，我创建了一个带有颜色的矢量，希望在函数中使用它。

# colours to feed the function
colours <- c("blue", "white", "green", "yellow")

# trying to make a function

remaining_colours <- function(x) {

  df <- df %>% filter(!Colours == x)
}


# using the formula with map_df of purrr
map_df(colours, remaining_colours) %>% arrange(Text)

# epic fail results
Text Colours
1  text1    blue
2  text1    blue
3  text1    blue
4  text2   white
5  text2   white
6  text2   white
7  text3   green
8  text3   green
9  text3   green
10 text4  yellow
11 text4  yellow
12 text4  yellow

您能否为我提供帮助或说明如何针对这种情况进行应用/映射/循环？

提前致谢！

什里

这是使用的方法lapply。这将创建所需数据框的列表。

colours <- c("blue", "white", "green", "yellow")

result <- lapply(colours, function(x) {
             df %>% filter(!Colours == x)
          }) %>% 
          setNames(paste0("NOT_", colours))

result

$NOT_blue
   Text Colours
1 text2   white
2 text3   green
3 text4  yellow

$NOT_white
   Text Colours
1 text1    blue
2 text3   green
3 text4  yellow

$NOT_green
   Text Colours
1 text1    blue
2 text2   white
3 text4  yellow

$NOT_yellow
   Text Colours
1 text1    blue
2 text2   white
3 text3   green

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。