在R中创建穷举案例列 [英] Creating exhaustive case columns in R

问题描述

我正在尝试生成一列性别组合"，以创建交互术语的详尽类别，如下表所示.在R中有简单的方法吗?

I am trying to generate a column "Gender Combinations" that creates exhaustive categories of interaction terms like in the table below. Is there an easy way to do this in R?

+--------------+--------------+--------------+---------------------+
| EMP 1 Gender | EMP 2 Gender | Emp 3 Gender | Gender Combinations |
+--------------+--------------+--------------+---------------------+
| Male         |              |              | 1 Male              |
| Female       |              |              | 1 Female            |
|              | Male         |              | 1 Male              |
|              | Female       |              | 1 Female            |
|              |              | Male         | 1 Male              |
|              |              | Female       | 1 Female            |
| Male         | Female       |              | 1 Male, 1 Female    |
|              | Male         | Female       | 1 Male, 1 Female    |
| Male         |              | Female       | 1 Male, 1 Female    |
|              | Female       | Male         | 1 Male, 1 Female    |
| Female       |              | Male         | 1 Male, 1 Female    |
| Female       | Male         |              | 1 Male, 1 Female    |
|              | Female       | Male         | 1 Male, 1 Female    |
| Male         |              | Female       | 1 Male, 1 Female    |
|              | Male         | Female       | 1 Male, 1 Female    |
| Male         | Male         | Female       | 1 Male, 1 Female    |
| Male         | Female       | Male         | 2 Males, 1 Female   |
| Female       | Male         | Male         | 1 Female, 2 Males   |
| Female       | Female       | Male         | 2 Females, 1 Male   |
| Female       | Male         | Female       | 2 Females, 1 Male   |
| Male         | Female       | Female       | 2 Females, 1 Male   |
| Male         | Male         | Male         | 3 Males             |
| Female       | Female       | Female       | 3 Females           |
+--------------+--------------+--------------+---------------------+

推荐答案

这是使用apply方法的方法，其边距为1来捕获行，

Here is a method using the apply method with margin 1 to capture rows,

dd <- data.frame(V1 = c('M', 'F', '', 'M'), 
                 V2 = c('', 'F', 'M', 'M'), 
                 V3 = c('F', 'M', 'M', ''), stringsAsFactors = FALSE)

dd
#   V1 V2 V3
#1  M     F
#2  F  F  M
#3     M  M
#4  M  M   

apply(dd, 1, function(i){M1 <- sum(i == 'M'); F1 <- sum(i == 'F'); paste0(M1, ' Male', ' ', F1, ' Female')})
#[1] "1 Male 1 Female" "1 Male 2 Female" "2 Male 0 Female" "2 Male 0 Female" 

矢量化解决方案

为避免可怕的apply(df, 1, ...)，您可以使用rowSums，即

To avoid the terrible apply(df, 1, ...), you can use rowSums, i.e.

paste0(rowSums(dd == 'M'), ' Males', ' ', rowSums(dd == 'F'), ' Females')

这篇关于在R中创建穷举案例列的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！