By: Maxene Hablo & Jean Torres

# This is for the clients requirements on color coding presentation in bar graph. # Install and load the BMS package for hex2bin function install.packages("BMS") library(BMS) # Define your hexadecimal colors hex_colors <- c("#FF5733", "#33FF57", "#3357FF", "#FF33A1", "#A133FF", "#33FFF5", "#F5FF33") # Convert hexadecimal to binary (just for demonstration) binary_colors <- sapply(hex_colors, function(x) paste(hex2bin(substr(x, 2, 7)), collapse = "")) # Print binary colors print(binary_colors) # Create a bar plot with the hexadecimal colors barplot(1:7, col = hex_colors, main = "Bar Plot with Hexadecimal Colors")