首頁猿問兩個(gè)(或更多)向量中所有元素的唯一組合

兩個(gè)(或更多)向量中所有元素的唯一組合

R語言

胡說叔叔 2019-07-12 10:30:11

兩個(gè)(或更多)向量中所有元素的唯一組合在R中，我試圖從兩個(gè)不同大小的向量中創(chuàng)建一個(gè)所有元素的獨(dú)特組合。例如，第一個(gè)向量是> a <- c("ABC", "DEF", "GHI")第二個(gè)是當(dāng)前存儲為字符串的日期。> b <- c("2012-05-01", "2012-05-02", "2012-05-03", "2012-05-04", "2012-05-05")我需要創(chuàng)建一個(gè)有兩列的數(shù)據(jù)框架，如下所示> data a b1 ABC 2012-05-012 ABC 2012-05-023 ABC 2012-05-034 ABC 2012-05-045 ABC 2012-05-056 DEF 2012-05-017 DEF 2012-05-028 DEF 2012-05-039 DEF 2012-05-0410 DEF 2012-05-0511 GHI 2012-05-0112 GHI 2012-05-0213 GHI 2012-05-0314 GHI 2012-05-0415 GHI 2012-05-05基本上，我在尋找一個(gè)獨(dú)特的組合，考慮一個(gè)向量的所有元素(A)與第二個(gè)向量(B)的所有元素并置。一個(gè)理想的解決方案將推廣到更多的輸入向量。另見：如何生成組合矩陣

查看完整描述

3 回答

慕蓋茨4494581

TA貢獻(xiàn)1850條經(jīng)驗(yàn) 獲得超11個(gè)贊

這也許是你想要的

> expand.grid(a,b)

Var1 Var2

1 ABC 2012-05-01

2 DEF 2012-05-01

3 GHI 2012-05-01

4 ABC 2012-05-02

5 DEF 2012-05-02

6 GHI 2012-05-02

7 ABC 2012-05-03

8 DEF 2012-05-03

9 GHI 2012-05-03

10 ABC 2012-05-04

11 DEF 2012-05-04

12 GHI 2012-05-04

13 ABC 2012-05-05

14 DEF 2012-05-05

15 GHI 2012-05-05

如果得到的訂單不是您想要的，那么您可以隨后進(jìn)行排序。如果您將參數(shù)命名為expand.grid，它們將成為列名：

df = expand.grid(a = a, b = b)

df[order(df$a), ]

和expand.grid概括為任意數(shù)量的輸入列。

反對回復(fù) 2019-07-12

繁花如伊

TA貢獻(xiàn)2012條經(jīng)驗(yàn) 獲得超12個(gè)贊

這個(gè)tidyr軟件包提供了一個(gè)不錯(cuò)的選擇crossing，這比經(jīng)典的要好得多。expand.grid函數(shù)，因?yàn)?1)字符串沒有轉(zhuǎn)換為因子，(2)排序更直觀：

library(tidyr)

a <- c("ABC", "DEF", "GHI")

b <- c("2012-05-01", "2012-05-02", "2012-05-03", "2012-05-04", "2012-05-05")

crossing(a, b)

# A tibble: 15 x 2

a b

1 ABC 2012-05-01

2 ABC 2012-05-02

3 ABC 2012-05-03

4 ABC 2012-05-04

5 ABC 2012-05-05

6 DEF 2012-05-01

7 DEF 2012-05-02

8 DEF 2012-05-03

9 DEF 2012-05-04

10 DEF 2012-05-05

11 GHI 2012-05-01

12 GHI 2012-05-02

13 GHI 2012-05-03

14 GHI 2012-05-04

15 GHI 2012-05-05

反對回復(fù) 2019-07-12

叮當(dāng)貓咪

TA貢獻(xiàn)1776條經(jīng)驗(yàn) 獲得超12個(gè)贊

在這里失蹤r-常見問題概述是CJ-職能數(shù)據(jù)表-包裹。使用：

library(data.table)CJ(a = a, b = b, unique = TRUE)

給予：

      a          b 1: ABC 2012-05-01
 2: ABC 2012-05-02
 3: ABC 2012-05-03
 4: ABC 2012-05-04
 5: ABC 2012-05-05
 6: DEF 2012-05-01
 7: DEF 2012-05-02
 8: DEF 2012-05-03
 9: DEF 2012-05-0410: DEF 2012-05-0511: GHI 2012-05-0112: GHI 2012-05-0213: GHI 2012-05-0314: GHI 2012-05-0415: GHI 2012-05-05

在未來版本中數(shù)據(jù)表你可以用：CJ(a, b, unique = TRUE)(另見這里和這里).

您已經(jīng)可以通過設(shè)置以下選項(xiàng)來利用此功能：options("datatable.CJ.names" = TRUE)

反對回復(fù) 2019-07-12