Truy cập hàng/cột trong chức năng 'áp dụng'

Question

Điều gì xảy ra nếu một người muốn apply một functon tức là mỗi hàng ma trận, nhưng cũng muốn sử dụng làm đối số cho hàm này số hàng đó. Ví dụ, giả sử bạn muốn lấy gốc thứ n của các số trong mỗi hàng của ma trận, trong đó n là số hàng. Có cách nào khác không (chỉ sử dụng apply) so với cột ràng buộc các số hàng với ma trận ban đầu, như thế này?

test <- data.frame(x=c(26,21,20),y=c(34,29,28)) 

t(apply(cbind(as.numeric(rownames(test)),test),1,function(x) x[2:3]^(1/x[1]))) 

P.S. Trên thực tế nếu kiểm tra thực sự là một ma trận: test <- matrix(c(26,21,20,34,29,28),nrow=3), rownames (thử nghiệm) không giúp :( Cảm ơn bạn

Answer 1

Những gì tôi thường làm là chạy sapply trên số hàng 1:nrow(test) thay vì test, và sử dụng test[i,]. bên trong hàm:.

t(sapply(1:nrow(test), function(i) test[i,]^(1/i))) 

tôi không chắc chắn điều này thực sự hiệu quả, mặc dù

Answer 2

trên thực tế, trong trường hợp của một ma trận, bạn thậm chí không cần apply Chỉ cần:.

test^(1/row(test)) 

thực hiện những gì bạn muốn, tôi nghĩ vậy. Tôi nghĩ rằng các chức năng row() là điều bạn đang tìm kiếm.

Answer 3

cbind() nhập số hàng có vẻ là một cách tiếp cận khá đơn giản. Đối với ma trận (hoặc khung dữ liệu), những điều sau đây sẽ hoạt động:

apply(cbind(1:(dim(test)[1]), test), 1, function(x) plot(x[-1], main=x[1])) 

hoặc bất kỳ thứ gì bạn muốn vẽ.

Answer 4

Nếu bạn đặt tên hàm thay vì đặt tên ẩn danh, bạn có thể chuyển đối số dễ dàng hơn. Chúng tôi có thể sử dụng nrow để nhận số hàng và chuyển một vectơ của các số hàng dưới dạng tham số, cùng với khung được lập chỉ mục theo cách này.

Để rõ ràng, tôi đã sử dụng một hàm mẫu khác; ví dụ này nhân cột x theo cột y cho ma trận 2 cột:

test <- data.frame(x=c(26,21,20),y=c(34,29,28)) 
myfun <- function(position, df) { 
    print(df[position,1] * df[position,2]) 
} 

positions <- 1:nrow(test) 
lapply(positions, myfun, test) 

Answer 5

Tôi hơi nhầm lẫn vì vậy xin lỗi nếu tôi hiểu sai nhưng bạn muốn tìm ra số thứ ba của các số trong mỗi hàng của một ma trận trong đó n = số hàng. Nếu đây này các trường hợp sau đó nó thực sự đơn giản tạo ra một mảng mới với kích thước tương tự như bản gốc với mỗi cột có giá trị giống như số hàng tương ứng:

test_row_order = array(seq(1:length(test[,1]), dim = dim(test)) 

Sau đó, chỉ cần áp dụng một hàm (n-th trong trường hợp này):

n_root = test^(1/test_row_order)