小编500*_*500的帖子

我希望在一列中对"行"进行平均.这是在另一列中具有相同值的行.

例如 :

e= {{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}, 
   {69, 7, 30, 38, 16, 70, 97, 50, 97, 31, 81, 96, 60, 52, 35, 6, 
    24, 65, 76, 100}}

我想平均第二列中与第一列中具有相同值的所有值.

所以这里:Col 1的平均值= 1和Col 1 = 2

然后使用此操作的结果创建第三列.因此,对于接下来的10行中的前10行,该列中的值应该相同.

非常感谢您提供的任何帮助!

LA

输出理想格式:

使用以下列表,

list = {{a, b, c, d}, {1, 2, 3, 4}, {5, 6, 7, 8}};

是否可以选择第二个值> 3的列表.下面的期望输出

{5, 6, 7, 8}

调整以下代码,该代码当前提取列表中的所有值> 2

Select[#, # > 2 &] & /@ list[[2 ;;]

可以在Mathematica中找到条件数据操作的复杂解决方案

建立Belisarius在"Manipulate custom Tabular"中提出的解决方案.

• 请考虑以下函数来创建自定义表格表示:

  DataSampleXX[data_, linesNumber_, columnsList_, color1_, color2_, color3_] :=
  
  Grid[
  Join[
       {columnsList}, {Map[Rotate[Text[#], 90 Degree] &, 
        data[[1, columnsList]]]}, data[[2 ;; linesNumber, columnsList]]],
  Background  -> {{{{color1, color2}}, {1 -> color3}}},
  Dividers    -> {All, {1 -> True, 2 -> True, 3 -> True, 0 -> True}},
  ItemSize    -> {1 -> Automatic, Automatic},
  Alignment   -> Top,
  Frame       -> True,
  FrameStyle  -> Thickness[2],
  ItemStyle   -> {Automatic, 
  Automatic, {{1, 1}, 
  {1, Length[data]}} -> Directive[FontSize -> 15, Black, Bold]}
  ];
  

  Run Code Online (Sandbox Code Playgroud)

• 以下数据:

  soData …

  Run Code Online (Sandbox Code Playgroud)

反正有没有在Mathematica中自动将这些线条变为黑色？

我怎样才能获得48个随机对的两个不同的元素Range[96]而不重复？那就是96个元素只使用一次.

当我尝试将元组/子集与Select结合使用时,我觉得必须有一种更直接的方法来实现这一点.

感谢这个伟大的插件:折纸

我能够获得以下布局:

如何保存此视图以从视图/布局菜单中调用它？

我需要合并来自两个不同来源的数据.下表说明了我的所作所为:

和期望的输出:

这个想法是:

• 看看第一个col.表1(TrialNO)

• 在第一个col中寻找它.表2.

• 检查第二个col中的值.是相等的(实际上那些col.不会位于2个列表中的相同位置)

• 如果Check是pass,则追加col中的值.3和4(Cond1和Cond2)到表2中的线.

• 我不认为我会保持头在真实结构,所以它不应该是一个问题,但建议处理报头是欢迎(是否要删除它们,并将它们存储在其他地方或以特殊的方式对待他们)

**

编辑:精确的数据形状和我的目标

**

我将介绍如何获取这些数据以阐明其形状.我相信它可以用更精确的方式在技术上进行描述.请不要犹豫,纠正我.

我正在记录眼球运动(眼跳和注视)和受试者在屏幕上显示刺激时回答任务.

• 每个试验包括两个连续显示,每个显示3秒.它是2AFC(两种替代强制选择).
• 每个显示器包括呈现一个框架(大约1/4尺寸的屏幕),其中有8个形状,显示在屏幕的4个象限中的1个.
• 帧本身的构成有5个条件,因此每个试验可能有10个条件(帧的1个条件与不重复的帧相对).
• 有两种方法:在观察刺激时记录受试者的选择和眼球运动.

我从两个不同的来源获得这些数据:

• 在"显示"机器,其提供

- 序号/显示号码

- 有关屏幕的信息

-条件

- 主题答案

-X和Y坐标以及构成所显示刺激的11个对象的大小.

在此矩阵中,每行都是一个显示,因此DisplayNO列将从1到400(1,2,3,4,...,400),而TrialNO列实际上从1到200(1,1,2) ,2,..,200,200)因为每次试验有2个显示器.

• 的"眼跟踪"机,其提供:

- 一些类似的信息(显示号码(1到400),用于合并2,条件号码,可用于检查映射赌注.)2)

然后是大量描述眼球运动的变量:

- 固定和扫视持续时间,位置,时间等(约100列)

在这个矩阵中,每一行都是固定.然后以列(前一个和下一个扫视)给出扫视特征.每个显示器可以有1到30-50个固定.结果,我可以为第一个显示器提供19行数据,为第二个显示器提供5行数据.

• 第一步是合并2和2数据结构以获得一个大的,每行对应一个固定.

• 必须为每个主题执行此操作,然后将主题数据聚合在一起.

这是我后来处理这个怪物的计划(这将解释我在其他问题中的需求):

• 提取标题和列号.

• 以漂亮的表格形式呈现他们 - 一般信息(试用ID,条件,主题ID ...), - 显示信息(屏幕上对象的坐标), - 修复信息等...

• 为每个变量都有一个数据类型(字符串,数字,文本)的摘要,范围,列的不同值以及一些基本的描述性统计信息.

• 一种系统,以提取该组份条件(例如:由特定被摄体提取条件数,注视的持续时间,用于选择显示)这样我提取一些明确定义的表,则我上运行我的分析而不触及原始数据.

如果我用我的精确情况来表达我的问题,我相信,这可以产生一个很好的高效且图形化的易用工具来处理大量的数据集.

• 第一部分:访问

提供:

list = {{z, x, c, d}, {1, 2, 3, 4}}

我想做以下事情:

(#3/2 + #1/3) &[list[[1]]]

遗憾的是导致:

虽然我想要的输出是:

获得:

 (#3/2 + #1/3) &[z, x, c, d]

• 第二部分:条件选择

试着这样做:

Select[list[[2]], # > 2 &] 

如果可能的话,如何用#指定子列表？

答案,礼貌Leonid(详见下面的评论):

Select[#[[2]], # > 2 &] &[list]

考虑:

Tuples[Range[1, 3], 2]

我想基于以下列表删除一些子列表:

sublistToTemove = {1,2,3,6,8}

期望的输出:

{2,1},{2,2},{3,1}

对应列表的第4,第5和第7个元素.

我试过Drop,Case,Select没有成功,必须遗漏一些东西.

我正在尝试创建一些函数,以避免我为不同类型的绘图重复绘图选项.考虑到在给定图中考虑的数据,我尝试创建自动处理Frameticks和Plot Range的机制时遇到了一些麻烦.

Module[{chartData},
        chartData = RandomInteger[20, 20];

BarChart[chartData,
                Frame -> {{True, True}, {True, True}},
                ImageSize -> 300,
                ChartStyle -> Black,
                FrameLabel -> {{"yName", None}, {None, "xName"}},
                ChartElementFunction -> "FadingRectangle",
                LabelStyle -> Directive[Black, Bold, 18],
                PlotRange -> {Automatic, 1.3*Max@chartData},
                FrameTicks -> {{{Round@Min@chartData, Round@(Max@chartData/2), 
                                Round@Max@chartData}, None}, 
                              {{0, Round@(Length@chartData/2), Length@chartData}, None}}
          ]]

现在,我试图简化我的生活:

chartOptions[yName_, xName_] := {Frame -> {{True, True}, {True, True}},      
                                ImageSize -> 300,
                                ChartStyle -> Blue,
                                FrameLabel -> {{yName, None}, {None, xName}},
                                ChartElementFunction -> "FadingRectangle",
                                LabelStyle -> Directive[Black, Bold, 18],
                                FrameTicks …