參考矢量匿名中的R

Question

代替寫入一個矢量標操作的線，如：

x.and.y <- intersect(x, y) 
idx.x <- match(x, x.and.y) 
idx.x <- idx.x[!is.na(idx.x)] 

我可以把它們連在同一行：

x.and.y <- intersect(x, y) 
idx.x <- subset(tmp <- match(x, x.and.y), !is.na(tmp)) 

爲了做到這一點，我必須給中間向量一個名字用於下標操作。爲了使代碼更加簡潔，有沒有辦法匿名引用一個向量？就像這樣：

x.and.y <- intersect(x, y) 
idx.x <- match(x, x.and.y)[!is.na] ## illegal R 

Answer 1

考慮intersect電話match，你在做什麼是多餘的。 intersect被定義爲：

function (x, y) 
{ 
    y <- as.vector(y) 
    unique(y[match(as.vector(x), y, 0L)]) 
} 

，你可以得到相同的結果，你的3行代碼使用%in%：x[y%in%x]。

我意識到這可能不代表您的實際問題，但「匿名引用向量」並不真正適合R範式。函數參數是按值傳遞的。你基本上說，「我想要一個函數來操作一個對象，但我不想爲該函數提供該對象。」

您可以使用R的範圍規則來執行此操作（這是mplourde使用Filter與匿名函數完成的操作），但是您將以這種方式創建相當複雜的代碼。