Multi condiționată case_when în R

Am încercat să adăugați o nouă coloană (de culoare) cu datele mele de cadru. Valoarea în rând depinde de valorile din alte două coloane. De exemplu, atunci când valoarea de clasă este egal cu 4 și Metro_status valoare este egală cu Metroul, vreau o anumită valoare a revenit în rândul corespunzător în noua coloană. Am încercat să fac acest lucru cu case_when folosind dplyr si a mers... până la un punct.

Majoritatea valori de culoare scoase în culoarea coloana nu se aliniază cu condiții definite. De exemplu, în primele rânduri (Nome Census Area) valoarea de culoare ar trebui să fie "#fcc48b" dar, în schimb, este "#d68182".

Ce fac gresit?? TIA!

Aici e codul meu:

#set working directory
  setwd("C:/Users/weirc/OneDrive/Desktop/Undergrad Courses/Fall 2021 Classes/GHY 3814/final project/data")
        
  #load packages
  library(readr)
  library(dplyr)
        
  #load data
  counties <- read_csv("vaxData_counties.csv")
        
  #create new column for class
  updated_county_data <- counties %>%
    mutate(class = case_when(
      Series_Complete >=75 ~ 4,
      Series_Complete >= 50 ~ 3,
      Series_Complete >= 25 ~ 2,
      TRUE ~ 1
    ), color = case_when(
      class == 4 | Metro_status == 'Metro' ~ '#d62023',
      class == 4 | Metro_status == 'Non-metro' ~ '#d68182',
      class == 3 | Metro_status == 'Metro' ~ '#fc9126',
      class == 3 | Metro_status == 'Non-metro' ~ '#fcc48b',
      class == 2 | Metro_status == 'Metro' ~ '#83d921',
      class == 2 | Metro_status == 'Non-metro' ~ '#abd977',
      class == 1 | Metro_status == 'NA' ~ '#7a7a7a'
    ))
  
  View(updated_county_data)
  
  write.csv(updated_county_data, file="county_data_manip/updated_county_data.csv")

Aici e ceea ce cadru de date arata ca