我有如下数据:
grp REGIONNAME RegionName `Año 2004_1` `Año 2004_2` `Año 2004_3`
<int> <chr> <chr> <dbl> <dbl> <dbl>
1 1 ANDALUCÍA ANDALUCÍA 32143 37962 32374
2 1 ANDALUCÍA Almería NA NA NA
3 1 ANDALUCÍA Abla 58 61 54
4 1 ANDALUCÍA Abrucena 6 2 1
5 1 ANDALUCÍA Adra 146 211 101
6 1 ANDALUCÍA Albánchez 12 3 3
7 1 ANDALUCÍA Alboloduy 2 2 2
8 1 ANDALUCÍA Albox 33 66 35
9 1 ANDALUCÍA Alcolea 0 1 1
10 1 ANDALUCÍA Alcóntar 1 1 2
在这个示例中，它包含2NA行，一行用于Almeria，另一行用于Balanegra.
我想创建一个新的专栏，比如说RegionName篇.它将由这两个单元格填充.i、 e.预期输出为:
grp REGIONNAME RegionName RegionName
<int> <chr> <chr> <chr>
1 1 ANDALUCÍA ANDALUCÍA ANDALUCIA/NA
2 1 ANDALUCÍA Almería Almeria
3 1 ANDALUCÍA Abla Almeria
4 1 ANDALUCÍA Abrucena Almeria
5 1 ANDALUCÍA Adra Almeria
6 1 ANDALUCÍA Albánchez Almeria
7 1 ANDALUCÍA Alboloduy Almeria
8 1 ANDALUCÍA Albox ...
9 1 ANDALUCÍA Alcolea ...
10 1 ANDALUCÍA Alcóntar ...
...............
1 1 ANDALUCÍA Bacares ...
2 1 ANDALUCÍA Balanegra Balanegra
3 1 ANDALUCÍA Bayárcal Balanegra
4 1 ANDALUCÍA Bayarque Balanegra
5 1 ANDALUCÍA Bédar Balanegra
6 1 ANDALUCÍA Beires
7 1 ANDALUCÍA Benahadux ....
8 1 ANDALUCÍA Benitagla ....
9 1 ANDALUCÍA Benizalón
10 1 ANDALUCÍA Bentarique Balanegra
因此，当它在3列中看到NA的值时，它表示一个新的"区域".
最后，我想将这个新创建的区域设置为group_by，并计算cumsum，以填充NA个值.
当我想填写ANDALUCIA的NA值时，我做了一些与REGIONNAME列"类似"的事情.
... %>%
group_by(grp = cumsum(RegionName == toupper(RegionName))) %>%
mutate(REGIONNAME = first(RegionName)) %>%
relocate(REGIONNAME, .before = RegionName) %>%
mutate(across(starts_with("Año"),
~ ifelse(REGIONNAME == RegionName, sum(.x[REGIONNAME != RegionName], na.rm = T), .x)))
数据:
df = structure(list(grp = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L), REGIONNAME = c("ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA",
"ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA",
"ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA",
"ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA",
"ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA",
"ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA", "ANDALUCÍA",
"ANDALUCÍA", "ANDALUCÍA"), RegionName = c("ANDALUCÍA", "Almería",
"Abla", "Abrucena", "Adra", "Albánchez", "Alboloduy", "Albox",
"Alcolea", "Alcóntar", "Alcudia de Monteagud", "Alhabia", "Alhama de Almería",
"Alicún", "Almería", "Almócita", "Alsodux", "Antas", "Arboleas",
"Armuña de Almanzora", "Bacares", "Balanegra", "Bayárcal",
"Bayarque", "Bédar", "Beires", "Benahadux", "Benitagla", "Benizalón",
"Bentarique"), `Año 2004_1` = c(32143, NA, 58, 6, 146, 12, 2,
33, 0, 1, 1, 1, 13, 0, 748, 0, 1, 6, 16, 0, 2, NA, 0, 0, 8, 0,
18, 1, 2, 0), `Año 2004_2` = c(37962, NA, 61, 2, 211, 3, 2,
66, 1, 1, 1, 0, 15, 1, 770, 0, 10, 12, 16, 0, 1, NA, 1, 0, 2,
0, 21, 0, 0, 0), `Año 2004_3` = c(32374, NA, 54, 1, 101, 3,
2, 35, 1, 2, 0, 0, 14, 0, 701, 0, 3, 26, 14, 0, 0, NA, 0, 3,
8, 0, 25, 0, 2, 0)), class = c("grouped_df", "tbl_df", "tbl",
"data.frame"), row.names = c(NA, -30L), groups = structure(list(
grp = 1L, .rows = structure(list(1:30), ptype = integer(0), class = c("vctrs_list_of",
"vctrs_vctr", "list"))), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -1L), .drop = TRUE))