在Mathematica中使用数据返回的Tally命令

Question

我有一小段代码来生成序列，这没关系。

List = Reap[ 
    For[i = 1, i <= 10000, i++, 
     Sow[RandomSample[Join[Table["a", {2}], Table["b", {2}]], 2]]];][[2, 1]]; 
Tally[List] 

给予以下输出，

{{{"b", "b"}, 166302}, {{"b", "a"}, 333668}, {{"a", "b"}, 332964}, {{"a", "a"}, 167066}} 

我的问题是我还没有找到一种方法来提取输出频率....？

预先感谢任何帮助

Answer 1

注：一般不以大写字母，因为这些可能内部职责相冲突的启动用户创建的符号名。

我不清楚你希望如何转换输出。一种解释是，你只是想：

{166302, 333668, 332964, 167066} 

在你的代码使用[[2, 1]]，所以我想你知道如何使用Part，这是其中的简写形式。对于Part文档包括：

如果任何列表_我是All或;;的，在该级别的所有部件保持。

你可以因此使用：

Tally[list][[All, 2]] 

您还可以使用：

Last /@ Tally[list] 

---

由于george评论，你可以使用Sort，这是由于Tally数据结构将首先按项目排序，因为它首先出现在每个列表中，并且每个列表具有相同的文件NGTH。

tally = 
{{{"b","b"},166302},{{"b","a"},333668},{{"a","b"},332964},{{"a","a"},167066}}; 

Sort[tally][[All, 2]] 

{167066, 332964, 333668, 166302} 

您也可以将您的数据转换为Rule对象的列表，然后从预定列表中提取值：

rules = Rule @@@ tally 

{{"b", "b"} -> 166302, {"b", "a"} -> 333668, {"a", "b"} -> 332964, {"a", "a"} -> 167066} 

这些可以在任何地方为了您选择：

{{"a", "a"}, {"a", "b"}, {"b", "a"}, {"b", "b"}} /. rules 

{167066, 332964, 333668, 166302} 

只是为了说明另一种技术，如果你有你想指望你会发现在这个Sow和Reap构建价值项目的具体名单。例如，与"a", "b", "c", "d"随机列表：

SeedRandom[1]; 
dat = RandomChoice[{"a", "b", "c", "d"}, 50]; 

计数的"a"和"c"元素：

Reap[Sow[1, dat], {"a", "c"}, Tr[#2] &][[2, All, 1]] 

{19, 5} 

这是不一样快Tally但它的速度比为每个元素做一个Count，有时候这个语法很有用。