82489_zh-CN

liliconcom

将事后组添加到绘图中

是否可以在图中添加字母来表示事后差异（例如，Tukey 的 HSD p<0.05）？ 我通常做的是使用 GraphBuilder 制作一个图，复制它，粘贴到 Adobe Illustrator 中，然后手动添加小写字母（a=最高，b=下一个最高.....f=最低）来表示事后差异（来自在“拟合模型”下运行统计模型）。 我猜这是执行此操作的唯一方法，但我想如果有人编写了一个自定义脚本，将注释（甚至只是在更简单的两个示例示例中使用星号）放在上面/旁边，我想我会问绘图值。 在此示例中，我在列中插入了事后组。

回复：向图中添加事后组

出色的！ 我什至从未想过使用行和列标签，但它们似乎可以与折线图一起使用。

 

我可能最好的 JMP 开发的“需求”是此功能的扩展：当您使用图形生成器时，您可以让它绘制汇总统计数据，例如平均值和误差线。 如果误差线下方有另一个选项用于事后组标签，那就太棒了！ 不过话说回来，复制粘贴手段也没什么大不了的，std。开发人员和事后分组到另一个表中，然后使用图形生成器绘制汇总数据（而不是原始数据）。 再次感谢并希望这对其他人有用。

回复：向图中添加事后组

我之前忽略的一件事是通过选择要标记的行并转到“行”>“标记/取消标记”来向各个点添加标签。这应该使您能够在此图中执行您想要的操作。我基本上重新创建了您的示例（除了没有误差线），但我必须一次记录 1 个图，因为我需要更改每个面板的标签。

 

最终结果如下：

 

 

 

我正在附加日志文件，但有一个令人沮丧的错误，在保存并重新打开日志后，自定义行设置会变得混乱。您可能会注意到，当您打开它时，所有线条都会变成虚线。

 

数据表脚本（同样，不能直接附加数据表）：

