R'de çok koşullu case_when

Veri çerçeveme yeni bir sütun (renk) eklemeye çalışıyorum. Satırdaki değer, diğer iki sütundaki değerlere bağlıdır. Örneğin, sınıf değeri 4'e eşit olduğunda ve Metro_status değeri Metro'ya eşit olduğunda, yeni sütundaki ilgili satırda belirli bir değerin döndürülmesini istiyorum. Bunu dplyr kullanırken case_ ile yapmayı denedim ve işe yaradı... bir ölçüde.

Renk sütununa çıkan renk değerlerinin çoğunluğu tanımlanan koşullarla aynı hizada değildir. Örneğin, ilk satırların (Nome Sayım Alanı) renk değeri aşağıdaki gibi olmalıdır: "#fcc48b" ama bunun yerine "#d68182".

Neyi yanlış yapıyorum?? TIA!

İşte kodum:

#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")

İşte veri çerçevesi neye benziyor