멀티 조건 case_when R

하는 새 열을 추가하(색깔)내 데이터를 프레임입니다. 이 행의 값 값에 따라 달라집에 다른 두 개의 열이 있습니다. 예를 들어,클래스 값이 같 4Metro_status 값이 지하철,내가 원하는 특정 반환되는 값에는 해당 행에서 새로운 컬럼입니다. 나가려고 하는 이와 case_when 를 사용하여 dplyr 고 일했을 정도입니다.

대부분의 색상 값을 출력하는 색상으로 열지 않으로 정의된 조건입니다. 예를 들어,첫 번째 행을(Nome 인구조사 지역)색상 값 "#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")

여기에 무슨 이 데이터를 프레임처럼 보인