根据Spotfire上的标记行更改列标题

Question

我在一个页面上有两个交叉表。

第一个交叉表是一个摘要，其中水平轴具有组件，垂直轴具有设施。单元格值显示颜色“红色”，“黄色”或“ NA”。第二个交叉表是摘要表中标记行的明细，水平轴为“ Components”和“ Type”，垂直轴为。单元格值是一个计数函数。

我需要的是在向下钻取中的每个组件下方显示我标记的颜色。

Summary
+----------+--------+-------+--------+
| Facility | COMP1  | COMP2 | COMP3  |
+----------+--------+-------+--------+
| FAC1     | NA     | RED   | RED    |
| FAC2     | YELLOW | NA    | RED    |
| FAC3     | RED    | RED   | YELLOW |
+----------+--------+-------+--------+


Drilldown (If I mark the FAC2 row)
+-------+--------+-------+
| Type  | COMP1  | COMP3 |
+       + YELLOW +  RED  +
|-------|--------|-------|
| TYPE1 | 12     |       |
| TYPE2 | 11     | 4     |
+-------+--------+-------+

有人知道交叉表是否可行吗？有关如何操作的任何提示？感谢您的帮助。

谢谢， 约翰

编辑：我这样做是为了避免无法为交叉表的列标题着色，因此，如果有人有其他选择，我将不胜感激。

当前使用Spotfire 7.11

Answer 1

好的。在这里，请耐心等待，因为我已经找到了解决方案。我会说，我对您的数据结构做了一些假设。根据数据的结构，答案可能需要稍作修改。

这是我的数据结构：

步骤1：：创建两个文档属性以保存标题的值。我创建了两个文档属性，分别名为“ tableTitle1”和“ tableTitle2”（每个详细信息交叉表中的一列）。创建一个文档属性，以保存r脚本将传递给我们的DateTime值（将在后面讨论）。我将我的时间命名为“时间”。

步骤2：创建交叉表。确保第一个交叉表使用标记“ Marking”，第二个交叉表受到标记“ Marking”的限制。在第二个交叉表中，确保标题看起来像这样：Count([Comp1]) as [Comp1 ${tableTitle1}], Count([Comp3]) as [Comp2 ${tableTitle2}]。您需要使用在步骤1中创建的文档属性。

步骤3：创建python脚本。代码如下：

from System.Collections.Generic import List
from Spotfire.Dxp.Data import *

# Create a cursor for the table column to get the values from.
# Add a reference to the data table in the script.
dataTable = Document.Data.Tables["SOTest"]
cursor = DataValueCursor.CreateFormatted(dataTable.Columns["Comp1"])

# Retrieve the marking selection
markings = Document.Data.Markings["Marking"].GetSelection(dataTable).AsIndexSet()

# Create a List object to store the retrieved data marking selection
markedata = List [str]();

# Iterate through the data table rows to retrieve the marked rows
for row in dataTable.GetRows(markings, cursor):
    value = cursor.CurrentValue
    if value <> str.Empty:
        markedata.Add(value)

# Get only unique values
valData = List [str](set(markedata))

# Store in a document property
Document.Properties["tableTitle1"] = ', '.join(valData)

####DO IT AGAIN FOR THE SECOND COLUMN#####

# Create a cursor for the table column to get the values from.
# Add a reference to the data table in the script.
cursor = DataValueCursor.CreateFormatted(dataTable.Columns["Comp2"])

# Create a List object to store the retrieved data marking selection
markedata = List [str]();

# Iterate through the data table rows to retrieve the marked rows
for row in dataTable.GetRows(markings, cursor):
    value = cursor.CurrentValue
    if value <> str.Empty:
        markedata.Add(value)

# Get only unique values
valData = List [str](set(markedata))

# Store in a document property
Document.Properties["tableTitle2"] = ', '.join(valData)

步骤4：：创建R脚本，在标记数据时启动python脚本。这将是一个非常简单的R脚本。代码如下：

markedTable <- inputTable
time <- Sys.time()

应取消选中“允许缓存”复选框。输出参数时间应转到文档属性时间。输入参数inputTable应该是您的数据表，所有列，并应受Marking限制。确保已选中自动刷新功能复选框。

步骤5：：将python脚本映射到时间文档属性。在“编辑”>“文档属性”对话框的“属性”下，将我们创建的python脚本分配给文档属性。每当表上的标记更改时，R脚本都会更改当前日期时间，从而为我们运行python脚本。

步骤6：观看魔术的发生。