r-使用mtcars数据制作气缸与中心(mpg)的汇总表

Question

Bare with me…我正在使用R/RStudio与数据mtcars、dplyr和summary命令。还尝试了的组。

我想将mtcars$mpg的值居中，然后获取该信息并显示气缸数与居中mtcars$mpg的总数。

到目前为止。。。

mtcars %>% mutate(centered_mpg = mpg - mean(mpg, na.rm = TRUE)) %>% summarise(centered_mpg, cyl)

以上产生：

centered_mpg	cyl
0.909375	6
0.909375	6
2.709375	4
1.309375	6

你在找这个吗？

with(mtcars, aggregate(list(centered_mpg=scale(mpg, scale=FALSE)), list(cyl=cyl), mean))
#   cyl centered_mpg
# 1   4    6.5730114
# 2   6   -0.3477679
# 3   8   -4.9906250

看起来您想通过减去全局mean(mpg)来将每辆车的mpg居中。这为每辆车提供了一个centered_mpg，您所拥有的代码看起来很好。

然后你想计算某种"；摘要"；以圆柱体组为中心的mpg值，所以我们需要group_by(cyl)，然后定义你想要的任何摘要函数——这里我使用mean()，但你可以使用median、sum或你想要的其他函数。

mtcars %>% 
mutate(centered_mpg = mpg - mean(mpg, na.rm = TRUE)) %>% 
group_by(cyl) %>% 
summarise(mean_centered_mpg = mean(centered_mpg))
# # A tibble: 3 x 2
#     cyl mean_centered_mpg
#   <dbl>             <dbl>
# 1     4             6.57 
# 2     6            -0.348
# 3     8            -4.99