主頁 > 企業開發 > 來自兩個向量的不同數量元素的組合

來自兩個向量的不同數量元素的組合

2022-09-07 11:16:54 企業開發

我有兩個向量:

group1 <- c("a", "b")
group2 <- c("c", "d", "e")

我想從“group1”中獲取一個元素的所有組合,從“group2”中獲取一個或兩個元素。

期望的結果是:

"a" "c" # one element from group1, one element from group 2
"b" "c"
"a" "d"
"b" "d"
"a" "e"
"b" "e"
"a" "c" "d" # one element from group1, two elements from group 2
"b" "c" "d"
"a" "c" "e"
"b" "c" "e"
"a" "d" "e"
"b" "d" "e"

uj5u.com熱心網友回復:

您可以像這樣獲得第二組的組合:

g = c(as.list(group2), combn(group2,2,simplify=F))

然后使用lapply()這些,每次c()與以下元素一起使用group1

unlist(lapply(g, \(i) lapply(group1,c,i)), recursive=F)

輸出:

[[1]]
[1] "a" "c"

[[2]]
[1] "b" "c"

[[3]]
[1] "a" "d"

[[4]]
[1] "b" "d"

[[5]]
[1] "a" "e"

[[6]]
[1] "b" "e"

[[7]]
[1] "a" "c" "d"

[[8]]
[1] "b" "c" "d"

[[9]]
[1] "a" "c" "e"

[[10]]
[1] "b" "c" "e"

[[11]]
[1] "a" "d" "e"

[[12]]
[1] "b" "d" "e"

uj5u.com熱心網友回復:

允許任何輸入向量以及從每個向量中提取的最大/最小字符數的完全通用解決方案是:

comb <- function(a, b, min_a = 1, max_a = 1, min_b = 1, max_b = 2) {
  as <- do.call(c, lapply(min_a:max_a, \(i) combn(a, i, simplify = FALSE)))
  bs <- do.call(c, lapply(min_b:max_b, \(i) combn(b, i, simplify = FALSE)))
  apply(expand.grid(as, bs), 1, unlist, use.names = FALSE)
}

默認情況下,這將給出:

comb(group1, group2)
#> [[1]]
#> [1] "a" "c"
#> 
#> [[2]]
#> [1] "b" "c"
#> 
#> [[3]]
#> [1] "a" "d"
#> 
#> [[4]]
#> [1] "b" "d"
#> 
#> [[5]]
#> [1] "a" "e"
#> 
#> [[6]]
#> [1] "b" "e"
#> 
#> [[7]]
#> [1] "a" "c" "d"
#> 
#> [[8]]
#> [1] "b" "c" "d"
#> 
#> [[9]]
#> [1] "a" "c" "e"
#> 
#> [[10]]
#> [1] "b" "c" "e"
#> 
#> [[11]]
#> [1] "a" "d" "e"
#> 
#> [[12]]
#> [1] "b" "d" "e"

使用reprex v2.0.2創建于 2022-09-03

uj5u.com熱心網友回復:

兩次呼叫expand.grid將執行此操作:

eg1 <- expand.grid(group1, group2)
eg1
#   Var1 Var2
# 1    a    c
# 2    b    c
# 3    a    d
# 4    b    d
# 5    a    e
# 6    b    e

eg2 <- expand.grid(group1, seq_len(ncol(combn(group2, 2))))
eg2 <- cbind(eg2, t(combn(group2, 2)[, eg2$Var2]))[,-2]
eg2
#   Var1 1 2
# 1    a c d
# 2    b c d
# 3    a c e
# 4    b c e
# 5    a d e
# 6    b d e

然后它們可以與c. 出于演示目的,我將在這里取消它們的名稱,盡管呼叫unname純粹是裝飾性的。

out <- c(asplit(eg1, 1), asplit(eg2, 1))
out <- lapply(out, function(z) unname(c(z)))
str(out)
# List of 12
#  $ : chr [1:2] "a" "c"
#  $ : chr [1:2] "b" "c"
#  $ : chr [1:2] "a" "d"
#  $ : chr [1:2] "b" "d"
#  $ : chr [1:2] "a" "e"
#  $ : chr [1:2] "b" "e"
#  $ : chr [1:3] "a" "c" "d"
#  $ : chr [1:3] "b" "c" "d"
#  $ : chr [1:3] "a" "c" "e"
#  $ : chr [1:3] "b" "c" "e"
#  $ : chr [1:3] "a" "d" "e"
#  $ : chr [1:3] "b" "d" "e"

