考虑以下数据框
x y z
1 0 0 0
2 1 0 0
3 0 1 0
4 1 1 0
5 0 0 1
6 1 0 1
7 0 1 1
8 1 1 1
-------
x 4 2 1 <--- vector to multiply by
我想将每一列乘以一个单独的值，例如 c(4,2,1)。给予：
x y z
1 0 0 0
2 4 0 0
3 0 2 0
4 4 2 0
5 0 0 1
6 4 0 1
7 0 2 1
8 …代码
list(c(1,2), c('a', 'b'), c('a', 'b'), c(2,3)) -> li
##
## [[1]]
## [1] 1 2
##
## [[2]]
## [1] "a" "b"
##
## [[3]]
## [1] "a" "b"
##
## [[4]]
## [1] 2 3
问：所需的输出来自 table()。
Factor c(1,2) c('a', 'b') c(2,3)
Freq 1 2 1
它看起来很简单，但我找不到解决方案。
编辑- 不幸的是，我的列表包含大约 500,000 个元素。抱歉没有提到这一点。解决方案可能是将列表中的项目合并为单个元素：
##
## [[1]]
## [1] "1 2"
##
## [[2]]
## [1] "a b"
##
## [[3]]
## [1] "a b"
##
## [[4]]
## [1] …或任何其他不可解析的表达式，如igraph::graph_from_literal(1A +--+ 1B).
函数调用quote(1A-2B)给出Error: unexpected symbol in quote(1A".
如何获得类似的结果