r - 如何在 zoo 包中的 na.aggregate() 中使用多个因子
问题描述
如何在函数中使用多个因子变量cut,color,clarity
作为参数的by
参数,zoo::na.aggregate()
并能够将输出附加回数据框中。下面是一个使用单因素的可重现示例,即carat
来自钻石数据集。如果不可能使用 tidyverse 的任何解决方法?
library(ggplot2)
library(zoo)
diamonds$avg <- na.aggregate(object = diamonds$carat, by = diamonds$cut, mean)
View(diamonds)
解决方案
如果您试图获得carat
基于和的平均值cut
,那么这就是您要查找的内容:color
clarity
library(dplyr)
library(zoo)
diamonds %>%
group_by(cut,color,clarity) %>%
mutate(mean=na.aggregate(carat))
# A tibble: 53,940 x 11
# Groups: cut, color, clarity [276]
carat cut color clarity depth table price x y z mean
<dbl> <ord> <ord> <ord> <dbl> <dbl> <int> <dbl> <dbl> <dbl> <dbl>
1 0.23 Ideal E SI2 61.5 55 326 3.95 3.98 2.43 0.23
2 0.21 Premium E SI1 59.8 61 326 3.89 3.84 2.31 0.21
3 0.23 Good E VS1 56.9 65 327 4.05 4.07 2.31 0.23
4 0.290 Premium I VS2 62.4 58 334 4.2 4.23 2.63 0.290
5 0.31 Good J SI2 63.3 58 335 4.34 4.35 2.75 0.31
6 0.24 Very Good J VVS2 62.8 57 336 3.94 3.96 2.48 0.24
7 0.24 Very Good I VVS1 62.3 57 336 3.95 3.98 2.47 0.24
8 0.26 Very Good H SI1 61.9 55 337 4.07 4.11 2.53 0.26
9 0.22 Fair E VS2 65.1 61 337 3.87 3.78 2.49 0.22
10 0.23 Very Good H VS1 59.4 61 338 4 4.05 2.39 0.23
推荐阅读
- nunit - 使用 NUnit GUI 运行器时 NUnit XML 输出在哪里?
- excel - 将 Pandas DataFrame 转换为 Excel 工作表
- regex - 匹配PowerShell正则表达式中的多个条件
- react-native - 什么是 React Native 的 jest-preset 中的“haste”配置
- r - 使用 R(DBI 包)从 SQL Server 表中删除行
- javascript - 将 ParticlesJs 集成到视图组件中
- python - AutoShardedBot 和普通 Bot 之间有什么重大差异吗?
- mysql - 为什么我在选择yes 再次播放后无法更新我的html 模型?
- javascript - 如何使用部分超出视口的 div 制作水平滚动条
- c++ - 如何使用自适应正交例程对向量的内容进行积分