में एक घबराना साजिश के उपसमूह लेबल जोड़ें मैं घबराना-साजिश की तरह एक लगभग-boxplot है:ggplot2
dt <- rbind(se,cb,cb.se)
qplot(ds, size, data=dt, geom="jitter", colour=root, facets = test ~ .)
plot http://i50.tinypic.com/1zbfjih.png
मैं बीच में प्रत्येक समूह के लिए एक सारांश लेबल डाल करने के लिए अच्छा लगेगा साजिश के - उदाहरण के लिए आकार यहां योग:
aggregate(list(size=dt$size), list(dt$ds, dt$test), sum)
Group.1 Group.2 size
1 b217 se 9847
2 c10 se 97296
3 c613 se 21633
4 c7 se 207540
...
मैं लेबल जोड़ने के लिए + geom_text(aes(x=ds, y=128, label=sum(size)), size=2)
का उपयोग कर की कोशिश की है, लेकिन मैं प्रत्येक स्थिति पर एक ही लेबल मिल - मैं की राशि कैसे प्राप्त कर सकते हैं डेटा के बस उस खंड?
संपादित करें: यहाँ जहां मैं अब पर हूँ है - हो सकता है मैं सिर्फ गलत दिशा में जा रहा हूँ
data <- rbind(se,cb,cb.se)
labels <-ddply(data, c("ds", "test"), function(df) sum(df$size))
ggplot(data=data, aes(x=ds)) +
geom_jitter(aes(y=size, colour=root)) +
geom_text(data=labels, aes(x=ds, y=600, label=V1), size=3) +
facet_wrap(test ~ .)
इस कोड काम नहीं करता है - मैं एक undefined columns selected
त्रुटि मिलती है ... कहीं । हो सकता है कि यह एकाधिक data=
अनुभागों की वजह से हो?
एक त्वरित पढ़ने से में एक नया स्तंभ बनाने के लिए, कि कोड मेरे लिए ठीक लग रहा है। पुनरुत्पादित उदाहरण के बिना और कहना मुश्किल है। – hadley
मैंने एक समाधान पोस्ट किया है। दुर्भाग्यवश, चूंकि आपने नमूना डेटा प्रदान नहीं किया है, इसलिए मुझे यादृच्छिक डेटा फिर से बनाना था। इसका मतलब है कि समाधान आपके डेटा को प्रतिबिंबित कर सकता है या नहीं। भविष्य के संदर्भ के लिए, यदि आप अपनी समस्या का एक न्यूनतम उदाहरण बनाते हैं और कुछ नमूना डेटा पेस्ट करते हैं तो हम अधिक उत्तरों आकर्षित करेंगे जिन्हें हम आपकी समस्या को पुन: उत्पन्न करने के लिए उपयोग कर सकते हैं। वैसे भी, मुझे उम्मीद है कि यह मदद करता है। – Andrie