জিপিপ্লাটের কতগুলি দিক রয়েছে তা আমি প্রোগ্রামগতভাবে কীভাবে বলতে পারি?

Question

নীচে কোড এবং একটি গ্রাফ রয়েছে।

গ্রাফের তিনটি দিক রয়েছে। the_plotএটির তিনটি দিক রয়েছে কোথায় ? হ্যাঁ, আমি এটি mtcarsডেটা ফ্রেম থেকে পেতে পারি , বা the_plot$data, কিন্তু আমি ডেটা বিশ্লেষণ পুনরায় তৈরি করতে চাই না। পরিবর্তে, আমি এর গ্রাফিকাল উপাদানগুলি পরিদর্শন করতে চাই the_plot, সুতরাং আমাকে একাধিক স্থানে অ্যাপ্লিকেশন যুক্তিকে নকল করতে হবে না। the_plot$facetআমি স্বীকৃত কিছু দেখায় না, বা অন্য প্লটের ভেরিয়েবলগুলি দেখায় না।

আমি পরিপাটি 1.3.0 ব্যবহার করছি।

library(tidyverse)
data(mtcars)
the_plot<-ggplot(mtcars, aes(mpg, disp, group=cyl)) + facet_wrap(~cyl) + geom_point()
the_plot

Comments

সম্ভবত ggplot_build(the_plot)$layout$layoutথেকে stackoverflow.com/questions/44107119/...

— MrFlick

কিছু বিশদ যুক্ত করুন, the_plotআপনি প্লটে যা দেখছেন তা নয় , আপনি কী প্লট করতে চান তার একটি বিবরণ (ডেটা, ম্যাপিং, থিম ইত্যাদি)। আপনি যখন the_plotকনসোলে লিখবেন , আপনি সত্যিই কল করছেন print(the_plot)যা একটি প্রক্রিয়া শুরু করে যা আঁশ, সংখ্যা এবং দিকগুলির অবস্থান ইত্যাদি উপলব্ধি করে এবং তারপরে একটি গ্রাফিকাল ডিভাইসে বাক্স, লাইন এবং পাঠ্য আউটপুট করে।

— মিঃ গম্বল

Answer 1

আপনি gg_build () - ফাংশন সহ ggplot ডেটা অ্যাক্সেস করতে পারেন

out <- ggplot_build(the_plot)

length(levels(out$data[[1]]$PANEL))
[1] 3

Answer 2

আরেকটি পদ্ধতি

library(ggplot2)
data(mtcars)
the_plot<-ggplot(mtcars, aes(mpg, disp, group=cyl)) + facet_wrap(~cyl) + geom_point()
pb <- ggplot_build(the_plot)
pb$layout$layout$PANEL
#> [1] 1 2 3
#> Levels: 1 2 3

^{2020-04-21 তারিখে ডিপেক্স প্যাকেজ (v0.3.0) দ্বারা তৈরি করা হয়েছে}