R在数据框中组合行和列

Question

我环顾四周想弄清楚这个问题，但我似乎无法足够简洁地描述我的问题以 google 我的出路。我正在尝试使用密歇根 COVID 统计数据，其中的数据将底特律与韦恩县分开列出。我需要将底特律的号码添加到韦恩县的号码，然后从数据框中删除底特律的行。

我也包含了一个屏幕截图。出于这个问题的目的，有人可以解释我如何将底特律市添加到狄金森，然后让底特律市行消失吗？谢谢

library(tidyverse)
library(openxlsx)
cases_deaths <- read.xlsx("https://www.michigan.gov/coronavirus/-/media/Project/Websites/coronavirus/Cases-and-Deaths/4-20-2022/Cases-and-Deaths-by-County-2022-04-20.xlsx?rev=f9f34cd7a4614efea0b7c9c00a00edfd&hash=AA277EC28A17C654C0EE768CAB41F6B5.xlsx")[,-5]
# Remove rows that don't describe counties
cases_deaths <- cases_deaths[-c(51,52,101,102,147,148,167,168),]

Code chunk output picture

Answer 1

你可以这样做：

cases_deaths %>%
  filter(COUNTY %in% c("Wayne", "Detroit City")) %>%
  mutate(COUNTY = "Wayne") %>%
  group_by(COUNTY, CASE_STATUS) %>%
  summarize_all(sum) %>%
  bind_rows(cases_deaths %>%
            filter(!COUNTY %in% c("Wayne", "Detroit City")))
#> # A tibble: 166 x 4
#> # Groups:   COUNTY [83]
#>    COUNTY  CASE_STATUS  Cases Deaths
#>    <chr>   <chr>        <dbl>  <dbl>
#>  1 Wayne   Confirmed   377396   7346
#>  2 Wayne   Probable     25970    576
#>  3 Alcona  Confirmed     1336     64
#>  4 Alcona  Probable       395      7
#>  5 Alger   Confirmed     1058      8
#>  6 Alger   Probable       658      5
#>  7 Allegan Confirmed    24109    294
#>  8 Allegan Probable      3024     52
#>  9 Alpena  Confirmed     4427    126
#> 10 Alpena  Probable      1272     12
#> # ... with 156 more rows

^{由 reprex package (v2.0.1)}

于 2022-04-23 创建

R在数据框中组合行和列

R combine rows and columns within a dataframe

r

data-wrangling