r - 如何在 R 中总结和分组
问题描述
R 新手,尝试创建一些数据摘要。
test_data <- tibble(x=1:10,y=11:20, room=c("a","b","a","b","a","b","a","b","a","b"), colour=c("red","blue","green","black","red","red","blue","green","black","red"))
summary_data <- test_data %>%
filter(room != "NA") %>%
group_by(room) %>%
summarise_all(funs(sum(complete.cases(.)))) %>%
rename_all(~paste0("risk_",colnames(summary_data)))
给出:
> summary_data
# A tibble: 2 x 4
risk_room risk_x risk_y risk_colour
<chr> <int> <int> <int>
1 a 5 5 5
2 b 5 5 5
这根本不是我想要的!我正在尝试的是:
或者
解决方案
使用看门人和 tidyverse
library(tidyverse)
library(janitor)
test_data <- tibble(x=1:10,y=11:20, room=c("a","b","a","b","a","b","a","b","a","b"), colour=c("red","blue","green","black","red","red","blue","green","black","red"))
test_data %>%
group_by(room, colour) %>%
tally() %>%
spread(colour, n) %>%
adorn_totals("col", name = "Count") %>%
adorn_totals("row",name = "Total")
推荐阅读
- javascript - 用户身份验证登录的最佳方法是什么?
- apache-flink - Flink - 为什么我应该创建自己的 RichSinkFunction 而不是仅仅打开和关闭我的 PostgreSql 连接?
- javascript - 使用 Vue 修改数组时出现意外行为
- c# - 通过控制器将身份生成的 ID 作为查询字符串参数传递到下一页
- javascript - 如何将前端资产从 git repo/npm 项目添加到 rails 项目
- c# - 如何确定用户是否启用了身份验证器
- reactjs - 如何在使用打字稿验证的反应中创建 HOC 组件
- excel - 如何在不删除整行的情况下从单个 powerquery 列中删除重复项
- jquery - 无法在 jquery 中提交表单
- oracle - oracle 失败触发验证