Liebe JMP-Community
Ich bereite nebeneinander Heatmaps von Genexpressionsänderungen mit jeweils zwei y-Achsen vor (Genontologie und Funktion).
Im Moment erstelle ich separate Grafiken und füge sie in Powerpoint zusammen. Siehe Bild:
Es wäre großartig, sie in einem Diagrammfenster zu erstellen, um die Legende und alle anderen Attribute zu standardisieren
Allerdings funktioniert das bei mir nicht (siehe Bild). Im Wesentlichen möchte ich mehrere Y-Achsen für nicht redundante Daten erstellen.
Zelldiagramm mit zwei Beschriftungen und der Funktion "by" funktioniert OK, aber die Legende kann nicht einfach geändert werden, daher verwende ich diese Option nicht
Am besten,
Hilft Ihnen so eine Ausgabe überhaupt?
Im Anhang ist die Beispieldatentabelle, die ich für die Erstellung dieses Diagramms verwendet habe, unten ist das Skript
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>
