Commande subset et sélection d'un data frame

Version imprimable

01/11/2012, 18h37
1echoes

Commande subset et sélection d'un data frame
Bonjour à tous,

Je débute avec le langage R et je souhaiterais faire quelque chose de très simple.

Je dispose d'un data frame de mesures associées à une date :
Code:

1 2 3 4 5 Date, Site1, Site2, Site3, ....., Site20 01/01/2012, NA, NA, 50,18,....3 02/01/2012, NA, NA, 10, 3,.....2 03/01/2012, 11,12,15,......1 etc...
Je souhaiterais constituer un sous-tableau pour une condition vérifiée, par exemple, qu'une des mesures soit supérieure à 100 (entre autre, sélectionner la ligne si une des mesures est supérieure à 100)
J'utilise la commande subset :

Code:

data_seuil_100=subset(data, Site1>100 | Site2>100 | Site2>100 ......Site20>100)

Comment l'écrire en raccourci ?

Code:

data_seuil_100=subset(data, data[,2:20]>100)

Mais cela ne marche pas....il faut peut-être écrire une boucle ?

Merci de vos conseils éclairés.

Bonjour,

Voici une façon de faire avec apply, mais il en existe surement d'autres :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
> df <- data.frame(date = c("01/01/2012", "02/01/2010", "03/01/2010"), Site1 = c(NA, 10, 3), Site2 = c(3, 26, NA), Site3 = c(22, NA, NA), Site4 = c(19, 7, 2))
> df
        date Site1 Site2 Site3 Site4
1 01/01/2012    NA     3    22    19
2 02/01/2010    10    26    NA     7
3 03/01/2010     3    NA    NA     2
> df2 <- df[apply(df[c("Site1", "Site2", "Site3", "Site4")], 1 ,function(x) any(x > 20)),]
> df2
         date Site1 Site2 Site3 Site4
1  01/01/2012    NA     3    22    19
2  02/01/2010    10    26    NA     7
NA       <NA>    NA    NA    NA    NA
> df3 <- subset(df2, !is.na(df2$date))
> df3
        date Site1 Site2 Site3 Site4
1 01/01/2012    NA     3    22    19
2 02/01/2010    10    26    NA     7
>

Dans mon exemple, je n'ai pris que 4 sites, mais dans le apply, vous pouvez en mettre autant que vous souhaitez.

04/11/2012, 17h00
1echoes

Bonjour,

Merci de votre réponse, c'est exactement ce qu'il me fallait,