หลายแก้ไขลวดลายจุดเชื่อมต่อ stencils case_when ในสเปนเซอร์รี้ดครับ R

ฉันกำลังพยายามเพิ่มใหม่คอลัมน์(สี)ของข้อมูลของกรอบ. ค่าในแถวขึ้นอยู่กับค่าในอีกสองคนคอลัมน์. ตัวอย่างเช่น,ตอนที่ชั้นเรียนคืนค่าเท่ากับ 4 และ Metro_status คืนค่าเท่ากับรถไฟใต้ดินฉันอยากให้มีเหยื่อที่เป็นค่ากลับมาอยู่ในที่ตรงแถวอยู่ในคอลัมน์แสดงผล view->. ฉันพยายามทำแบบนี้กับ case_when ใช้ dplyr และมันทำงาน...เพื่อเป็นถึงขนาดนั้นหรอกครับ

ส่วนใหญ่ของค่าต่างๆของสี outputted เข้าไปในสีของคอลัมน์ไม่บรรทัดที่กำหนดไว้เงื่อนไข สำหรับตัวอย่างแรกที่แถว(โนม Census พื้นที่)ควรจะออกค่าสี "#fcc48b" แต่แทนที่จะเป็น "#d68182".

ฉันทำอะไรผิดเหรอ? เมื่อกี้!

นี่คือของฉันรหัส:

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

นี่คือสิ่งที่ข้อมูลดูเหมือนกรอบ