- Where Developers Learn, Share, & Build Careers
मुझे नीचे की तरह एक डाटाफ्रेम रहा है।
& gt; Avg_data तारीख क्षेत्र एविएप्लेस्ड टाइम 1 5/1/2012 preprod 23 2 5/2/2012 prod 76 3 5/3/2012 बीटा 34 4 5/4/2012 prod 30 5 5/5/2012 बीटा 22 6/6/2012 Preprod 32 7 5/7/2012 बीटा 21 8 5/8/2012 प्रोड 44 9 5/9/2012 preprod 45 10 5/10/2012 बीटा 23 11 5/11/2012 अंक 50 12 5/13/2012 बीटा 26 13 5/14/2012 preprod 33 14 5/15/2012 बीटा 75 15 5/16/2012 preprod 56 16 5/17/2012 बीटा 32 17 5/18/2012 preprod 67 18 5/19/2012 प्रॉड 40 जब मैं cbind का उपयोग करता हूं, यह सही पंक्ति संख्या नहीं दे रहा है ..
& gt; cbind (avg_data [avg_data $ क्षेत्र == "preprod", "तारीख"], avg_data [avg_data $ क्षेत्र == "preprod", "AveElapsedTime"]) [1] [2] [1,] 3 23 [2 ,] 15 32 [3,] 18 45 [4,] 5 33 [5,] 7 56 [6,] 9 67 यह आलेख की साजिश रचने में समस्या दे रहा है। मुझे एक्स अक्ष और एविएप्लेस्ट टाइम वैल्यू के रूप में तारीख है जो Y अक्ष के रूप में है I 5/1/2012 से पहली साजिश शुरू करने के बजाय, यह 5/3/2012 से शुरू हो रहा है और ऊपर दिए गए rownumber के आधार पर साजिश करने का प्रयास कर रहा है।
यदि यह नीचे की तरह दिखता है, तो ग्राफ सही ढंग से प्रदर्शित होगा .. कृपया सलाह दें ..
राउनेम्बर एवेईप्लेड समय [, 1] [, 2] [1,] 1 23 [2,] 6 32 [3,] 9 45 [4, ] 13 33 [5,] 15 56 [6,] 17 67 ये मेरा कोड है .. जो अब काम कर रहा है .. लाइनों के लिए रंग बदलने की आवश्यकता है ..
avg_data & lt; - read.table ( "qes.tbl", हैडर = टी सितम्बर = ",") avg_data # डीएल & lt; - avg_data [avg_data $ क्षेत्र == "prod" " AveElapsedTime "] #datel & lt; - avg_data [avg_data $ क्षेत्र ==" prod "," तारीख "] नीचे रास्ते में ग्राफ पीडीएफ # तैयार करना मेल FL & lt एक कड़ी के रूप देने के लिए; - 20120631 फ़ाइल & lt; - पेस्ट ("ग्राफ", एफएल, "पीडीएफ", एसपी = "।") Plot_colors & lt; - c ("नीला", "लाल", "वन-ग्रीन", "काला") पीडीएफ (फ़ाइल, ऊंचाई = 4.5, चौड़ाई = 9.5 , एकफ़ाइल = TRUE) ग्राफप्लॉट & lt; - फ़ंक्शन (एल, आरईजी, टीएल, एमएम) {डीएल & lt; - आरईजी [आरईजी $ क्षेत्र == एल, टीएल] डीटेल & lt; - आरईजी [आरईजीई $ क्षेत्र == एल, "तिथि "] डीएल एंड एलटी; - cbind (as.numeric (rownames (REG [REG $ region == l,]), आरईजी [आरईजी $ क्षेत्र == एल, टीएल]) लाइनें (डीएल, टाइप = "एल", पीसी = 2 , Col = plot_colors [num]) num & lt; - num + 1} ड्रॉग्राफ & lt; - फ़ंक्शन (ab, y, z, s) {#Creating x axis x & lt; - ab [ab $ region == "beta", Z] y & lt; - ab [, 1] g_range & lt; - श्रेणी (0, x [! Is.na (x)] प्लॉट (एनए, प्रकार = "l", col = "orange", xlim = c ( 1, लंबाई (y)), ylim = g_range, axes = FALSE, ann = FALSE) num = 1 sapply (अद्वितीय (ab $ क्षेत्र [ab $ region]), FUN = graphplot, REG = ab, tl = z, num ) (3) - (1, लंबाई = 1: लंबाई (y), लैब = FALSE) पाठ (1: लंबाई (y), बराबर ("यूएसआर") [3] - 2, srt = 45, adj = 1.2, लेबल = y, xpd = T, cex = 0.3) पैमाने & lt; - s अक्ष (2, लास = 1, = पैमाने पर * 0: g_range [2], cex.axis = 0.3) main_title & lt; -a.expression (z ) # कैलक्यूलेशन मीन, ऊपरी सीमा और निम्न सीमाएं MEANLIMIT & lt; - seq (लंबाई = लंबाई (वाई) = = (एक्स) से, = 0) यूएलआईएमआईएलआईटीआईटी और लेफ्टिनेंट; - सीईसी (लंबाई = लंबाई (वाई) = (एक्स) + 2.66 * योग (abs (diff (x))) / लंबाई (x), द्वारा = 0) LLIMIT & amp; - - seq (लंबाई = लंबाई (y), से = मतलब (एक्स) - 2.66 * योग (abs (diff (x))) / लंबाई (x), द्वारा = 0) li एनईएस (MEANLIMIT, प्रकार = "l", col = "black") लाइनें (यूएलआईएमआईएलआईटी, प्रकार = "एल", पीपी = 2, एलटीई = 2, कोल = "ग्रे") लाइनें (एलएलएमआईएलआईटीआई, प्रकार = "एल" Pch = 2, lty = 2, col = "black") शीर्षक (मुख्य = मुख्य_ शीर्षक, col.main = "red", font.main = 4) शीर्षक (xlab = "परीक्षण निष्पादन तिथि", col.lab = rgb ( 0,0.5,0)) शीर्षक (ylab = "मिलीसेकंड", col.lab = rgb (0,0.5,0)) किंवदंती ("शीर्ष", g_range [2], मुख्य_ शीर्षक, cex = 0.4, col = c (" नीला "), लिटी = 1); } प्रयोगशाला के & lt; -as.character (avg_data $ तारीख) एईटी & lt; - avg_data $ AveElapsedTime MTitle & lt; - "AveElapsedTime" औसत बीता हुआ समय drawGraph के लिए # तैयार करना ग्राफ (avg_data, प्रयोगशाला, MTitle, 5)
ऐसा लगता है कि आप पहले कॉलम के रूप में केवल वज़न के लिए पूछ रहे हैं। अगर ऐसा है तो:
cbind (as.numeric (rownames (avg_data [avg_data $ क्षेत्र == "preprod",])), avg_data [avg_data $ क्षेत्र == "preprod" " [5,] 15 56 # # [, 1] [, 2] # [1,] 1 23 # [2,] 6 32 # [3,] 9 45 # [4,] 13 33 # [ 6,] 17 67 यदि आप प्रक्रिया में कॉलम का नाम बदलना चाहते हैं:
cbind (Rownames = as.numeric (rownames (avg_data [ Avg_data $ region == "preprod",]), एवेईप्लेडटाईम = एजी_डेटा [avg_data $ क्षेत्र == "प्रीप्रोड", "एवेईप्लेटेड टाइम"])
Comments
Post a Comment