switch() ফাংশনটি if ... else if টেস্টের দীর্ঘ সিরিজের একটি সংক্ষিপ্ত বিকল্প হতে পারে।
যে ভ্যারিয়েবলটির উপর switch করা হয় সেটি সাধারণত একটি স্ট্রিং, আর সেক্ষেত্রে সিলেক্টর থেকে কোটেশন চিহ্নগুলো বাদ দেওয়া যায়।
star <- function(type) {
switch(type,
M = , # will "fall through" if no value given
K = "red dwarf",
G = "Earth-like",
"bigger star" # only correct for O,B,A,F
)
}
> star("M")
[1] "red dwarf"
লক্ষ্য করুন, মানটি ফাঁকা রাখলে কেবল তখনই অপশনটি পরের অপশনে গিয়ে পড়ে, উপরের উদাহরণের M-এর মতো।
অন্য কিছু ভাষার মতো এখানে break স্টেটমেন্ট যোগ করার দরকার নেই।
character টাইপের উপর switch করার সময় শেষ মানটি একটি ডিফল্ট, যেমন এখানে।
ইন্টিজার টাইপের ক্ষেত্রে কোনো ডিফল্ট দেওয়া যায় না।
dplyr-এর ফাংশন
বেস R-এর switch বেশ সীমিত: এটি কেবল একটি ইনপুটের সাথে হুবহু মিল করতে পারে।
R প্রথম ১৯৯৩ সালে প্রকাশিত হওয়ার সময় এটি যুক্তিসঙ্গত মনে হয়েছিল, তবে আধুনিক ব্যবহারের জন্য এর উন্নতি দরকার।
যেমন Conditionals কনসেপ্টে উল্লেখ করা হয়েছে, tidyverse প্যাকেজ-সংগ্রহটি বেস R-এর কার্যকারিতার পরিপূরক (এবং মাঝে মাঝে প্রতিস্থাপক) হিসেবে তৈরি, যা পূর্ববর্তী সংস্করণের সাথে সামঞ্জস্য নষ্ট করে না।
আপনার কোডের শুরুতে হয় library(dplyr) (একক প্যাকেজটির জন্য), নয়তো library(tidyverse) (সম্পূর্ণ সংগ্রহের জন্য) যোগ করে dplyr প্যাকেজটি কাজের আওতায় আনা যায়।
dplyr লাইব্রেরি switch-এর সাথে সম্পর্কিত দুটি অতিরিক্ত ফাংশন দেয়।
recode_values ও replace_values ফাংশন
এই দুটি সম্পর্কিত ফাংশন পুরোনো মান থেকে নতুন মানে ভেক্টরাইজড, switch-এর মতো ম্যাপিং করতে দেয়।
এদের মধ্যে মূল পার্থক্য হলো recode_values() সম্পূর্ণ নতুন একটি ভেক্টর তৈরি করে, আর replace_values() একটি বিদ্যমান ভেক্টরের আংশিক পরিবর্তন করতে দেয়।
মিল এখনও হুবহু, তবে:
- বাম দিকের অপশনগুলো ভেক্টর হতে পারে, আর কোনো একটি এলিমেন্ট মিললেই ইনপুটটি মিলে যায়।
- বাম দিকের অপশন ও ডান দিকের ফলাফল
=-এর বদলে টিল্ডা ~ দিয়ে যুক্ত করা হয়।
- সব ক্ষেত্রেই একটি ডিফল্ট নির্দিষ্ট করা যায়।
library(dplyr)
x <- c("a", "b", "a", "d", "b", NA, "c", "e", "z")
recode_values(
x,
"a" ~ 1,
"b" ~ 2,
"c" ~ 3,
c("d", "e") ~ 4, # either "d' or "e" will match
NA ~ 0, # matches missing values
default = 100 # note the different syntax for the default
)
#> [1] 1 2 1 4 2 0 3 4 100
case_when ফাংশন
case_when case_match সিনট্যাক্সকে আরও এক ধাপ এগিয়ে নেয়, কারণ এটি ~-এর বাম দিকে যেকোনো লজিক্যাল এক্সপ্রেশন ব্যবহার করতে দেয়।
ইনপুট ভেক্টরটি (নিচের উদাহরণে x) আর্গুমেন্ট হিসেবে দেওয়া হয় না, এটি আগে থেকেই ডিফাইন করা থাকলেই হয়।
x <- 1:10
case_when(
x < 3 ~ "low",
between(x, 3, 5) ~ "mid",
between(x, 6, 8) ~ "high",
.default = "what?"
)
#> [1] "low" "low" "mid" "mid" "mid" "high" "high" "high" "what?" "what?"
between() ফাংশনটিও dplyr-এর অংশ।
লার্নিং অনুশীলনী
