web-dev-qa-db-fra.com

Comment filtrer une trame de données

J'ai un bloc de données et j'ai essayé de sélectionner uniquement les observations qui m'intéressent:

data[data["Var1"]>10]

Malheureusement, cette commande détruit le data.frame structure et renvoie un long vector.

Ce que je veux, c'est le data.frame raccourci par les observations qui ne correspondent pas à mes critères.

rfilterr-faq
26
Mike

Vous manquez une virgule dans votre déclaration.

Essaye ça:

data[data[, "Var1"]>10, ]

Ou:

data[data$Var1>10, ]

Ou:

subset(data, Var1>10)

Par exemple, essayez-le sur le jeu de données intégré, mtcars

data(mtcars)

mtcars[mtcars[, "mpg"]>25, ]

                mpg cyl  disp  hp drat    wt  qsec vs am gear carb
Fiat 128       32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1
Honda Civic    30.4   4  75.7  52 4.93 1.615 18.52  1  1    4    2
Toyota Corolla 33.9   4  71.1  65 4.22 1.835 19.90  1  1    4    1
Fiat X1-9      27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1
Porsche 914-2  26.0   4 120.3  91 4.43 2.140 16.70  0  1    5    2
Lotus Europa   30.4   4  95.1 113 3.77 1.513 16.90  1  1    5    2


mtcars[mtcars$mpg>25, ]

                mpg cyl  disp  hp drat    wt  qsec vs am gear carb
Fiat 128       32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1
Honda Civic    30.4   4  75.7  52 4.93 1.615 18.52  1  1    4    2
Toyota Corolla 33.9   4  71.1  65 4.22 1.835 19.90  1  1    4    1
Fiat X1-9      27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1
Porsche 914-2  26.0   4 120.3  91 4.43 2.140 16.70  0  1    5    2
Lotus Europa   30.4   4  95.1 113 3.77 1.513 16.90  1  1    5    2

subset(mtcars, mpg>25)

                mpg cyl  disp  hp drat    wt  qsec vs am gear carb
Fiat 128       32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1
Honda Civic    30.4   4  75.7  52 4.93 1.615 18.52  1  1    4    2
Toyota Corolla 33.9   4  71.1  65 4.22 1.835 19.90  1  1    4    1
Fiat X1-9      27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1
Porsche 914-2  26.0   4 120.3  91 4.43 2.140 16.70  0  1    5    2
Lotus Europa   30.4   4  95.1 113 3.77 1.513 16.90  1  1    5    2
68
Andrie

Une autre méthode utilisant le package dplyr:

library(dplyr)
df <- mtcars %>%
        filter(mpg > 25)

Sans l'opérateur de chaîne (%>%):

library(dplyr)
df <- filter(mtcars, mpg > 25)
5
Mark Wagner