আপনি যদি সত্যিই এত বড় সংখ্যক আইটেম সহ স্ট্যাকযুক্ত বারচার্ট ব্যবহার করতে চান তবে দুটি সম্ভাব্য সমাধান এখানে দেওয়া হল।
ব্যবহার irutils
আমি কয়েক মাস আগে এই প্যাকেজ জুড়ে এসেছি।
এর হিসাবে উপর 0573195c07 কমিট গিটহাব , কোড একটি সাথে কাজ করবে না grouping=
যুক্তি। আসুন শুক্রবারের ডিবাগিং সেশনের জন্য যাই।
গিথুব থেকে একটি জিপ করা সংস্করণ ডাউনলোড করে শুরু করুন। আপনাকে R/likert.R
ফাইলটি হ্যাক করতে হবে, বিশেষত likert
এবং plot.likert
কার্যাদি। প্রথমত, এ likert
, cast()
ব্যবহৃত হয় কিন্তু reshape
প্যাকেজ লোড হয় না (একটা ব্যাপার যদিও import(reshape)
নির্দেশ NAMESPACE
ফাইল)। আপনি এটি নিজের আগে লোড করতে পারেন। দ্বিতীয়ত, আইটেমগুলির লেবেল আনার জন্য একটি ভুল নির্দেশ রয়েছে, যেখানে একটি i
175 লাইনের চারপাশে ঝুঁকছে This এটির পাশাপাশি স্থির করতে হবে, উদাহরণস্বরূপ সমস্ত ঘটনাকে প্রতিস্থাপন likert$items[,i]
করে likert$items[,1]
। তারপরে আপনি প্যাকেজটি আপনার মেশিনে যেমন ব্যবহার করতে পারেন তেমন ইনস্টল করতে পারেন। আমার ম্যাক, আমি করেছি
% tar -czf irutils.tar.gz jbryer-irutils-0573195
% R CMD INSTALL irutils.tar.gz
তারপরে আর এর সাহায্যে নিম্নলিখিতটি চেষ্টা করুন:
library(irutils)
library(reshape)
# Simulate some data (82 respondents x 66 items)
resp <- data.frame(replicate(66, sample(1:5, 82, replace=TRUE)))
resp <- data.frame(lapply(resp, factor, ordered=TRUE,
levels=1:5,
labels=c("Strongly disagree","Disagree",
"Neutral","Agree","Strongly Agree")))
grp <- gl(2, 82/2, labels=LETTERS[1:2]) # say equal group size for simplicity
# Summarize responses by group
resp.likert <- likert(resp, grouping=grp)
এটি কেবল কাজ করা উচিত, তবে আইটেমের সংখ্যা বেশি হওয়ায় ভিজ্যুয়াল রেন্ডারিং ভয়ঙ্কর হবে। plot(likert(resp))
যদিও এটি দলবদ্ধকরণ ছাড়াই (যেমন, ) কাজ করে ।
আমি এইভাবে আপনার ডেটাসেটকে আইটেমের ছোট ছোট উপগ্রহে কমাতে পরামর্শ দেব। উদাহরণস্বরূপ, 12 আইটেম ব্যবহার করে,
plot(likert(resp[,1:12], grouping=grp))
আমি একটি 'পঠনযোগ্য' স্ট্যাকযুক্ত বারচার্ট পেয়েছি। আপনি সম্ভবত পরে তাদের প্রক্রিয়া করতে পারেন। (এগুলি ggplot2
অবজেক্টস, তবে gridExtra::grid.arrange()
পঠনযোগ্যতা ইস্যুর কারণে আপনি কোনও এক পৃষ্ঠায় এগুলি সাজিয়ে তুলতে পারবেন না !)
বিকল্প সমাধান
আমি আপনার দৃষ্টি আকর্ষণ করতে চাই অন্য একটি প্যাকেজ, এইচএইচ-তে , যা লিকার্ট স্কেলগুলি স্ট্যাকড বারচার্টগুলি ডাইভার্জিং হিসাবে প্লট করতে দেয়। আমরা উপরের কোডটি নীচে প্রদর্শিত হিসাবে পুনরায় ব্যবহার করতে পারি:
resp.likert <- likert(resp)
detach(package:irutils)
library(HH)
plot.likert(resp.likert$results[,-6]*82/100, main="")
তবে এটি জিনিসগুলিকে কিছুটা জটিল করে তুলবে কারণ আমাদের ফ্রিকোয়েন্সিগুলি গণনাতে রূপান্তর করতে হবে, likert
উত্পাদিত বস্তুকে সাবসেট করতে হবে irutils
, প্যাকেজ বিচ্ছিন্ন করতে হবে ইত্যাদি So তাই নতুন (গণনা) পরিসংখ্যান নিয়ে আবার শুরু করা যাক:
plot.likert(t(apply(resp, 2, table)), main="", as.percent=TRUE,
rightAxisLabels=NULL, rightAxis=NULL, ylab.right="",
positive.order=TRUE)
একটি গ্রুপিং ভেরিয়েবল ব্যবহার করতে, আপনাকে একটি array
সংখ্যাগত মানের সাথে কাজ করতে হবে ।
# compute responses frequencies separately by grp
resp.array <- array(NA, dim=c(66, 5, 2))
resp.array[,,1] <- t(apply(subset(resp, grp=="A"), 2, table))
resp.array[,,2] <- t(apply(subset(resp, grp=="B"), 2, table))
dimnames(resp.array) <- list(NULL, NULL, group=levels(grp))
plot.likert(resp.array, layout=c(2,1), main="")
এটি দুটি পৃথক প্যানেল তৈরি করবে, তবে এটি একটি পৃষ্ঠায় ফিট করে fits
2016-6-3 সম্পাদনা করুন
- এর মতো এখন ভোক্তাদের দৃষ্টিভঙ্গির পৃথক প্যাকেজ হিসাবে পাওয়া যায়।
- আপনার লাইব্রেরি পুনরায় আকার দেওয়ার দরকার নেই বা উভয় ইরুইটিল এবং পুনরায় আকার পরিবর্তন করতে হবে