Calcola il rapporto tra le colonne in base alle condizioni in R

Question

Ciao Sto facendo una cosa molto semplice qui.

Ho 3 colonne di dati; a, b e c. Voglio calcolare il rapporto tra B e C, quando il valore di b è solo maggiore di 5.

Il codice che ho usato è il seguente:

a <- c(1,2,3,4,5,6,7,8) 
b <- c(2,4,5,8,10,12,15,18) 
c <- c (10,9,8,15,31,12,13,12) 

df <- data.frame(a,b,c) 
## Calculate the ratio 
df$d <- with(df,b/c) 

ho calcolato il rapporto, ma non sono riuscito a utilizzare il condizione lì. So che è banale, ma ci vuole molto tempo. Apprezzo il vostro aiuto.

Answer 1

È possibile utilizzare ifelse. Tu non dici quello che vuoi che il risultato sia nei casi in cui B è inferiore a 5, così ho assunto che si desidera NA ci .:

> df$d <- with(df, ifelse(b > 5, b/c, NA)) 
> df 
    a b c   d 
1 1 2 10  NA 
2 2 4 9  NA 
3 3 5 8  NA 
4 4 8 15 0.5333333 
5 5 10 31 0.3225806 
6 6 12 12 1.0000000 
7 7 15 13 1.1538462 
8 8 18 12 1.5000000 

Answer 2

È possibile sottoinsieme valori per df$d e all'interno della funzione with() .

df$d[df$b>5] <- with(df[df$b>5,],b/c) 
df 
    a b c   d 
1 1 2 10  NA 
2 2 4 9  NA 
3 3 5 8  NA 
4 4 8 15 0.5333333 
5 5 10 31 0.3225806 
6 6 12 12 1.0000000 
7 7 15 13 1.1538462 
8 8 18 12 1.5000000 

Answer 3

avevo prima calcolare il rapporto, e quindi assegnare NA ai valori in cui b < 5:

df = within(df, { d = b/c }) 
df$d[df$b <= 5] <- NA 

> df 
    a b c   d 
1 1 2 10  NA 
2 2 4 9  NA 
3 3 5 8  NA 
4 4 8 15 0.5333333 
5 5 10 31 0.3225806 
6 6 12 12 1.0000000 
7 7 15 13 1.1538462 
8 8 18 12 1.5000000 

Answer 4

Penso che transform è più elegante qui :) (leggermente diverso di soluzione @Ananda)

transform(df, d= ifelse(b > 5, b/c, NA)) 
    a b c   d 
1 1 2 10  NA 
2 2 4 9  NA 
3 3 5 8  NA 
4 4 8 15 0.5333333 
5 5 10 31 0.3225806 
6 6 12 12 1.0000000 
7 7 15 13 1.1538462 
8 8 18 12 1.5000000