दोहराएं

Question

मैं निम्नलिखित नेस्टेड पाश है

for (x in xs) { 
    for (y in ys) { 
     # Do something with x and y 
    } 
} 

कौन सा मैं समतल करना चाहते हैं तो मैं दो वैक्टर xs और ys की कार्तीय उत्पाद के निर्माण और परिणाम पर पुनरावृत्ति के बारे में सोचा । अजगर में, इस तुच्छ होगा:

for xy in product(xs, ys): 
    # x, y = xy[0], xy[1] 

लेकिन आर में, सबसे सरल बराबर मैंने पाया चुनौतीपूर्ण लग रहा है:

xys <- expand.grid(xs, ys) 
for (i in 1 : nrow(xys)) { 
    xy <- as.vector(xys[i, ]) 
    # x <- xy[1], y <- xy[2] 
} 

निश्चित रूप से वहाँ एक बेहतर तरीका है, नहीं होना चाहिए? (स्पष्ट करने के लिए, मैं ... मुझे लगता है कि एक तरह से सीधे उत्पाद में tuples की पुनरावृत्ति करने के लिए वहाँ होना चाहिए एक सूचकांक से अधिक पुनरावृति करने के लिए नहीं करना चाहती।)

Answer 1

आप अपने डेटा फ्रेम की प्रत्येक पंक्ति में फ़ंक्शन लागू करने के लिए apply फ़ंक्शन का उपयोग कर सकते हैं। अपने वास्तविक फ़ंक्शन के साथ बस "your function" को प्रतिस्थापित करें।

# example data 
xs <- rnorm(10) 
ys <- rnorm(10)  

apply(expand.grid(xs, ys), 1, FUN = function(x) {"your function"}) 

यह एक बहुत ही बुनियादी उदाहरण है। इधर, एक पंक्ति में दोनों मानों का योग गणना की जाती है:

myfun <- function(xs, ys) xs + ys 
arguments <- expand.grid(xs = rnorm(10), ys = rnorm(10)) 
apply(arguments, 1, function(x)do.call(myfun, as.list(x))) 

:

apply(expand.grid(xs, ys), 1, FUN = function(x) {x[1] + x[2]}) 

---

यहाँ एक प्रकार नामित तर्कों (xs, ys) का उपयोग करता है सूचकांकों की बजाय (x[1], x[2]) है

Answer 2

आर अजगर से एक अलग प्रतिमान है, तो डॉन ' टी जनरेटर या tuples होने की उम्मीद नहीं है - हमारे पास वैक्टर और सूचकांक हैं।

इस तरह, एक कार्तीय उत्पाद पर एक समारोह मैप करने के लिए बस

outer(xs,ys,function(x,y) ...) 

फोन और परिणाम undim यदि आप चाहें तो।

संपादित करें: मामले में xs या ys आधार वैक्टर तुलना में अधिक जटिल कुछ कर रहे हैं, एक ही विकल्प सूचकांकों का उपयोग करने, यानी

outer(seq(a=xs),seq(a=ys),function(xi,yi) ... xs[[xi]]/ys[xi,]/etc. ...) 

या का उपयोग करते हुए एक सा हाथ से तैयार उत्पाद पर एक समारोह के नक्शे है mapply

mapply(function(x,y) ...,xs,rep(ys,each=length(xs)))