গ্রিটিংস,
বর্তমানে আমি আর তে নিম্নলিখিতগুলি করছি:
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 অক্ষটি হবে।
- এটি লগারিদমিক স্কেল সরবরাহ করার জন্য, যেহেতু আমি নির্দিষ্ট মানগুলির চেয়ে "মাত্রা" সম্পর্কে বেশি আগ্রহী।
আগাম ধন্যবাদ!
পিএস যদি কেউ আমাকে বলতে পারে যে আমি কীভাবে মাসগুলিকে উল্লেখ করে এক্স স্কেলে "মাইনর টিক্স" লাগাতে পারি, আমি প্রশংসা করি :-) যদি এটি কোনও একক পোস্টের জন্য খুব বেশি প্রশ্ন হয় তবে আমি তাদের আরও বিভাজন করতে পারি।
