如何用一个新的组和创建新的观测？
如何用一个新的组和创建新的观测？
提问于 2016-06-17 20:03:03
我有以下数据：
gender age population
H 0-4 5
H 5-9 5
H 10-14 10
H 15-19 15
H 20-24 15
H 25-29 10
M 0-4 0
M 5-9 5
M 10-14 5
M 15-19 15
M 20-24 10
M 25-29 15我需要在以下数据中重新划分年龄类别：
gender age population
H 0-14 20
H 15-19 15
H 20-29 25
M 0-14 10
M 15-19 15
M 20-29 25我对dplyr有偏好，所以如果有一种方法使用这个包来完成这个任务，我很感激。
回答 2
Stack Overflow用户
回答已采纳
发布于 2016-06-17 20:18:50
使用字符串拆分- tidyr::separate()和cut()
library(dplyr)
library(tidyr)
df1 %>%
separate(age, into = c("age1", "age2"), sep = "-", convert = TRUE ) %>%
mutate(age = cut(age1,
breaks = c(0, 14, 19, 29),
labels = c("0-14", "15-19", "20-29"),
include.lowest = TRUE)) %>%
group_by(gender, age) %>%
summarise(population = sum(population))
# output
# gender age population
# (fctr) (fctr) (int)
# 1 H 0-14 20
# 2 H 15-19 15
# 3 H 20-29 25
# 4 M 0-14 10
# 5 M 15-19 15
# 6 M 20-29 25Stack Overflow用户
发布于 2016-06-17 20:26:15
data.table解决方案，其中dat是表：
library(data.table)
dat <- as.data.table(dat)
dat[ , mn := as.numeric(sapply(strsplit(age, "-"), "[[", 1))]
dat[ , age := cut(mn, breaks = c(0, 14, 19, 29),
include.lowest = TRUE,
labels = c("0-14", "15-19", "20-29"))]
dat[ , list(population = sum(population)), by = list(gender, age)]
# gender age population
# 1: H 0-14 20
# 2: H 15-19 15
# 3: H 20-29 25
# 4: M 0-14 10
# 5: M 15-19 15
# 6: M 20-29 25页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/37889559
复制相关文章
相似问题
腾讯云开发者