uj5u.com熱心網友回復:

1)此解決方案僅使用基礎 R 并且僅使用一次combn. 它的作業原理是采用 3 個元素的所有組合,c(group1, group2, "")并只保留 group1 中的一個元素和 group2 中的 1 或 2 個元素。"" 元素被洗掉,留下所需的向量串列。我們還展示了如何選擇性地將其表示為矩陣。

ok如果出現inix元素,則將函式定義為 TRUE,否則定義為FALSE。如果 group1 中有一個元素并且 group2 中有 1 或 2 個元素,則定義回傳其引數而不包含任何 "" 組件;否則,它回傳 NULL。適用于 的 3 個元素的所有組合然后洗掉任何長度為零的行并回傳串列如果您想要一個字符向量串列作為結果,請使用它。ghggc(group1, group2, "")L

如果需要矩陣結果而不是串列結果,則也使用最后一行。

ok <- function(g, h, ix) sum(g %in% h) %in% ix
g <- function(x) if (ok(x, group1, 1) && ok(x, group2, 1:2)) x[nchar(x) > 0]

L <- Filter(length, combn(c(group1, group2, ""), 3, g, simplify = FALSE))

# next line is only if you want a matrix result
do.call("rbind", lapply(L, `[`, 1:3))

給出這個矩陣:

      [,1] [,2] [,3]
 [1,] "a"  "c"  "d" 
 [2,] "a"  "c"  "e" 
 [3,] "a"  "c"  NA  
 [4,] "a"  "d"  "e" 
 [5,] "a"  "d"  NA  
 [6,] "a"  "e"  NA  
 [7,] "b"  "c"  "d" 
 [8,] "b"  "c"  "e" 
 [9,] "b"  "c"  NA  
[10,] "b"  "d"  "e" 
[11,] "b"  "d"  NA  
[12,] "b"  "e"  NA  

1a)這也可以用這樣的管道來表示。 g是從上面。

c(group1, group2, "z") |>
  combn(3, g, simplify = FALSE) |>
  Filter(f = length) |>
  lapply(`[`, 1:3) |> # this & next line if matrix wanted
  do.call(what = "rbind")

2)使用字串操作的方法是將組合輸出的每個組件粘貼在一起,然后使用 str_count 對其進行過濾以計算出現次數。這給出了一個字符向量結果,或者我們可以使用將其拆分為一個串列strsplit(res, "")

library(stringr)

cc <- combn(c(group1, group2, ""), 3, paste, collapse = "")
res <- cc[str_count(cc, "[ab]") == 1 & str_count(cc, "[cde]") %in% 1:2]
res
## [1] "acd" "ace" "ac"  "ade" "ad"  "ae"  "bcd" "bce" "bc"  "bde" "bd"  "be" 

uj5u.com熱心網友回復:

我們可以用

a <- expand.grid(group1 , group2 , stringsAsFactors = F)
a$Var3 -> ""

b <- expand.grid(group1 , group2[-3] , group2[-1] ,
       stringsAsFactors = F) |>subset(Var2 != Var3)

rbind(a,b) |> unname() |> apply(1,list) |> unlist(F)
  • 輸出
[[1]]
[1] "a" "c"

[[2]]
[1] "b" "c"

[[3]]
[1] "a" "d"

[[4]]
[1] "b" "d"

[[5]]
[1] "a" "e"

[[6]]
[1] "b" "e"

$`1`
[1] "a" "c" "d"

$`2`
[1] "b" "c" "d"

$`5`
[1] "a" "c" "e"

$`6`
[1] "b" "c" "e"

$`7`
[1] "a" "d" "e"

$`8`
[1] "b" "d" "e"

轉載請註明出處,本文鏈接:https://www.uj5u.com/qiye/505446.html

標籤:r 列表 组合

上一篇:對整數字串進行排序并保存原始索引

下一篇:返回列表