New Table( "Multipanel Example with Tukey labels",
 Add Rows( 4 ),
 Set Header Height( 59 ),
 New Script(
  "Growth",
  Graph Builder(
   Size( 518, 446 ),
   Show Control Panel( 0 ),
   Show Legend( 0 ),
   Variables(
    X( :Treatment ),
    Y( :Growth ),
    Overlay( :Temperature Regime )
   ),
   Elements(
    Line( X, Y, Legend( 10 ) ),
    Points( X, Y, Legend( 11 ), Jitter( "None" ) )
   ),
   SendToReport(
    Dispatch(
     {},
     "Growth",
     ScaleBox,
     {Format( "Fixed Dec", 12, 1 ), Min( 0.4 ), Max( 0.9 ),
     Inc( 0.1 ), Minor Ticks( 0 )}
    ),
    Dispatch(
     {},
     "400",
     ScaleBox,
     {Legend Model(
      10,
      Properties(
       0,
       {Line Color( 0 ), Line Style( "Dotted" ),
       Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     ), Legend Model(
      11,
      Properties(
       0,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     )}
    ),
    Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} ),
    Dispatch( {}, "X title", TextEditBox, {Set Text( "" )} )
   )
  )
 ),
 New Script(
  "chlorophyll",
  Graph Builder(
   Size( 518, 446 ),
   Show Control Panel( 0 ),
   Show Legend( 0 ),
   Variables(
    X( :Treatment ),
    Y( :chlorophyll a ),
    Overlay( :Temperature Regime )
   ),
   Elements(
    Points( X, Y, Legend( 6 ), Jitter( "None" ) ),
    Line( X, Y, Legend( 7 ) )
   ),
   SendToReport(
    Dispatch(
     {},
     "chlorophyll a",
     ScaleBox,
     {Format( "Fixed Dec", Use thousands separator( 1 ), 12, 0 ),
     Min( 0 ), Max( 8 ), Inc( 2 ), Minor Ticks( 0 )}
    ),
    Dispatch(
     {},
     "400",
     ScaleBox,
     {Legend Model(
      6,
      Properties(
       0,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     ), Legend Model(
      7,
      Properties(
       0,
       {Line Color( 0 ), Line Style( "Dotted" ),
       Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     )}
    ),
    Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} ),
    Dispatch( {}, "X title", TextEditBox, {Set Text( "" )} ),
    Dispatch(
     {},
     "Graph Builder",
     FrameBox,
     {DispatchSeg(
      Marker Seg( "Marker (1)" ),
      label offset( {0, -8, -13}, {1, -12, 26} )
     ), DispatchSeg(
      Marker Seg( "Marker (2)" ),
      label offset( {0, -5, 21}, {1, -14, -16} )
     )}
    )
   )
  )
 ),
 New Script(
  "Symbiodinium density",
  Graph Builder(
   Size( 518, 446 ),
   Show Control Panel( 0 ),
   Show Legend( 0 ),
   Variables(
    X( :Treatment ),
    Y( :Symbiodinium density ),
    Overlay( :Temperature Regime )
   ),
   Elements(
    Points( X, Y, Legend( 4 ), Jitter( "None" ) ),
    Line( X, Y, Legend( 5 ) )
   ),
   SendToReport(
    Dispatch(
     {},
     "Symbiodinium density",
     ScaleBox,
     {Min( 1.5 ), Max( 4 ), Inc( 0.5 ), Minor Ticks( 0 )}
    ),
    Dispatch(
     {},
     "400",
     ScaleBox,
     {Legend Model(
      4,
      Properties(
       0,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     ), Legend Model(
      5,
      Properties(
       0,
       {Line Color( 0 ), Line Style( "Dotted" ),
       Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     )}
    ),
    Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} ),
    Dispatch( {}, "X title", TextEditBox, {Set Text( "" )} ),
    Dispatch(
     {},
     "Graph Builder",
     FrameBox,
     {DispatchSeg(
      Marker Seg( "Marker (1)" ),
      label offset( {0, 2, 24}, {1, -3, -16} )
     ), DispatchSeg(
      Marker Seg( "Marker (2)" ),
      label offset( {0, 3, -15}, {1, 1, 24} )
     )}
    )
   )
  )
 ),
 New Script(
  "max dark-adapted",
  Graph Builder(
   Size( 518, 446 ),
   Show Control Panel( 0 ),
   Show Legend( 0 ),
   Variables(
    X( :Treatment ),
    Y( :Name( "max. dark-adapted quantum yield" ) ),
    Overlay( :Temperature Regime )
   ),
   Elements(
    Points( X, Y, Legend( 3 ), Jitter( "None" ) ),
    Line( X, Y, Legend( 4 ) )
   ),
   SendToReport(
    Dispatch(
     {},
     "max. dark-adapted quantum yield",
     ScaleBox,
     {Min( 0.72 ), Max( 0.77 ), Inc( 0.01 ), Minor Ticks( 1 )}
    ),
    Dispatch(
     {},
     "400",
     ScaleBox,
     {Legend Model(
      3,
      Properties(
       0,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     ), Legend Model(
      4,
      Properties(
       0,
       {Line Color( 0 ), Line Style( "Dotted" ),
       Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     )}
    ),
    Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} ),
    Dispatch( {}, "X title", TextEditBox, {Set Text( "" )} ),
    Dispatch(
     {},
     "Graph Builder",
     FrameBox,
     {DispatchSeg(
      Marker Seg( "Marker (1)" ),
      label offset( {0, -4, -17}, {1, -6, -18} )
     ), DispatchSeg(
      Marker Seg( "Marker (2)" ),
      label offset( {0, -7, -14}, {1, -4, -17} )
     )}
    )
   )
  )
 ),
 New Column( "Treatment",
  Character,
  "Nominal",
  Set Property( "Value Ordering", {"upwelling", "non-upwelling"} ),
  Set Values( {"upwelling", "upwelling", "non-upwelling", "non-upwelling"} ),
  Set Display Width( 132 )
 ),
 New Column( "Temperature Regime",
  Numeric,
  "Nominal",
  Format( "Best", 12 ),
  Set Values( [1, 2, 1, 2] )
 ),
 New Column( "Growth",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [0.78, 0.75, 0.68, 0.82] )
 ),
 New Column( "Symbiodinium density",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [2.8, 3.05, 3.45, 3.38] )
 ),
 New Column( "Tukey Symbiodinium",
  Character,
  "Nominal",
  Set Values( {"B", "B", "A", "A"} )
 ),
 New Column( "chlorophyll a",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [7.2, 4.3, 5.5, 6.5] )
 ),
 New Column( "Tukey chlorophyll",
  Character,
  "Nominal",
  Set Values( {"A", "C", "BC", "AB"} )
 ),
 New Column( "max. dark-adapted quantum yield",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [0.76, 0.749, 0.753, 0.739] ),
  Set Display Width( 148 )
 ),
 New Column( "Tukey max",
  Character,
  "Nominal",
  Set Values( {"A", "B", "B", "C"} )
 ),
 Set Row States( [32776, 248, 32776, 248] ),
 Set Label Columns( :Tukey max )
)

回复：向图中添加事后组

我想要这样的东西：x 轴上的一种处理（上升流与非上升流），然后图标代表两种不同的温度范围。 在面板 c 中，您可以看到两个预测变量之间的交互作用，但在面板 D 中看不到。 在面板 bd 中，我添加了字母来显示事后差异。 我想知道JMP里能不能画出这样的图？

回复：向图中添加事后组

您能上传一张您设想的情节的图片吗？我确信有某种方法可以扭转 JMP 的手臂，使其成功。

回复：向图中添加事后组

伟大的！ 把 Tukey 的团体放在底部是个好主意。

 

我必须考虑如何针对交互图执行此操作。 截至目前，我只能让它列出多个治疗组列表，每个治疗组对应一个图基组（见图）。 在此示例中，有两个处理，每个处理有两个组，因此理想情况下 x 轴上只有两个组。

 

奇怪的是，我在尝试上传 JMP 表时收到一条错误消息，这就是我提供图像的原因。

