簡體   English   中英

R 在 dataframe 中組合行和列

[英]R combine rows and columns within a dataframe

我環顧四周想弄清楚這個問題,但我似乎無法足夠簡潔地描述我的問題,無法用谷歌搜索解決問題。 我正在嘗試使用密歇根 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),]

代碼塊output 圖片

你可以這樣做:

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

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM