দুটি জিনিস রয়েছে যা প্লটের সাবলীলতাকে প্রভাবিত করবে, আপনার কর্নেল ঘনত্বের প্রাক্কলনের জন্য ব্যান্ডউইথ এবং আপনার প্লটটিতে রঙ নির্ধারিত বিরতি।
আমার অভিজ্ঞতায়, অনুসন্ধানী বিশ্লেষণের জন্য আমি দরকারী ব্যান্ড না পাওয়া পর্যন্ত কেবল ব্যান্ডউইথকে সামঞ্জস্য করি। নীচে বিক্ষোভ।
library(spatstat)
set.seed(3)
X <- rpoispp(10)
par(mfrow = c(2,2))
plot(density(X, 1))
plot(density(X, 0.1))
plot(density(X, 0.05))
plot(density(X, 0.01))
কেবলমাত্র ডিফল্ট রঙের স্কিম পরিবর্তন করা কোনওরকম সাহায্য করবে না বা পিক্সেলগুলির রেজোলিউশন পরিবর্তন করবে না (যদি কোনও ডিফল্ট রেজোলিউশন খুব সুনির্দিষ্ট হয় তবে আপনার রেজোলিউশন হ্রাস করতে হবে এবং পিক্সেলগুলি আরও বড় করা উচিত)। যদিও আপনি নান্দনিক উদ্দেশ্যে ডিফল্ট রঙের স্কিম পরিবর্তন করতে চাইতে পারেন তবে এটি অত্যন্ত বৈষম্যমূলক হওয়ার উদ্দেশ্যে।
রঙটি সহায়তা করতে আপনি যে কাজগুলি করতে পারেন তা হল স্কেল স্তরটি লগারিদমে পরিবর্তন করা (যদি আপনি খুব অসাধারণ প্রক্রিয়া করেন তবেই কেবল তা সাহায্য করবে ), রঙের প্যালেটটি নীচের প্রান্তে আরও আলাদা হতে হবে (রঙ র্যাম্পের স্পেসিফিকেশনের ক্ষেত্রে পক্ষপাতিত্ব) আর), বা অবিচ্ছিন্ন পরিবর্তে পৃথক বিন্দুতে কিংবদন্তি সামঞ্জস্য করুন।
কিংবদন্তির পক্ষপাতদুষ্টের উদাহরণগুলি এখান থেকে অভিযোজিত হয়েছিল এবং আমি জিআইএস সাইটে আমার আরও একটি পোস্ট পেয়েছি যা এখানে একটি খুব সাধারণ উদাহরণে পৃথক পৃথক ধরণের বর্ণকে বর্ণিত করছে । প্যাটার্নটি শেষ হয়ে গেলে বা ধীরে ধীরে কম থাকলেও এগুলি সাহায্য করবে না।
Z <- density(X, 0.1)
logZ <- eval.im(log(Z))
bias_palette <- colorRampPalette(c("blue", "magenta", "red", "yellow", "white"), bias=2, space="Lab")
norm_palette <- colorRampPalette(c("white","red"))
par(mfrow = c(2,2))
plot(Z)
plot(logZ)
plot(Z, col=bias_palette(256))
plot(Z, col=norm_palette(5))
শেষ চিত্রটিতে রঙগুলি স্বচ্ছ করতে (যেখানে প্রথম রঙের বিনটি সাদা) কোনও একটি কেবল রঙের র্যাম্প তৈরি করতে পারে এবং তারপরে আরজিবি স্পেসিফিকেশনকে স্বচ্ছ রঙের সাথে প্রতিস্থাপন করতে পারে। উপরের মত একই ডেটা ব্যবহার করে নীচের উদাহরণ।
library(spatstat)
set.seed(3)
X <- rpoispp(10)
Z <- density(X, 0.1)
A <- rpoispp(100) #points other places than density
norm_palette <- colorRampPalette(c("white","red"))
pal_opaque <- norm_palette(5)
pal_trans <- norm_palette(5)
pal_trans[1] <- "#FFFFFF00" #was originally "#FFFFFF"
par(mfrow = c(1,3))
plot(A, Main = "Opaque Density")
plot(Z, add=T, col = pal_opaque)
plot(A, Main = "Transparent Density")
plot(Z, add=T, col = pal_trans)
pal_trans2 <- paste(pal_opaque,"50",sep = "")
plot(A, Main = "All slightly transparent")
plot(Z, add=T, col = pal_trans2)