बहु सशर्त case_when में आर

मैं कोशिश कर रहा हूँ को जोड़ने के लिए एक नया स्तंभ (रंग) करने के लिए अपने डेटा फ्रेम. में मान पंक्ति पर निर्भर करता है के मूल्यों में दो अन्य स्तंभों. उदाहरण के लिए, जब वर्ग के मूल्य के बराबर है 4 और Metro_status मूल्य के बराबर है मेट्रो, मैं करना चाहते हैं एक विशिष्ट मूल्य में लौट इसी पंक्ति में नए स्तंभ । मैं ऐसा करने की कोशिश की इस के साथ case_when का उपयोग कर dplyr और यह काम किया है... एक हद तक.

बहुमत के रंग मूल्यों outputted में रंग कॉलम में अप लाइन नहीं है के साथ परिभाषित किया गया स्थिति. उदाहरण के लिए, पहली पंक्तियों (नोम जनगणना क्षेत्र) रंग मूल्य होना चाहिए "#fcc48b" लेकिन इसके बजाय है "#d68182".

मैं क्या कर रहा हूँ गलत?? TIA!

यहाँ अपने कोड:

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

यहाँ है क्या डेटा फ्रेम की तरह लग रहा है