Seleccione las columnas que tiene un valor específico en los datos.tabla

Question 1

Ejemplo mínimo:

dt <- data.table(a=c(1,2,3),b=c(4,5,6))

Que se parece a:

>  dt
   a b
1: 1 4
2: 2 5
3: 3 6

Supongamos que quiero índice de la columna donde hay una 6 valor, en este juguete ejemplo, es fácil, ya que sabemos de la columna:

> dt[,.(b)]
   b
1: 4
2: 5
3: 6

Ahora lo que si esta dt tenía varios miles de columnas y no sabríamos donde el 6 mentiras.

He intentado esto:

> dt[,.SD==6]
         a     b
[1,] FALSE FALSE
[2,] FALSE FALSE
[3,] FALSE  TRUE

y esto:

> dt[,lapply(.SD,`==`,6)]
       a     b
1: FALSE FALSE
2: FALSE FALSE
3: FALSE  TRUE

y también que:

> dt[,lapply(.SD,function(x) any(x==6))]
       a    b
1: FALSE TRUE

Pero no puedo conseguir el original de la columna de la espalda:

   b
1: 4
2: 5
3: 6

Question 2

dt[, colSums(dt == 6) > 0, with = FALSE]
#    b
# 1: 4
# 2: 5
# 3: 6

Question 3

Esperemos que haya una solución más elegante, pero mientras tanto:

dt[,sapply(dt, function(x) any(x == 6)), with=F]

   b
1: 4
2: 5
3: 6

He aquí una rápida referencia, ya que los datos.de la tabla se utiliza a menudo para la velocidad:

n=1000000
dt = data.table(V1 = round(runif(n) * 100), V2 = round(runif(n) * 100) ,V3 = round(runif(n) * 100), V4 = round(runif(n) * 100), V5 = round(runif(n) * 100), V6 = round(runif(n) * 100))

bench = microbenchmark::microbenchmark(
    user438383 = dt[,sapply(dt, function(x) any(x == 6)), with=F],
    Wimpel = dt[, colSums(dt == 6) > 0, with = FALSE],
    times = 10000
    )

Wimpel · Answer 1 · 2021-11-23T09:59:49

dt[, colSums(dt == 6) > 0, with = FALSE]
#    b
# 1: 4
# 2: 5
# 3: 6

user438383 · Answer 2 · 2021-11-23T10:44:14

Esperemos que haya una solución más elegante, pero mientras tanto:

dt[,sapply(dt, function(x) any(x == 6)), with=F]

   b
1: 4
2: 5
3: 6

He aquí una rápida referencia, ya que los datos.de la tabla se utiliza a menudo para la velocidad:

n=1000000
dt = data.table(V1 = round(runif(n) * 100), V2 = round(runif(n) * 100) ,V3 = round(runif(n) * 100), V4 = round(runif(n) * 100), V5 = round(runif(n) * 100), V6 = round(runif(n) * 100))

bench = microbenchmark::microbenchmark(
    user438383 = dt[,sapply(dt, function(x) any(x == 6)), with=F],
    Wimpel = dt[, colSums(dt == 6) > 0, with = FALSE],
    times = 10000
    )

Seleccione las columnas que tiene un valor específico en los datos.tabla

Pregunta

Mejor respuesta

En otros idiomas

Esta página está en otros idiomas

Popular en esta categoría

Las preguntas más habituales en esta categoría