R Áp dụng() trên các cột dữ liệu cụ thể

Question

Tôi muốn sử dụng hàm áp dụng trên một khung dữ liệu, nhưng chỉ áp dụng hàm cho 5 cột cuối cùng.

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

này áp dụng từ A đến tất cả các cột của y

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

này áp dụng A chỉ để cột 4-9 của y, nhưng tổng lợi nhuận của B dải tắt 3 cột đầu tiên ... Tôi vẫn muốn những người đó, tôi chỉ không muốn A áp dụng cho họ.

wifi[,1:3]+B 

cũng không làm những gì tôi mong đợi/muốn.

Answer 1

Sử dụng một ví dụ data.frame và ví dụ chức năng (chỉ cần 1 cho tất cả các giá trị)

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 

Hoặc thậm chí:

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 có lẽ là một sự lựa chọn tốt hơn so với apply đây, như áp dụng đầu tiên ép buộc data.frame của bạn thành một mảng có nghĩa là tất cả các cột phải có cùng loại. Tùy thuộc vào ngữ cảnh của bạn, điều này có thể có hậu quả không mong muốn.

Các mô hình là:

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

Các vector 'cols' có thể là tên biến hoặc chỉ số. Tôi thích sử dụng tên bất cứ khi nào có thể (nó mạnh mẽ để sắp xếp lại cột). Vì vậy, trong trường hợp của bạn này có thể là:

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

Một ví dụ của việc sử dụng tên cột:

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)