R Zastosuj() funkcja na konkretnych kolumnach kolumny danych

Question

Chcę użyć funkcji stosowania na ramce danych, ale stosuję tę funkcję tylko w ostatnich 5 kolumnach.

B<- by(wifi,(wifi$Room),FUN=function(y){apply(y, 2, A)}) 

Dotyczy to na wszystkich kolumnach y

B<- by(wifi,(wifi$Room),FUN=function(y){apply(y[4:9], 2, A)}) 

ten stosuje się tylko do kolumn 4-9 y, ale całkowity powrót B Odcina pierwsze 3 kolumny ... Nadal tego chcę, po prostu nie chcę, żeby A się do nich stosował.

wifi[,1:3]+B 

również nie robi tego, czego oczekiwałem/chciałem.

Answer 1

Korzystanie z funkcji przykład data.frame i przykład (tylko +1 do wszystkich wartości)

A <- function(x) x + 1 
wifi <- data.frame(replicate(9,1:4)) 
wifi 

# X1 X2 X3 X4 X5 X6 X7 X8 X9 
#1 1 1 1 1 1 1 1 1 1 
#2 2 2 2 2 2 2 2 2 2 
#3 3 3 3 3 3 3 3 3 3 
#4 4 4 4 4 4 4 4 4 4 

data.frame(wifi[1:3], apply(wifi[4:9],2, A)) 
#or 
cbind(wifi[1:3], apply(wifi[4:9],2, A)) 

# X1 X2 X3 X4 X5 X6 X7 X8 X9 
#1 1 1 1 2 2 2 2 2 2 
#2 2 2 2 3 3 3 3 3 3 
#3 3 3 3 4 4 4 4 4 4 
#4 4 4 4 5 5 5 5 5 5 

lub nawet:

data.frame(wifi[1:3], lapply(wifi[4:9], A)) 
#or 
cbind(wifi[1:3], lapply(wifi[4:9], A)) 

# X1 X2 X3 X4 X5 X6 X7 X8 X9 
#1 1 1 1 2 2 2 2 2 2 
#2 2 2 2 3 3 3 3 3 3 
#3 3 3 3 4 4 4 4 4 4 
#4 4 4 4 5 5 5 5 5 5 

Answer 2

lapply jest chyba lepszym wyborem niż apply tutaj, jak zastosować najpierw wymusza na twoją tablicę data.frame, co oznacza, że ​​wszystkie kolumny muszą mieć ten sam typ. W zależności od kontekstu może to mieć niezamierzone konsekwencje.

Wzór jest:

df[cols] <- lapply(df[cols], FUN) 

Wektor 'cols' mogą być nazwami zmiennych lub indeksów. Wolę używać nazw, jeśli tylko jest to możliwe (jest odporny na zmianę kolejności kolumn). Więc w twoim przypadku może to być:

wifi[4:9] <- lapply(wifi[4:9], A) 

przykład używania nazwy kolumn:

wifi <- data.frame(A=1:4, B=runif(4), C=5:9) 
wifi[c("B", "C")] <- lapply(wifi[c("B", "C")], function(x) -1 * x)