将每个单元格中的值除以 R 中的组平均值

Question

我正在尝试使用源自原始图表的值生成一个新列。我想先计算同一家酒店和同一日期的组平均值，然后用这个组平均值来划分原始销售额。

这是我的代码：我尝试使用 group_by 计算组平均值并汇总嵌入到 dplyr 包中，但是它没有生成我的 expected results。

hotel = c(rep("Hilton",3), rep("Caesar",3))
date1 = c(rep('2018-01-01',2), '2018-01-02', rep('2018-01-01',3))
dba = c(2,0,1,3,2,1)
sales = c(3,5,7,5,2,3)
df = data.frame(cbind(hotel, date1, dba, sales))

df1 = df %>%
  group_by(date1, hotel) %>%
  dplyr::summarise(avg = mean(sales)) %>%
  acast(., date1~hotel)

任何建议将不胜感激！

Answer 1

我们可以使用mutate 来代替总结。按'date1'、'hotel'分组后，将'sales'除以'sales'的mean创建一个新列

library(tidyverse)
df %>% 
   group_by(date1, hotel) %>% 
   mutate(SalesDividedByMean = sales/mean(sales))

注意：当存在具有不同 types 的列时，cbinding 会导致 matrix 和 matrix 只能有一个类型。因此，character 类向量可以将整个数据更改为character。用data.frame 包装，将该更改传播到factor（默认为stringsAsFactors = TRUE 或`字符）

数据

df <- data.frame(hotel, date1, dba, sales)