अभिवादन,
वर्तमान में मैं आर में निम्नलिखित कार्य कर रहा हूं:
require(zoo)
data <- read.csv(file="summary.csv",sep=",",head=TRUE)
cum = zoo(data$dcomp, as.Date(data$date))
data = zoo(data$compressed, as.Date(data$date))
data <- aggregate(data, identity, tail, 1)
cum <- aggregate(cum, identity, sum, 1)
days = seq(start(data), end(data), "day")
data2 = na.locf(merge(data, zoo(,days)))
plot(data2,xlab='',ylab='compressed bytes',col=rgb(0.18,0.34,0.55))
lines(cum,type="h",col=rgb(0,0.5,0))
सारांश का टुकड़ा। एससीवीएस:
date,revision,file,lines,nclass,nattr,nrel,bytes,compressed,diff,dcomp
2007-07-25,16,model.xml,96,11,22,5,4035,991,0,0
2007-07-27,17,model.xml,115,16,26,6,4740,1056,53,777
2007-08-09,18,model.xml,106,16,26,7,4966,1136,47,761
2007-08-10,19,model.xml,106,16,26,7,4968,1150,4,202
2007-09-06,81,model.xml,111,16,26,7,5110,1167,13,258
...
अंतिम दो पंक्तियाँ मेरी ज़रूरत की जानकारी को दर्शाती हैं, और परिणाम निम्न जैसा दिखता है:
ब्लू लाइन कलाकृतियों की बाइट्स में एन्ट्रॉपी है जिसकी मुझे दिलचस्पी है। हरे रंग की रेखाएं परिवर्तनों के एन्ट्रॉपी का प्रतिनिधित्व करती हैं।
अब, इस ग्राफ में, यह अच्छी तरह से काम करता है क्योंकि तराजू में बहुत बड़ा अंतर नहीं है। लेकिन मेरे पास अन्य रेखांकन हैं जहां हरी रेखाएं इतनी छोटी हो जाती हैं कि कोई देख नहीं सकता।
जिस समाधान की मुझे तलाश थी, उसमें दो चीजें शामिल थीं:
- हरे रंग की ऊर्ध्वाधर रेखाओं को दूसरे ग्राफ में स्थानांतरित करने के लिए, पहले एक के नीचे, अपने स्वयं के y अक्ष के साथ, लेकिन साझा x अक्ष।
- इसे एक लघुगणक पैमाने प्रदान करने के लिए, क्योंकि मैं विशिष्ट मूल्यों की तुलना में "परिमाण" में अधिक रुचि रखता हूं।
अग्रिम में धन्यवाद!
PS अगर कोई मुझे यह भी बता सकता है कि मैं महीनों के संदर्भ में एक्स स्केल में "मामूली टिक" कैसे डाल सकता हूं, तो मैं सराहना करता हूं :-) यदि ये एक ही पोस्ट के लिए बहुत अधिक प्रश्न हैं, तो मैं उन्हें आगे विभाजित कर सकता हूं।
