Estimada comunidad JMP
Estoy preparando mapas de calor uno al lado del otro de los cambios de expresión génica con dos ejes y en cada uno (Ontología y función de genes).
Por ahora estoy haciendo gráficas separadas y uniéndolas en powerpoint. Ver imagen:

Sería genial hacerlos en una ventana de gráfico para estandarizar la leyenda y todos los demás atributos.
Sin embargo, esto no está funcionando para mí (ver imagen). En esencia, quiero hacer múltiples ejes Y para datos no redundantes.
El diagrama de celdas con dos etiquetas y la función "por" funciona bien, pero la leyenda no se puede modificar fácilmente, por lo que no estoy usando esa opción.
Mejor,
¿Te ayuda en algo una salida como esta?

Se adjunta la tabla de datos de muestra que utilicé para la generación de este gráfico, a continuación se muestra el script
names default to here(1);
dt=current data table();
// Add Blank Columns
dt << Add Multiple Columns( "color", 3, after(:gene ontology),Character);
// Change data table original names
dt:Biological << set name("Biological Value");
dt:Color 1 << set name("Biological");
dt:Cellular << set name("Cellular Value");
dt:Color 2 << set name("Cellular");
dt:Molecular << set name("Molecular Value");
dt:Color 3 << set name("Molecular");
// Stack the values
dtStack = dt << Stack(
columns( :Biological Value, :Cellular Value, :Molecular Value ),
Source Label Column( "Label" ),
Stacked Data Column( "Data" ),
Name( "Non-stacked columns" )(Keep( :Gene Ontology ))
);
// Delete missing value cells
dtStack << select where(ismissing(:data));
dtStack << delete rows;
dtStack:Data << set name("% of transcript");
// set the colors
dtStack << Color by Column( :Name("% of transcript"), Make window with legend(1));
current data table(dtStack);
For(i=1,i<=N Rows(dtStack),i++,
theRow = dt << get rows where(dtStack:Gene Ontology[i] == :gene ontology);
If(dtStack:Label[i] == "Molecular Value",
dt:Molecular << color cells(color of(rowstate(i)),theRow[1]),
dtStack:Label[i] == "Biological Value",
dt:Biological << color cells(color of(rowstate(i)),theRow[1]),
dtStack:Label[i] == "Cellular Value",
dt:Cellular << color cells(color of(rowstate(i)),theRow[1]),
)
);
close( dtStack, nosave );
// Get rid on unwanted columns
dt << delete columns({"Biological Value","Cellular Value","Molecular Value"});
// Perform some crazy manuvers to get the data table and graph as a static
// image in the final display
nw2=new window("temp",<<JOURNAL></JOURNAL>