標籤雲
其他(144293) Python(36878) JavaScript(24416) Java(16327) C(14817) 區塊鏈(8235) C#(7794) AI(7469) 爪哇(7296) MySQL(6654) html(6646) 基礎類(6313) sql(6016) 熊猫(5988) PHP(5696) 数组(5643) R(5270) Linux(5136) 腳本語言(PerlPython)(5129) 反应(5071) 非技術區(4971) Android(4403) 数据框(4242) css(4165) 节点.js(3954) C語言(3288) json(3206) C++語言(3117) 列表(3098) 扑(3025) 安卓(2940) 打字稿(2892) VBA(2760) Java相關(2746) 疑難問題(2699) 细绳(2492) 單片機工控(2479) iOS(2352) ASP.NET(2337) MongoDB(2287) 麻木的(2241) 字典(2206) 正则表达式(2187) 循环(2165) 擅长(2130) 镖(2124) 迅速(2115) Web開發(1951) 功能(1914) 弹簧靴(1878) python-3.x(1858) 谷歌表格(1828) Unity3D(1819) for循环(1816) xml(1803) 網絡通信(1793) PostgreSQL(1790) .NETCore(1783) 蟒蛇-3.x(1774) .NET技术(1767)

熱門瀏覽
  • IEEE1588PTP在數字化變電站時鐘同步方面的應用

    IEEE1588ptp在數字化變電站時鐘同步方面的應用 京準電子科技官微——ahjzsz 一、電力系統時間同步基本概況 隨著對IEC 61850標準研究的不斷深入,國內外學者提出基于IEC61850通信標準體系建設數字化變電站的發展思路。數字化變電站與常規變電站的顯著區別在于程序層傳統的電流/電壓互 ......

    uj5u.com 2020-09-10 03:51:52 more
  • HTTP request smuggling CL.TE

    CL.TE 簡介 前端通過Content-Length處理請求,通過反向代理或者負載均衡將請求轉發到后端,后端Transfer-Encoding優先級較高,以TE處理請求造成安全問題。 檢測 發送如下資料包 POST / HTTP/1.1 Host: ac391f7e1e9af821806e890 ......

    uj5u.com 2020-09-10 03:52:11 more
  • 網路滲透資料大全單——漏洞庫篇

    網路滲透資料大全單——漏洞庫篇漏洞庫 NVD ——美國國家漏洞庫 →http://nvd.nist.gov/。 CERT ——美國國家應急回應中心 →https://www.us-cert.gov/ OSVDB ——開源漏洞庫 →http://osvdb.org Bugtraq ——賽門鐵克 →ht ......

    uj5u.com 2020-09-10 03:52:15 more
  • 京準講述NTP時鐘服務器應用及原理

    京準講述NTP時鐘服務器應用及原理京準講述NTP時鐘服務器應用及原理 安徽京準電子科技官微——ahjzsz 北斗授時原理 授時是指接識訓通過某種方式獲得本地時間與北斗標準時間的鐘差,然后調整本地時鐘使時差控制在一定的精度范圍內。 衛星導航系統通常由三部分組成:導航授時衛星、地面檢測校正維護系統和用戶 ......

    uj5u.com 2020-09-10 03:52:25 more
  • 利用北斗衛星系統設計NTP網路時間服務器

    利用北斗衛星系統設計NTP網路時間服務器 利用北斗衛星系統設計NTP網路時間服務器 安徽京準電子科技官微——ahjzsz 概述 NTP網路時間服務器是一款支持NTP和SNTP網路時間同步協議,高精度、大容量、高品質的高科技時鐘產品。 NTP網路時間服務器設備采用冗余架構設計,高精度時鐘直接來源于北斗 ......

    uj5u.com 2020-09-10 03:52:35 more
  • 詳細解讀電力系統各種對時方式

    詳細解讀電力系統各種對時方式 詳細解讀電力系統各種對時方式 安徽京準電子科技官微——ahjzsz,更多資料請添加VX 衛星同步時鐘是我京準公司開發研制的應用衛星授時時技術的標準時間顯示和發送的裝置,該裝置以M國全球定位系統(GLOBAL POSITIONING SYSTEM,縮寫為GPS)或者我國北 ......

    uj5u.com 2020-09-10 03:52:45 more
  • 如何保證外包團隊接入企業內網安全

    不管企業規模的大小,只要企業想省錢,那么企業的某些服務就一定會采用外包的形式,然而看似美好又經濟的策略,其實也有不好的一面。下面我通過安全的角度來聊聊使用外包團的安全隱患問題。 先看看什么服務會使用外包的,最常見的就是話務/客服這種需要大量重復性、無技術性的服務,或者是一些銷售外包、特殊的職能外包等 ......

    uj5u.com 2020-09-10 03:52:57 more
  • PHP漏洞之【整型數字型SQL注入】

    0x01 什么是SQL注入 SQL是一種注入攻擊,通過前端帶入后端資料庫進行惡意的SQL陳述句查詢。 0x02 SQL整型注入原理 SQL注入一般發生在動態網站URL地址里,當然也會發生在其它地發,如登錄框等等也會存在注入,只要是和資料庫打交道的地方都有可能存在。 如這里http://192.168. ......

    uj5u.com 2020-09-10 03:55:40 more
  • [GXYCTF2019]禁止套娃

    git泄露獲取原始碼 使用GET傳參,引數為exp 經過三層過濾執行 第一層過濾偽協議,第二層過濾帶引數的函式,第三層過濾一些函式 preg_replace('/[a-z,_]+\((?R)?\)/', NULL, $_GET['exp'] (?R)參考當前正則運算式,相當于匹配函式里的引數 因此傳遞 ......

    uj5u.com 2020-09-10 03:56:07 more
  • 等保2.0實施流程

    流程 結論 ......

    uj5u.com 2020-09-10 03:56:16 more
最新发布
  • 來自兩個向量的不同數量元素的組合

    我有兩個向量:group1 <- c("a", "b")group2 <- c("c", "d", "e")我想從“group1”中獲取一個元素的所有組合,從“group2”中獲取一個或兩個元素。期望的結果...

    uj5u.com 2022-09-07 11:16:54 more
  • 對整數字串進行排序并保存原始索引

    我想對以下形式的串列進行排序:['1000-1005', '6767-8787', '88-5607', '600-607', '909-950']通過'-'符號之前的整數值,并在排序后存盤原始索引,所以是這樣的...

    uj5u.com 2022-09-07 11:15:52 more
  • 如何訪問串列中字典中的條件項

    empty_list=[]employee = [{ "name" : "Nauman", "age" : 27, "Salary": 29000}, { "name": "Bilal", "age": 26, "Sala...

    uj5u.com 2022-09-07 11:15:18 more
  • 如何將元組中的元素相加?

    我想知道如何將串列中每個元組中的元素加在一起。這是我的代碼:def add_together(): list = [(2,3), (4,5), (9,10)] for tuple in list: #mis...

    uj5u.com 2022-09-07 11:14:24 more
  • 反轉SML中的串列

    fun reverse ( [] ) = ( [] ) | reverse (x::xs) = reverse (xs) :: [x]為什么我的這個反轉串列的功能不起作用
    uj5u.com熱心網友回復:你的函式有 type...

    uj5u.com 2022-09-07 11:13:36 more
  • 該函式在if-else條件下不回傳輸出

    在給定陣列上應用查詢后,函式不會回傳結果陣列(res)。''' 根據查詢反轉陣列。查詢中的每對值都是給定 Array(Arr) 的開始和結束索引。'''Arr = [5,3,2,1,3]Que...

    uj5u.com 2022-09-07 11:12:47 more
  • 如何遍歷串列并相互比較每個字符

    基本上,我希望比較串列中字串的每個字符以及它重復的次數。我的方法是使用 for 或 while 回圈,但第一個問題是如果我比較索引會超出范圍i == i 1,第二個問題是...

    uj5u.com 2022-09-07 11:12:09 more
  • 如何將帶有逗號的數字的字串串列轉換為python中的整數串列

    如何將其轉換為 python 中的整數串列?我的代碼:lst = input("Kindly input a string")[int(element) for element in lst]我不斷得到ValueError: int() 以 10...

    uj5u.com 2022-09-07 11:11:02 more
  • 從python中的兩個串列生成鍵值對

    我有 2 個串列:list1 = ["Mar 04", "Mar 05", "Mar 06", "Mar 07", "Mar 08", "Mar 09"]lsit2 = [72888494.4, 151676281, 142677, 5865.698, 107451, 94520...

    uj5u.com 2022-09-07 11:10:10 more
  • 在python中反轉每個大小為k的子陣列組的函式

    我做了這段代碼,所以我反轉了整數的子陣列組,但實際上它只反轉了第一個子陣列,我不知道為什么會這樣!!!這是代碼:def reverseInGroups(self, arr, N, K): rev=l...

    uj5u.com 2022-09-07 11:09:32 more