回复：向图中添加事后组

您绝对可以使用标题框。另一个想法是将带有 Tukey 标签的列向下拖动到 X 轴，并将该列嵌套在另一个 x 轴列中。下面是相同数据的不同图表的示例，其中我在 X 轴中使用了嵌套在“组”x 轴变量中的 Tukey 字母。

 

 

 

回复：向图中添加事后组

惊人的！ 有效。 我不知道为什么我认为这会如此困难。 就像你说的：只需将 Tukey 的字母组复制并粘贴到它们自己的列中，将它们设置为列标签，然后以这种方式添加到绘图中即可。 我看到的唯一问题是我不知道如何处理非条形图，因为我没有看到这些图的“标签”功能。 有任何想法吗？ 例如，可以将标题框拖动到线图中的图标上吗？ 再次感谢你的帮助。

回复：向图中添加事后组

我认为这是可能的，不需要太多的工作，也不需要编写脚本。基本思想是从 Tukey 连接字母报告创建一个数据表，并将这些字母连接到将组名称与 Tukey 表中的级别列相匹配的原始数据。然后，通过选择它们 > 右键单击任何突出显示的列 > 新建公式列 > 连接（使用空格或逗号），将列与字母组组合起来。接下来，选择结果列并将其用作标签（列 > 标签/取消标签）。

 

最后，在图形生成器中绘制图形。制作条形图后，我可以使用条形图的控制面板控件添加误差条和标签，如您所示。

 

**社区不允许我发布该表格（“附件的内容与其文件类型不匹配”）。这是重现它的脚本：

New Table( "ExamplePlotTukeyLabels",
 Add Rows( 17 ),
 New Script(
  "Source",
  Data Table( "Untitled 4" ) << Join(
   With( Data Table( "Untitled 6" ) ),
   By Matching Columns( :Groups = :Level ),
   Drop multiples( 0, 0 ),
   Include Nonmatches( 0, 0 ),
   Preserve main table order( 1 )
  )
 ),
 New Script(
  "Make Into Data Table",
  Names Default To Here( 1 );
  platform = Current Data Table() << Oneway(
   Y( :Y ),
   X( :Groups ),
   All Pairs( 1 )
  );
  Wait( 0 );
  Report( platform )[Outline Box( "Oneway Analysis of Y By Groups" )][
  Outline Box( "Means Comparisons" )][
  Outline Box( "Comparisons for all pairs using Tukey-Kramer HSD" )][
  Outline Box( "Connecting Letters Report" )][Table Box( 1 )] <<
  Make Into Data Table;
  Report( platform ) << Close Window;
 ),
 New Script(
  "Example with Tukey Levels",
  Graph Builder(
   Size( 518, 550 ),
   Show Control Panel( 0 ),
   Variables( X( :Groups ), Y( :Y ) ),
   Elements(
    Bar(
     X,
     Y,
     Legend( 4 ),
     Error Bars( "Standard Error" ),
     Label( "Label by Row" )
    )
   )
  )
 ),
 New Column( "Groups",
  Character,
  "Nominal",
  Set Values(
   {"Group 1", "Group 1", "Group 1", "Group 1", "Group 1", "Group 2",
   "Group 2", "Group 2", "Group 2", "Group 2", "Group 3", "Group 3",
   "Group 3", "Group 3", "Group 3", "Group 4", "Group 4"}
  )
 ),
 New Column( "Y",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Formula(
   Random Normal( 15, 3 ) + Col Mean( Random Normal( 0, 10 ), :Groups )
  ),
  Suppress Eval
 ),
 New Column( "Level",
  Character,
  "Nominal",
  Set Values(
   {"A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "C", "C", "C", "C",
   "C", "D", "D"}
  )
 ),
 New Column( "~Letter Column A",
  Character,
  "Nominal",
  Set Values(
   {"", "", "", "", "", "A", "A", "A", "A", "A", "", "", "", "", "", "A",
   "A"}
  )
 ),
 New Column( "~Letter Column B",
  Character,
  "Nominal",
  Set Values(
   {"B", "B", "B", "B", "B", "", "", "", "", "", "B", "B", "B", "B", "B",
   "B", "B"}
  )
 ),
 New Column( "Concatenate[~Le...etter Column B]",
  Character,
  "Nominal",
  Formula( :Name( "~Letter Column A" ) || " " || :Name( "~Letter Column B" ) )
 ),
 New Column( "Mean",
  Numeric,
  "Continuous",
  Format( "Fixed Dec", 12, 6 ),
  Set Values(
   [12.8498772929854, 12.8498772929854, 12.8498772929854, 12.8498772929854,
   12.8498772929854, 19.105279210907, 19.105279210907, 19.105279210907,
   19.105279210907, 19.105279210907, 11.7021088825322, 11.7021088825322,
   11.7021088825322, 11.7021088825322, 11.7021088825322, 16.4722902997683,
   16.4722902997683]
  )
 ),
 Set Label Columns( :Name( "Concatenate[~Le...etter Column B]" ) )
)