Odstranění/vedení jednotlivých sloupců na základě z jejich obsahu v R

Question 1

df:Tam jsou ve skutečnosti tisíce obě varianty a IDs

     variant1 variant2 variant3 variant4
ID1   0/0         0/0      0/0     0
ID2   0/0         0/0      0/0     0
ID3   0/0         0/0      1/1     0
ID4   0/0         0/0      0/0     1
ID5   0/1         0/0      0/0     0

Požadovaný výsledek:

     variant1 variant2 variant3 variant4


ID3   0/0         0/0      1/1     0
ID4   0/0         0/0      0/0     1
ID5   0/1         0/0      0/0     0

Chtěl bych jen, aby řádky, pokud mají 0/1, 1/1 nebo 1 v nich.

Snažil jsem se dt[grepl(0/1", df),] pro každou iteraci, ale nezdá se do práce.

Je tam základ R nebo data.tabulka způsob, jak to udělat?

Question 2

Můžeme použít if_any z dplyr

library(dplyr)
dt %>%
    filter(if_any(everything(), ~ . %in% c("0/1", "1/1", "1")))

-výstup

    variant1 variant2 variant3 variant4
ID3      0/0      0/0      1/1        0
ID4      0/0      0/0      0/0        1
ID5      0/1      0/0      0/0        0

Nebo pomocí base R

dt[ Reduce(`|`, lapply(dt, `%in%`, c("0/1", "1/1", "1"))),]

-výstup

    variant1 variant2 variant3 variant4
ID3      0/0      0/0      1/1        0
ID4      0/0      0/0      0/0        1
ID5      0/1      0/0      0/0        0

Stejnou volbu lze použít v data.table

library(data.table)
setDT(dt)[dt[, Reduce(`|`, lapply(.SD, `%in%`, c("0/1", "1/1", "1")))]]

údaje

dt <- structure(list(variant1 = c("0/0", "0/0", "0/0", "0/0", "0/1"
), variant2 = c("0/0", "0/0", "0/0", "0/0", "0/0"), variant3 = c("0/0", 
"0/0", "1/1", "0/0", "0/0"), variant4 = c("0", "0", "0", "1", 
"0")), row.names = c("ID1", "ID2", "ID3", "ID4", "ID5"), class = "data.frame")

akrun · Answer 1 · 2021-11-22T17:16:10

Můžeme použít if_any z dplyr

library(dplyr)
dt %>%
    filter(if_any(everything(), ~ . %in% c("0/1", "1/1", "1")))

-výstup

    variant1 variant2 variant3 variant4
ID3      0/0      0/0      1/1        0
ID4      0/0      0/0      0/0        1
ID5      0/1      0/0      0/0        0

Nebo pomocí base R

dt[ Reduce(`|`, lapply(dt, `%in%`, c("0/1", "1/1", "1"))),]

-výstup

    variant1 variant2 variant3 variant4
ID3      0/0      0/0      1/1        0
ID4      0/0      0/0      0/0        1
ID5      0/1      0/0      0/0        0

Stejnou volbu lze použít v data.table

library(data.table)
setDT(dt)[dt[, Reduce(`|`, lapply(.SD, `%in%`, c("0/1", "1/1", "1")))]]

údaje

dt <- structure(list(variant1 = c("0/0", "0/0", "0/0", "0/0", "0/1"
), variant2 = c("0/0", "0/0", "0/0", "0/0", "0/0"), variant3 = c("0/0", 
"0/0", "1/1", "0/0", "0/0"), variant4 = c("0", "0", "0", "1", 
"0")), row.names = c("ID1", "ID2", "ID3", "ID4", "ID5"), class = "data.frame")

Díky za čas odpovědět, to fungovalo opravdu dobře. Co znamená to "|" funkci ve Snížení říct? Dělá ".SD" v datech.stůl průměr platí pro celou tabulku?
@takrolimu Na | je NEBO provozovatele. To kontroly pro elementwise NEBO v každý vektor ze seznamu výstup lapply a vrátí jeden vektor TRUE/FALSE. tedy pokud tam je jediná PRAVDA ve stejné pozici, vrací TRUE, jinak FALSE. 2) .SD - podmnožina údajů.tabulka. Pokud nebudeme specifikovat, něco v .SDcolsto bude trvat celé sloupce

Odstranění/vedení jednotlivých sloupců na základě z jejich obsahu v R

Otázka

Nejlepší odpověď

údaje

V jiných jazycích

Tato stránka je v jiných jazycích

Populární v této kategorii

Oblíbené položky v této kategorii