আর [বন্ধ] গ্রাফে একাধিক বারপ্লট অঙ্কন

Question

আমি আর একটি একক গ্রাফে চারটি বারপ্লট প্লট করতে চাই I আমি নীচের কোডটি ব্যবহার করেছি। এখানে, কীভাবে গ্রাফের উপরে কোনও কিংবদন্তি রাখতে পারেন, বিশেষত কিংবদন্তিটি 2 থেকে 3 বারপ্লটগুলির মধ্যে হওয়া উচিত। আমিও চেষ্টা করেছি par(mar=c(4.1,4.1,8.1,4.1)কিন্তু কোন সাফল্য নেই। তদুপরি, আমি legend()দ্বিতীয় বারপ্লট এর পরেও দৌড়ানোর চেষ্টা করেছি, কিন্তু কোনও লাভ নেই। কিংবদন্তিটি চারটি বারপ্লটের জন্য। এই আমাকে সাহায্য করুন।

    par(mfrow=c(1,4))
    barplot(t(A), beside=T, ylim=c(-100,100),..)
    barplot(t(B), beside=T, ylim=c(-100,100),..)
    barplot(t(C), beside=T, ylim=c(-100,100),..)
    barplot(t(D), beside=T, ylim=c(-100,100),..)
    legend(...)

Comments

কেউ এটিকে আর

— ব্র্যান্ডন বার্টেলসেন

@ কেভিন এটি এখানে একটি বৈধ প্রশ্ন; আর-এর কমান্ড লাইন ইন্টারফেস রয়েছে এমন অর্থ কোনও আর প্রশ্নই প্রোগ্রামিং নয়।

@ ব্র্যান্ডন শিওর; আপনি ভবিষ্যতে প্রস্তাবিত সম্পাদনাগুলি ব্যবহার করতে পারেন, আপনি গৃহীত পরামর্শের জন্য 2 টি উপার্জনও করতে পারবেন।

Answer 1

ডঃ মাইক এর উত্তর ভালো, কিন্তু আমি ভাবলাম সমাধান যে faceting (অথবা trellising) সদ্ব্যবহার বৈশিষ্ট্য প্রদান চাই ggplot2এবং lattice। প্রথমে ডেটা সামান্য প্রস্তুত করুন:

mydata$id <- 1:nrow(mydata)
dat <- melt(mydata,id.vars = "id")

এবং তারপরে আমরা নিম্নলিখিতগুলি তৈরি করতে পারি ggplot2:

ggplot(dat,aes(x=factor(id), y = value)) + 
    facet_wrap(~variable) +
    geom_bar(aes(fill = factor(id)))

এবং ব্যবহার lattice:

barchart(~value|variable,group = factor(id),data=dat,
         key = simpleKey(text = as.character(1:5),
                rectangles = TRUE,points = FALSE,space = "right"))

Comments

@ ব্র্যান্ডন - এটি আমার নতুন মিশন। এই প্রশ্নগুলি অন্যের জন্য আরও ভাল রেফারেন্স হয় যদি সেগুলিতে বেস, জিজিপ্লট 2 এবং ল্যাটিসের উদাহরণ থাকে।

— 11:38

@ জোরান: কল্পনাপ্রসূত।

— সমরশ

জিজিপ্লাট সংস্করণে "ফ্যাক্টর (আইডি)" এর লেবেলটির নামকরণ কীভাবে করবেন?

— নিউজ_আইস_স্লেক্সন_বায়াস

Answer 2

আমি মনে করি আপনার সমস্যা সমাধানের জন্য বারপ্লট কমান্ডের অন্তর্নিহিত ক্ষমতা ব্যবহার করা সবচেয়ে সহজ সমাধান। নিম্নলিখিত কোডটি আমি যা করি তা আপনি ব্যাখ্যা করতে চান তা করে।

mydata <- data.frame(Barplot1=rbinom(5,16,0.6), Barplot2=rbinom(5,16,0.25),
                     Barplot3=rbinom(5,5,0.25), Barplot4=rbinom(5,16,0.7))
barplot(as.matrix(mydata), main="Interesting", ylab="Total", beside=TRUE, 
        col=terrain.colors(5))
legend(13, 12, c("Label1","Label2","Label3","Label4","Label5"), cex=0.6, 
       fill=terrain.colors(5))

আশা করি এটি আপনার প্রশ্নের উত্তর দেয়।