在 R 中创建详尽的案例列答案

【问题标题】：Creating exhaustive case columns in R在 R 中创建详尽的案例列
【发布时间】：2018-08-20 09:05:09
【问题描述】：

我正在尝试生成一个“性别组合”列，该列创建了详尽的交互术语类别，如下表所示。在 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           |
+--------------+--------------+--------------+---------------------+

【问题讨论】：

Creating exhaustive case columns in SQL的可能重复
@SM或者你提供的链接没有引用r
@Sotos 要我将r 标签添加到操作的自我欺骗中吗？
@MartinZeitler 可能不会。我以前没有遇到过这种情况。我会看看我们如何处理并告诉你

标签： r combinations permutation generate

【解决方案1】：

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

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，即

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

【讨论】：