R 故障排除：根據數據框中另一列中的值對數據框中的一列的值求和

Question

我正在為我在 R 中的數據可視化 class 的最終項目工作，並且我正在嘗試使用 CDC 數據來識別美國的少數民族占多數的縣。 對於每個縣，我只想對人口列中與種族列中的少數群體相對應的值求和。

我編寫了以下代碼來匯總少數群體的人口數量，起初它運行良好。 但是現在 minPop 列只是為每一行輸出 64590855。 任何幫助將不勝感激！

races <- c("American Indian or Alaska Native", "Asian or Pacific Islander", "Black or African American")

group_by(County.Code) %>%
   mutate(minPop = sum(subset(Population, Race %in% races))) %>%
ungroup() 

我的數據框的屏幕截圖

Answer 1

以下似乎是問題所要求的。 未經測試，因為沒有可用格式的數據。

df_dem1 %>%
  filter(Race %in% races) %>%
  group_by(County.Code) %>%
  mutate(minPop = sum(Population)) %>%
  ungroup()