Cara comunità JMP
Sto preparando mappe di calore affiancate dei cambiamenti dell'espressione genica con due assi y in ciascuno (ontologia genica e funzione).
Per ora sto creando grafici separati e li sto mettendo insieme in powerpoint. Guarda l'immagine:
Sarebbe fantastico crearli in una finestra del grafico per standardizzare la legenda e tutti gli altri attributi
Tuttavia questo non sta funzionando per me (vedi foto). In sostanza, voglio creare più assi Y per dati non ridondanti.
Cell plot con due etichette e la funzione "by" funziona bene ma la legenda non è facilmente modificabile quindi non sto usando quell'opzione
Migliore,
Un output come questo ti aiuta?
In allegato è la tabella di dati di esempio che ho utilizzato per la generazione di questo grafico, di seguito è riportato lo 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>
