数据(谋杀)
谋杀_2 <- murders %>%
变异(比率 = 总数 / 人口 * 100000) %>%
变异(idx = case_when(速率< median(rate) ~ "low",
真〜“高”))%>%
选择(州,地区,费率,idx)%>%
group_by(idx)
group_by(idx) 不适用。 有什么问题吗?
希望结果按照idx排序
Can write like this to solve problems.
murders_2 <- murders %>%
mutate(rate = total / population * 100000) %>%
mutate(idx = case_when(rate < median(rate) ~ "low",
TRUE ~ "high`enter code here`")) %>%
select(state, region, rate, idx) %>%
group_by(idx)