বাইনারি ভেরিয়েবলগুলির সেটের উপর ভিত্তি করে পর্যবেক্ষণের একটি নমুনা ক্লাস্টার করতে আমি সুপ্ত শ্রেণীর বিশ্লেষণ ব্যবহার করছি। আমি আর এবং প্যাকেজটি পিএলসিএ ব্যবহার করছি। এলসিএতে, আপনি যে ক্লাস্টারগুলি সন্ধান করতে চান তা অবশ্যই নির্দিষ্ট করতে হবে। অনুশীলনে, লোকেরা সাধারণত বেশ কয়েকটি মডেল চালায়, প্রতিটি পৃথক পৃথক সংখ্যক শ্রেণি নির্দিষ্ট করে এবং তারপরে ডেটাটির "সেরা" ব্যাখ্যা কোনটি তা নির্ধারণ করতে বিভিন্ন মানদণ্ড ব্যবহার করে।
ক্লাস = (i) সহ মডেলটিতে শ্রেণিবদ্ধ পর্যবেক্ষণগুলি শ্রেণি = (i + 1) দিয়ে মডেল দ্বারা কীভাবে বিতরণ করা হয় তা বোঝার চেষ্টা করার জন্য আমি প্রায়শই বিভিন্ন মডেলটি দেখতে খুব দরকারী বলে মনে করি। খুব কমপক্ষে আপনি মাঝেমধ্যে খুব দৃust় ক্লাস্টারগুলি দেখতে পারেন যা মডেলটির ক্লাস সংখ্যা নির্বিশেষে বিদ্যমান exist
আমি এই সম্পর্কগুলিকে গ্রাফ করার, কাগজপত্রগুলিতে এই জটিল ফলাফলগুলি আরও সহজেই যোগাযোগ করার এবং স্ট্যাটিস্টিকাল ভিত্তিক নয় এমন সহকর্মীদের কাছে চাই। আমি কল্পনা করেছিলাম যে এটি কোনও ধরণের সাধারণ নেটওয়ার্ক গ্রাফিক্স প্যাকেজ ব্যবহার করে আরে করা খুব সহজ তবে আমি কীভাবে তা জানি না।
যে কেউ দয়া করে আমাকে সঠিক দিকে নির্দেশ করতে পারে। নীচে একটি উদাহরণ ডেটাসেট পুনরুত্পাদন করার জন্য কোড রয়েছে is প্রতিটি ভেক্টর একাদশটি সম্ভাব্য ক্লাস সহ একটি মডেলে 100 টি পর্যবেক্ষণের শ্রেণিবিন্যাস উপস্থাপন করে। আমি গ্রাফ করতে চাই যে পর্যবেক্ষণগুলি (সারিগুলি) কলামগুলি জুড়ে শ্রেণি থেকে শ্রেণিতে স্থানান্তর করে।
x1 <- sample(1:1, 100, replace=T)
x2 <- sample(1:2, 100, replace=T)
x3 <- sample(1:3, 100, replace=T)
x4 <- sample(1:4, 100, replace=T)
x5 <- sample(1:5, 100, replace=T)
results <- cbind (x1, x2, x3, x4, x5)
আমি কল্পনা করি এমন একটি গ্রাফ তৈরির একটি উপায় আছে যেখানে নোডগুলি শ্রেণিবিন্যাস এবং প্রান্তগুলি প্রতিফলিত করে (ওজন বা রঙের সাহায্যে) একটি মডেল থেকে পরের মডেলে শ্রেণিবিন্যাস থেকে সরানো পর্যবেক্ষণের% যেমন
আপডেট: ইগ্রাফ প্যাকেজটি নিয়ে কিছুটা অগ্রগতি। উপরের কোড থেকে শুরু হচ্ছে ...
পিএলসিএএর ফলাফলগুলি শ্রেণীর সদস্যপদ বর্ণনা করার জন্য একই নম্বরগুলিকে পুনর্ব্যবহার করে, তাই আপনাকে কিছুটা পুনর্নির্মাণ করা দরকার।
N<-ncol(results)
n<-0
for(i in 2:N) {
results[,i]<- (results[,i])+((i-1)+n)
n<-((i-1)+n)
}
তারপরে আপনাকে সমস্ত ক্রস-ট্যাবুলেশন এবং তাদের ফ্রিকোয়েন্সি পেতে হবে এবং এগুলি সমস্ত প্রান্তকে সংজ্ঞায়িত করে একটি ম্যাট্রিক্সে আবদ্ধ করতে হবে। এটি করার জন্য আরও অনেক মার্জিত উপায় রয়েছে।
results <-as.data.frame(results)
g1 <- count(results,c("x1", "x2"))
g2 <- count(results,c("x2", "x3"))
colnames(g2) <- c("x1", "x2", "freq")
g3 <- count(results,c("x3", "x4"))
colnames(g3) <- c("x1", "x2", "freq")
g4 <- count(results,c("x4", "x5"))
colnames(g4) <- c("x1", "x2", "freq")
results <- rbind(g1, g2, g3, g4)
library(igraph)
g1 <- graph.data.frame(results, directed=TRUE)
plot.igraph(g1, layout=layout.reingold.tilford)
আমার মনে হয় ইগ্রাফ অপশনগুলির সাথে আরও খেলার সময় Time