If for whatever reason you don't want to rename the columns, you could make calculated columns when launching the platform. Here is one table with a PCA showing the original names and one with shorter names:
Names Default To Here( 1 );
dt = Open( "$Sample_data/Quality Control/Chemical Reactor Process.jmp" );
New window("PCA Compare",
h list box(
dt << Principal Components(
Y( :A.Feed.S1, :D.Feed.S2, :E.Feed.S3, :Total.Feed.S4 ),
Estimation Method( "Row-wise" ),
Standardize( "Standardized" ),
Loading Plot( 2 )
),
dt << Principal Components(
Transform Column( "S1", Formula( :A.Feed.S1 ) ),
Transform Column( "S2", Formula( :D.Feed.S2 ) ),
Transform Column( "S3", Formula( :E.Feed.S3 ) ),
Transform Column( "S4", Formula( :Total.Feed.S4 ) ),
Y( :S1, :S2, :S3, :S4 ),
Estimation Method( "Row-wise" ),
Standardize( "Standardized" ),
Loading Plot( 2 )
);
)
);