466277_zh-CN

liliconcom

连接复杂表

我正在尝试将几个表组合在一起并且遇到了一些问题。 基本上我的数据表如下所示

 

	年龄	性别
患者 A	13	米
患者 B	15	F

 

	诊断
患者 A	糖尿病
患者 A	高压钠灯
患者 B	哮喘
患者 B	高压钠灯
患者 B	败血症

 

我正在尝试制作一个表格，将诊断与患者代码结合起来（如下表所示），但每个患者诊断都以我当前的 excel 格式单独表示，而不是将每个患者与其所有诊断结合起来。 有没有简单的方法来组合这两个表？ 谢谢！

	年龄	性别	糖尿病	高压钠灯	哮喘	败血症
患者 A	13	米	1	1	0	0
患者 B	15	F	0	1	1	1

 

 

 

 

数据表回复：连接复杂表

这很容易通过使用表格->拆分首先在诊断表上。 您只需要添加将拆分的第三列 1。

您只需要添加将拆分的第三列 1。

然后就是搜索并用 0 替换缺失值 (.) 并使用表格->加入由患者。

 

 

 

回复：连接复杂表

杰夫的回答是一个很好的答案。这是我的版本，它使用 Jeff 使用的类似步骤创建的 JSL 来创建新表

names default to here(1);

dtData = New Table( "The Data",
 Add Rows( 5 ),
 New Column( "Patient ID",
  Character,
  "Nominal",
  Set Values(
   {"Patient A", "Patient A", "Patient B", "Patient B", "Patient B"}
  )
 ),
 New Column( "Diagnosis",
  Character( 16 ),
  "Nominal",
  Set Values( {"Diabetes", "HTN", "Asthma", "HTN", "Sepsis"} )
 )
);
dtDemo = New Table( "The Demographics",
 Add Rows( 2 ),
 New Column( "Patient ID",
  Character,
  "Nominal",
  Set Values( {"Patient A", "Patient B"} )
 ),
 New Column( "Age", Character( 16 ), "Nominal", Set Values( {"13", "15"} ) ),
 New Column( "Sex", Character( 16 ), "Nominal", Set Values( {"M", "F"} ) )
);

// Create a list with just the Patient IDs
summarize( dtData, theIDs = by( :Patient ID));
// Move it into a data table
dtIDs = New Table("theIDs", invisible, new column("Patient ID", character, values(theIDs)));

// Create a list with just the Diagnoses
summarize( dtData, theDiags = by( :Diagnosis));
// Move it into a data table
dtDiags = New Table("theDiags", invisible, new column("Diagnosis", character, values(theDiags)));

// Create a table with all possible combinations of patients and diagnoses
dtCart = dtIDs << Join( With( dtDiags ), Cartesian Join );

// Cleanup
close( dtIDs, nosave );
close( dtDiags, nosave);

// Add a null diagnosis column
dtCart << New Column("foundDiag", set each value(0));

dtData << New Column("foundDiag", set each value(1));

// Put the tables together
dtCart << Update(
 With( dtData),
 Match Columns( :Patient ID = :Patient ID, :Diagnosis = :Diagnosis )
);

// Split the data into the final form
dtSplit = dtCart << Split(
 Split By( :Diagnosis ),
 Split( :foundDiag ),
 Group( :Patient ID ),
 Sort by Column Property
);

// Make a copy of the demographics data table
dtFinal = dtDemo << subset( selected columns(0), selected rows(0));

// put the demographics file together with the split data table
dtFinal << Update(
 With( dtSplit ),
 Match Columns( :Patient ID = :Patient ID )
);

// Cleanup
close( dtSplit, nosave );
close( dtCart, nosave );