सूत्रों [आर]

Question

मैं जानता हूँ कि xtabs और टेबल की तरह आदेशों कारों की संख्या से पता चलता एक उपयोगकर्ता पार सारणीकरण

उदाहरण के लिए निम्न आदेश पिवट तालिका उत्पन्न करने की अनुमति का उपयोग कर तालिका में मूल्यों का मतलब गिना जा रहा है कि गियर और सिलेंडरों की संख्या समान है।

> xtabs(~cyl+gear, data = mtcars) 
    gear 
cyl 3 4 5 
    4 1 8 2 
    6 2 4 1 
    8 12 0 2 
> 

हम सूत्र का विस्तार कर सकते तो यह प्रत्येक बिन

> xtabs(hp~cyl+gear, data = mtcars) 
    gear 
cyl 3 4 5 
    4 97 608 204 
    6 215 466 175 
    8 2330 0 599 
> 

मैं अब सोच रहा हूँ में कारों के लिए हॉर्स पावर की राशि दिखा सकता है, यह घोड़ा शक्तियों का मतलब की गणना करने के लिए संभव है प्रत्येक बिन में कारों के लिए? इस xtabs(mean(hp)~cyl+gear, data = mtcars)

Answer 1

आप reshape पुस्तकालय

cast(mtcars, cyl ~ gear, value = 'hp', fun = mean) 

Answer 2

एक दिलचस्प प्रतिक्रिया की तरह उदाहरण के कुछ है कि मैं आर-सहायता से प्राप्त करने के लिए निम्न प्रकार है:

> attach(mtcars) 
> tapply(hp,list(cyl,gear),mean) 
     3  4  5 
4 97.0000 76.0 102.0 
6 107.5000 116.5 175.0 
8 194.1667 NA 299.5 
> 

Answer 3

(एक जवाबी कार्रवाई के लिए मेरी टिप्पणी चलती, तो मैं बेहतर संपादित कर सकें।)

मुझे यकीन नहीं है कि इसे xtabs (जिसे मैंने पहले कभी नहीं उपयोग किया है) के साथ कैसे किया जाए, लेकिन reshape और plyr पैकेजों का उपयोग करके इसे करने के कुछ तरीके यहां दिए गए हैं।

> x = melt(mtcars, id = c("cyl", "gear"), measure = c("hp")) 
> cast(x, cyl ~ gear, mean) 

> x = ddply(mtcars, .(cyl, gear), summarise, hp = mean(hp)) 
> cast(x, cyl ~ gear) 

Answer 4

की गणना का एक अन्य तरीका यह कुल() फ़ंक्शन का उपयोग करना है से cast का उपयोग कर एक पंक्ति में कर सकते हैं। हालांकि आउटपुट एक टेबल के रूप में नहीं है। (twitter के माध्यम से)

> aggregate(hp~cyl+gear,data=mtcars,mean) 
    cyl gear  hp 
1 4 3 97.0000 
2 6 3 107.5000 
3 8 3 194.1667 
4 4 4 76.0000 
5 6 4 116.5000 
6 4 5 102.0000 
7 6 5 175.0000 
8 8 5 299.5000 
>