426270_zh-CN

liliconcom

JMP 脚本：将非空值从多列复制到新列

大家好，

 

目前使用 JMP15 ，
需要帮助将非空值从多列复制到不同的列，

不确定我在下面正确解释了问题是我正在寻找的

这里的列名和计数是可变的

并且每行也只有 2 列有值

输入：

预期产出

Column1 和 column2 是输出列

 

分析数据表脚本编写回复：JMP 脚本：将非空值从多列复制到新列

这里有几个解决方案，这两个解决方案都是我对您之前讨论的回复的修改。

Loc() 函数处理缺失值，就像处理零一样。因此，以下硬连线 JSL 有效。不同之处在于没有生产 Delta。相反，正在为第 12 列提取第一个值，为第 13 列提取第二个值

Names Default To Here( 1 );
dt = Current Data Table();

dt << New Column( "Column 12",
 Formula(
  x = :data[Row()] || :data1[Row()] || :data2[Row()] || :data3[Row()] || :data4[Row()] ||
  :data5[Row()] || :data6[Row()] || :data7[Row()] || :data8[Row()] || :data9[Row()];
  y = Loc( x );
  Try( x[y[1]], . );
 )
);

dt << New Column( "Column 13",
 Formula(
  x = :data[Row()] || :data1[Row()] || :data2[Row()] || :data3[Row()] || :data4[Row()] ||
  :data5[Row()] || :data6[Row()] || :data7[Row()] || :data8[Row()] || :data9[Row()];
  y = Loc( x );
  Try( x[y[2]], . );
 )
);

将此扩展到列名称未知且列数可能不同的情况，以下代码将起作用

Names Default To Here( 1 );
dt = Current Data Table();

// Get the columns
colNames = dt << get column names( string, continuous );

// Build the first column and formula
theExpr = "dt<<NEW column=""></NEW>

回复：JMP 脚本：将非空值从多列复制到新列

你好@金瑟约瑟夫,

建立在@txnelson s 方法可能有一个使用一些内置功能的速记脚本。这是通过脚本的最大点击和最小泛化来实现的。

这种方法使用两个命令：组合和文本到列。 combine 的优势在于它可以忽略缺失值。在这种情况下，它被用作没有缺失值的连接。

然后，当我们想要将最终数据放在单独的列中时，文本到列就派上用场了。

请让我们知道它是否有效或需要为您的目的进一步概括。

朗

dt = New Table( "original data set",
 Add Rows( 36 ),
 New Column( "Data 01",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [1, 1, 1, ., ., ., ., ., ., ., ., ., ., ., ., 11, 11, 11, ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .] )
 ),
 New Column( "Data 02",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [., ., ., 2, 2, 2, ., ., ., ., ., ., ., ., ., ., ., ., 12, 12, 12, ., ., ., ., ., ., ., ., ., ., ., ., ., ., .] )
 ),
 New Column( "Data 03",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., 3, 3, 3, ., ., ., ., ., ., ., ., ., ., ., ., 13, 13, 13, ., ., ., ., ., ., ., ., ., ., ., .] )
 ),
 New Column( "Data 04",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., 4, 4, 4, ., ., ., ., ., ., ., ., ., ., ., ., 14, 14, 14, ., ., ., ., ., ., ., ., .] )
 ),
 New Column( "Data 05",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., ., ., ., 5, 5, 5, ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .] ),
  Set Display Width( 59 )
 ),
 New Column( "Data 06",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [10, 10, 10, ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .] )
 ),
 New Column( "Data 07",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [., ., ., 20, 20, 20, ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., 200, 200, 200, ., ., ., ., ., ., ., ., .] )
 ),
 New Column( "Data 08",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., 30, 30, 30, ., ., ., ., ., ., ., ., ., ., ., ., 300, 300, 300, ., ., ., ., ., ., ., ., ., ., ., .] )
 ),
 New Column( "Data 09",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., 40, 40, 40, ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .] ),
  Set Display Width( 67 )
 ),
 New Column( "Data 10",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., ., ., ., 50, 50, 50, ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .] )
 )
);
// now we get to work
// Get the columns names to combine.
colNames = dt << get column names( string, continuous );


// Combine columns using list - here is the trick, it ignores missing values
dt << Combine Columns(
 columns( eval (colNames) ),
 Column Name( "combined" ),
 Delimiter( "," ),
 Multiple Response( 0 )
);

// Text to columns - now we can uncombine the data into as many columns there is actual data. this is robust to any number of events per row.
dt << Text to Columns(
 columns( :combined ),
 Delimiters( "," )
);