如何使用dplyr :: nest计算出两个数据集之间的差异

Question

1）我有一个名为“ UBER”的事务文件
2）我还有一个“目标” df，我需要将其总数与“ UBER”总数相匹配
3）我需要找到Target和UBER之间的区别（〜Target-UBER）
4）然后将差异覆盖到UBER，这将使UBER = Target

UBER的数据-交易文件

UBER <- data.frame(
    Cube = c("UBER", "UBER", "UBER", "UBER"),
 Country = c("AU", "AU", "AU", "AU"),
 Product = c("0001", "0001", "0001", "0001"),
     LOB = c("xxx", "xxx", "xxx", "xxx"),
  Mth_Yr = 1:4,
 Revenue = c(5, 5, 5, 5)
    )

目标df应该是

Target <- data.frame(
    Cube = c("Target", "Target", "Target", "Target"),
 Country = c("AU", "AU", "AU", "AU"),
 Product = c("0001", "0001", "0001", "0001"),
     LOB = c("xxx", "xxx", "xxx", "xxx"),
  Mth_Yr = 1:4,
 Revenue = c(10, 10, 10, 10)
      )

我建立了一个函数来帮助我进行分析：

target_less_uber <- function(df){

  target <- df %>% #as.data.frame() %>%
        filter(Cube == "Target") %>%
        select(Revenue) %>% as.numeric()

  uber  <- df %>% #as.data.frame() %>%
        filter(Cube == "UBER") %>%
        select(Revenue) %>% as.numeric()      

  output <- data.frame(Overlay = target - uber)

  return(output)

}

这是我尝试过的-不起作用

 library(dplyr) library(purrr) ALL <- rbind(Target, UBER) ALL %>% nest(Cube, Revenue) %>% transmute(Country, Product, LOB, Mth_Yr, res = map(data, target_less_uber) %>% unnest 

任何帮助建议都将受到高度赞赏。

Answer 1

我对nest()命令不是很熟悉，因此无法在那里对您的代码进行故障排除，但是以下代码对我有用：

inner_join(UBER %>% select(-Cube) %>% rename(UBER = Revenue),
           Target %>% select(-Cube) %>% rename(Target = Revenue)) %>%
  mutate(overlay = Target - UBER) %>%
  select(-UBER, -Target)