根据 tidyverse 中的列名称创建新列

问题描述 投票：0回答：1

我的数据集有提到变量类别的列，例如： 栏目名称是“Shrawan 2071 - 狗咬”。这里“Shrawan”是月份，“2071”是年份，“-Dog Bite”是咬合类型。同样，我还有另一列“Bhadra 2071 - 其他狂犬病易感动物咬伤”，其中“Bhadra”是月份，“2071”是年份，“其他狂犬病易感动物咬伤”是咬伤类型，依此类推。这样，我就有了 12 个不同的月份类别、2 种咬合类型和 10 年的数据。如何在 tidyverse 中将这些列名称作为单独列中的类别分开？

我的数据使用“dput(head(bites_hmis, 10)[, 1:30])”：

structure(list(Province = c("1 Koshi Province", "1 Koshi Province", 
"1 Koshi Province", "1 Koshi Province", "1 Koshi Province", "1 Koshi Province", 
"1 Koshi Province", "1 Koshi Province", "1 Koshi Province", "1 Koshi Province"
), District = c("101 TAPLEJUNG", "101 TAPLEJUNG", "101 TAPLEJUNG", 
"101 TAPLEJUNG", "101 TAPLEJUNG", "101 TAPLEJUNG", "101 TAPLEJUNG", 
"101 TAPLEJUNG", "101 TAPLEJUNG", "101 TAPLEJUNG"), Municipaltiy = c("10108 Sirijanga Rural Municipality", 
"10109 Sidingba Rural Municipality", "10107 Yangwarak Rural Municipality", 
"10105 Aatharai Tribeni Rural Municipality", "10105 Aatharai Tribeni Rural Municipality", 
"10105 Aatharai Tribeni Rural Municipality", "10106 Phungling Municipality", 
"10106 Phungling Municipality", "10104 Maiwakhola Rural Municipality", 
"10106 Phungling Municipality"), Ward = c("10108 Sirijanga 02", 
"10109 Sidingba 03", "10107 Yangwarak 05", "10105 Aatharai Tribeni 05", 
"10105 Aatharai Tribeni 04", "10105 Aatharai Tribeni 02", "10106 Phungling 01", 
"10106 Phungling 02", "10104 Maiwakhola 02", "10106 Phungling 08"
), `Health Facility` = c("AMBEGUDIN HP TAPLEJUNG", "ANGKHOP HP TAPLEJUNG", 
"CHAKSIBOTE HP TAPLEJUNG", "CHANGE BHSC TAPLEJUNG", "CHANGE HP TAPLEJUNG", 
"CHOKPUR HP TAPLEJUNG", "DANDAGAUN BHSC PHUNGLING 01 TAPLEJUNG", 
"DEULINGE BHSC TAPLEJUNG", "DHUNGESAGHU PHC TAPLEJUNG", "DOKHU HP TAPLEJUNG"
), `Shrawan 2071 -Dog Bite` = c(NA, NA, NA, NA, 2, NA, NA, NA, 
NA, 2), `Shrawan 2071 -Other Rabies Susceptible Animal Bite` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), `Bhadra 2071 -Dog Bite` = c(NA, NA, NA, 
NA, 2, NA, NA, NA, 1, NA), `Bhadra 2071 -Other Rabies Susceptible Animal Bite` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), `Ashwin 2071 -Dog Bite` = c(NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_), `Ashwin 2071 -Other Rabies Susceptible Animal Bite` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), `Kartik 2071 -Dog Bite` = c(NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_), `Kartik 2071 -Other Rabies Susceptible Animal Bite` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), `Mangsir 2071 -Dog Bite` = c(NA, NA, NA, 
NA, 1, NA, NA, NA, NA, NA), `Mangsir 2071 -Other Rabies Susceptible Animal Bite` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), `Poush 2071 -Dog Bite` = c(NA, NA, NA, NA, 
2, NA, NA, NA, NA, 1), `Poush 2071 -Other Rabies Susceptible Animal Bite` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), `Magh 2071 -Dog Bite` = c(NA, NA, NA, NA, 
1, NA, NA, NA, NA, NA), `Magh 2071 -Other Rabies Susceptible Animal Bite` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), `Falgun 2071 -Dog Bite` = c(NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_), `Falgun 2071 -Other Rabies Susceptible Animal Bite` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), `Chaitra 2071 -Dog Bite` = c(NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_), `Chaitra 2071 -Other Rabies Susceptible Animal Bite` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), `Baishak 2072 -Dog Bite` = c(NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_), `Baishak 2072 -Other Rabies Susceptible Animal Bite` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), `Jestha 2072 -Dog Bite` = c(NA, NA, NA, 
NA, NA, NA, NA, NA, NA, 1), `Jestha 2072 -Other Rabies Susceptible Animal Bite` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), `Asar 2072 -Dog Bite` = c(NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_), `Asar 2072 -Other Rabies Susceptible Animal Bite` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), `Shrawan 2072 -Dog Bite` = c(NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_)), row.names = c(NA, -10L), class = c("tbl_df", "tbl", 
"data.frame"))
r dataframe dplyr r-colnames
1个回答
0
投票
bites_hmis |>
  pivot_longer(6:30) |>
  separate(name, c("Month", "Year", "Type"), extra = "merge") |>
  filter(!is.na(value))

结果

# A tibble: 9 × 9
  Province         District      Municipaltiy                              Ward                      `Health Facility`         Month   Year  Type     value
  <chr>            <chr>         <chr>                                     <chr>                     <chr>                     <chr>   <chr> <chr>    <dbl>
1 1 Koshi Province 101 TAPLEJUNG 10105 Aatharai Tribeni Rural Municipality 10105 Aatharai Tribeni 04 CHANGE HP TAPLEJUNG       Shrawan 2071  Dog Bite     2
2 1 Koshi Province 101 TAPLEJUNG 10105 Aatharai Tribeni Rural Municipality 10105 Aatharai Tribeni 04 CHANGE HP TAPLEJUNG       Bhadra  2071  Dog Bite     2
3 1 Koshi Province 101 TAPLEJUNG 10105 Aatharai Tribeni Rural Municipality 10105 Aatharai Tribeni 04 CHANGE HP TAPLEJUNG       Mangsir 2071  Dog Bite     1
4 1 Koshi Province 101 TAPLEJUNG 10105 Aatharai Tribeni Rural Municipality 10105 Aatharai Tribeni 04 CHANGE HP TAPLEJUNG       Poush   2071  Dog Bite     2
5 1 Koshi Province 101 TAPLEJUNG 10105 Aatharai Tribeni Rural Municipality 10105 Aatharai Tribeni 04 CHANGE HP TAPLEJUNG       Magh    2071  Dog Bite     1
6 1 Koshi Province 101 TAPLEJUNG 10104 Maiwakhola Rural Municipality       10104 Maiwakhola 02       DHUNGESAGHU PHC TAPLEJUNG Bhadra  2071  Dog Bite     1
7 1 Koshi Province 101 TAPLEJUNG 10106 Phungling Municipality              10106 Phungling 08        DOKHU HP TAPLEJUNG        Shrawan 2071  Dog Bite     2
8 1 Koshi Province 101 TAPLEJUNG 10106 Phungling Municipality              10106 Phungling 08        DOKHU HP TAPLEJUNG        Poush   2071  Dog Bite     1
9 1 Koshi Province 101 TAPLEJUNG 10106 Phungling Municipality              10106 Phungling 08        DOKHU HP TAPLEJUNG        Jestha  2072  Dog Bite     1
最新问题
© www.soinside.com 2019 - 2024. All rights reserved.