{"id":31509,"date":"2023-01-22T04:22:22","date_gmt":"2023-01-21T22:52:22","guid":{"rendered":"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/"},"modified":"2023-01-22T04:22:22","modified_gmt":"2023-01-21T22:52:22","slug":"solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values","status":"publish","type":"post","link":"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/","title":{"rendered":"[Solved] multiply multiple column and find sum of each column for multiple values"},"content":{"rendered":"

[ad_1]
\n<\/p>\n

\n
\n
<\/div>\n
\n
\n

Try this:<\/p>\n

df <- read.table(text = \"v1 v2 v3 v4 v5  \n 0  1  1  1  1\n 0  1  1  0  1\n 1  0  1  1  0\", skip = 1)\n\ndf\n\nll <- vector(mode = \"list\", length = ncol(df)-1)\n\nll <- lapply(2:ncol(df), function(ncols){\n  tmp <- t(apply(df, 1, function(rows) combn(x = rows, m = ncols, prod)))\n  if(ncols < ncol(df)){\n  tmp <- colSums(tmp)\n  }\n  else{\n    tmp <- sum(tmp)\n  }\n  names1 <- t(combn(x = colnames(df), m = ncols))\n  names(tmp) <- apply(names1, 1, function(rows) paste0(rows, collapse = \"\"))\n  ll[[ncols]] <- tmp\n})\n\nll\n\n# [[1]]\n# V1V2 V1V3 V1V4 V1V5 V2V3 V2V4 V2V5 V3V4 V3V5 V4V5 \n#    0    1    1    0    2    1    2    2    2    1 \n# \n# [[2]]\n# V1V2V3 V1V2V4 V1V2V5 V1V3V4 V1V3V5 V1V4V5 V2V3V4 V2V3V5 V2V4V5 V3V4V5 \n#      0      0      0      1      0      0      1      2      1      1 \n# \n# [[3]]\n# V1V2V3V4 V1V2V3V5 V1V2V4V5 V1V3V4V5 V2V3V4V5 \n#        0        0        0        0        1 \n# \n# [[4]]\n# V1V2V3V4V5 \n#          0\n<\/code><\/pre>\n
Edit following comment<\/strong>
\nThe results of the different set of column combinations can then be accessed by indexing (subsetting) the list. E.g. to access the “2 combinations”, select the first element of the list, to access the “3rd combination”, select the second element of the list, et c.<\/p>\n
ll[[1]]\n# V1V2 V1V3 V1V4 V1V5 V2V3 V2V4 V2V5 V3V4 V3V5 V4V5 \n#    0    1    1    0    2    1    2    2    2    1\n<\/code><\/pre>\n<\/p><\/div>\n
<\/div>\n<\/div>\n
            9<\/span> <\/p><\/div>\n<\/div>\n
[ad_2]<\/p>\n
solved multiply multiple column and find sum of each column for multiple values <\/p>\n","protected":false},"excerpt":{"rendered":"
[ad_1] Try this: df <- read.table(text = “v1 v2 v3 v4 v5 0 1 1 1 1 0 1 1 0 1 1 0 1 1 0”, skip = 1) df ll <- vector(mode = “list”, length = ncol(df)-1) ll <- lapply(2:ncol(df), function(ncols){ tmp <- t(apply(df, 1, function(rows) combn(x = rows, m = ncols, prod))) … Read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[320],"tags":[1873,461,321,5848],"class_list":["post-31509","post","type-post","status-publish","format-standard","hentry","category-solved","tag-apply","tag-dataframe","tag-r","tag-tapply"],"yoast_head":"\n[Solved] multiply multiple column and find sum of each column for multiple values - JassWeb<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"[Solved] multiply multiple column and find sum of each column for multiple values - JassWeb\" \/>\n<meta property=\"og:description\" content=\"[ad_1] Try this: df <- read.table(text = "v1 v2 v3 v4 v5 0 1 1 1 1 0 1 1 0 1 1 0 1 1 0", skip = 1) df ll <- vector(mode = "list", length = ncol(df)-1) ll <- lapply(2:ncol(df), function(ncols){ tmp <- t(apply(df, 1, function(rows) combn(x = rows, m = ncols, prod))) ... Read more\" \/>\n<meta property=\"og:url\" content=\"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/\" \/>\n<meta property=\"og:site_name\" content=\"JassWeb\" \/>\n<meta property=\"article:published_time\" content=\"2023-01-21T22:52:22+00:00\" \/>\n<meta name=\"author\" content=\"Kirat\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Kirat\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 minute\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/\"},\"author\":{\"name\":\"Kirat\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\"},\"headline\":\"[Solved] multiply multiple column and find sum of each column for multiple values\",\"datePublished\":\"2023-01-21T22:52:22+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/\"},\"wordCount\":78,\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"keywords\":[\"apply\",\"dataframe\",\"r\",\"tapply\"],\"articleSection\":[\"Solved\"],\"inLanguage\":\"en-US\"},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/\",\"url\":\"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/\",\"name\":\"[Solved] multiply multiple column and find sum of each column for multiple values - JassWeb\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#website\"},\"datePublished\":\"2023-01-21T22:52:22+00:00\",\"breadcrumb\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/jassweb.com\/solved\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"[Solved] multiply multiple column and find sum of each column for multiple values\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/jassweb.com\/solved\/#website\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"name\":\"JassWeb\",\"description\":\"Build High-quality Websites\",\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/jassweb.com\/solved\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\",\"name\":\"Jass Web\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"contentUrl\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"width\":693,\"height\":132,\"caption\":\"Jass Web\"},\"image\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\",\"name\":\"Kirat\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586\",\"contentUrl\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586\",\"caption\":\"Kirat\"},\"sameAs\":[\"http:\/\/jassweb.com\"],\"url\":\"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"[Solved] multiply multiple column and find sum of each column for multiple values - JassWeb","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/","og_locale":"en_US","og_type":"article","og_title":"[Solved] multiply multiple column and find sum of each column for multiple values - JassWeb","og_description":"[ad_1] Try this: df <- read.table(text = \"v1 v2 v3 v4 v5 0 1 1 1 1 0 1 1 0 1 1 0 1 1 0\", skip = 1) df ll <- vector(mode = \"list\", length = ncol(df)-1) ll <- lapply(2:ncol(df), function(ncols){ tmp <- t(apply(df, 1, function(rows) combn(x = rows, m = ncols, prod))) ... Read more","og_url":"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/","og_site_name":"JassWeb","article_published_time":"2023-01-21T22:52:22+00:00","author":"Kirat","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Kirat","Est. reading time":"1 minute"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/#article","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/"},"author":{"name":"Kirat","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31"},"headline":"[Solved] multiply multiple column and find sum of each column for multiple values","datePublished":"2023-01-21T22:52:22+00:00","mainEntityOfPage":{"@id":"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/"},"wordCount":78,"publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"keywords":["apply","dataframe","r","tapply"],"articleSection":["Solved"],"inLanguage":"en-US"},{"@type":"WebPage","@id":"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/","url":"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/","name":"[Solved] multiply multiple column and find sum of each column for multiple values - JassWeb","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/#website"},"datePublished":"2023-01-21T22:52:22+00:00","breadcrumb":{"@id":"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/jassweb.com\/solved\/solved-multiply-multiple-column-and-find-sum-of-each-column-for-multiple-values\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/jassweb.com\/solved\/"},{"@type":"ListItem","position":2,"name":"[Solved] multiply multiple column and find sum of each column for multiple values"}]},{"@type":"WebSite","@id":"https:\/\/jassweb.com\/solved\/#website","url":"https:\/\/jassweb.com\/solved\/","name":"JassWeb","description":"Build High-quality Websites","publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/jassweb.com\/solved\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/jassweb.com\/solved\/#organization","name":"Jass Web","url":"https:\/\/jassweb.com\/solved\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/","url":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","contentUrl":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","width":693,"height":132,"caption":"Jass Web"},"image":{"@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31","name":"Kirat","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/","url":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586","contentUrl":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586","caption":"Kirat"},"sameAs":["http:\/\/jassweb.com"],"url":"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/"}]}},"_links":{"self":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/31509","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/comments?post=31509"}],"version-history":[{"count":0,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/31509\/revisions"}],"wp:attachment":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/media?parent=31509"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/categories?post=31509"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/tags?post=31509"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}