Объединение столбцов таблицы, основанные на возрасте

Question

У меня есть таблица в R, который выглядит как (ниже просто пример):

|  | 15 | 17 | 18 | 22 | 25 | 26 | 27 | 29 | 
|-------|----|----|----|----|----|----|----|----| 
| 10000 | 1 | 2 | 1 | 2 | 4 | 3 | 5 | 2 | 
| 20000 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 
| 30000 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 
| 40000 | 0 | 0 | 0 | 1 | 2 | 3 | 6 | 3 | 
| 50000 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 1 | 
| 60000 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 

Строки уровни дохода, а столбцы являются уровни возраста. Я, по сути, создаю эту таблицу, чтобы узнать, связан ли возраст с доходом с помощью теста Чи-квадрат. Числами в таблице являются числа вхождений, например. В моем наборе данных есть 2 человека в возрасте 17 лет с доходом 10000.

И возраст и уровень дохода типа «num» в R так непрерывны.

Я хочу по существу сочетать столбцы по возрасту, чтобы получить таблицу со всеми, у кого есть доход в 10 тыс. Человек, и между возрастом 15-25 лет, 25-35 лет и т. Д., Поэтому я получаю гораздо меньше столбцов.

Отметьте также, что colnames (tbl) = "15", "17", "18", не "Возраст" - я не определил общее имя для своих столбцов и строк.

Я отмечаю, что this answer делает что-то подобное, но не уверен, как применить его, учитывая, что у меня нет имени для моих столбцов, например. «mpg» (в случае ссылки).

Любые идеи?

Answer 1

Сделал мою собственную матрицу здесь, но должен работать и для df.

mat <- matrix(sample(1:10,8500,replace = TRUE),ncol=85) 
colnames(mat) <- 15:99 
levs <- cut(as.numeric(colnames(mat)),seq(15,105,10),right = FALSE) 
res <- sapply(as.character(unique(levs)),function(x)rowSums(mat[,levs==x])) 

Edit: Если вы хотите же COLNAMES как в коврике, но считается в зависимости от категории, в дополнение сделать:

res <- res[,levs] # expands the res df to one category count col pr. original col in mat. 
colnames(res) <- colnames(mat) # renames cols to reflect input matrix mat.