主页 / coding / 问题 / 77622184
Accepted
kansasliketheband
Asked: 2023-12-08 01:59:46 +0800 CST

按组在长格式的 id 列中添加新标识符

  • 772

假设我想在数据集中创建一个class名为 的新标识符，用于计算第 1 组和第 2 组之间吉普车、路虎和斯巴鲁的里程总和。有没有办法在tidyverse中执行此操作，而不将其转换为宽格式？这是一些代码（当然，这不起作用），它显示了我想要实现的目标。outdoorsmpghwy 

library(tidyverse)
data(mpg)

mpg_new <- mpg %>%
   mutate(group = rep(c(1,2), times = 117)) %>%
   group_by(group) %>%
   mutate(hwy[class="outdoors"] = sum(hwy[manufacturer=="jeep"], hwy[manufacturer=="land rover"], hwy[manufacturer=="subaru"]))

# class="outdoors" is the new identifier I am trying to create within the class variable

1 个回答

  1. Best Answer

    通常，更新某些但不是全部行的 tidyverse 方法是使用ifelseor case_when，并将原始值作为“else”或默认值。

    我们将分两步进行，首先更新class列，然后更新hwy列：

    mpg_new = mpg |>
   mutate(
     group = rep(c(1,2), times = 117),
     class = ifelse(manufacturer %in% c("jeep", "land rover", "subaru"), "outdoors", class)
   ) %>%
   group_by(group, class) %>%
   mutate(
     hwy = ifelse(class == "outdoor", sum(hwy), hwy)
    )

    我还注意到，这可以在 6 行数据框架上轻松地演示，并且更加清晰 - 我强烈建议尝试找到最少的示例 - 它更容易理解并且更容易调试。

    • 1

相关问题