Variieren die Farben von Achsenbeschriftungen in R basierend auf anderen Variablen

Ich in der Regel mit ggplot2, aber in diesem Fall bin ich mit dem regelmäßigen image() Funktion zum zeichnen einer heatmap von einem großen Datensatz. Ich kann label alle des labels, wie rot, aber ich möchte die Beschriftung der y-Achse mit text in verschiedenen Farben basierend auf einem Vektor der Farbe, die Definitionen, die ich generieren:

grid = structure(c(1:12),.Dim = c(4,3))
labs = c("A","B","C")
image(1:4,1:3,grid,axes=FALSE, xlab="", ylab = "")
#This works but isn't the colors I want
axis(2,at=1:length(labs),labels=labs,las=2, adj=1,cex.axis=0.6,col.axis="red")

Generiert das folgende Bild:

Ich würde gerne labels A und C werden schwarz und B rot. Dies ist, was ich versucht habe, aber es gibt eine "falsche Länge" Fehler...

axiscolors = c("black","red","black")
axis(2,at=1:length(labs),labels=labs,las=2, adj=1, cex.axis=0.6, col.axis=axiscolors)

Dies ist der Effekt, den ich bin danach mit ein paar "echte" Daten...

Variieren die Farben von Achsenbeschriftungen in R basierend auf anderen Variablen

EDIT:

Als back-up, falls dies möglich ist, in ggplot2, ich könnte bereit sein, zu re-factor meinem code. Es gibt ein paar andere Anwendungen die ich benutzen würde für diese als gut.

Ich herausgefunden, einen Weg zu zeichnen eine Schicht von roten Symbole über der Spitze des alten labels, aber würde es vorziehen, eine native-Methode mit der Farbe, Vektor, wenn möglich...

sublabs = c("B")
axis(2,at=match(sublabs,labs),labels=sublabs,las=2, adj=1, cex.axis=0.6, col.axis="red")

Andere Weg wäre, um text() wenn ich könnte die Etiketten außerhalb der Handlung Raum...

text(c(1,1,1),c(1,2,3),labs,col=c("black","red","black"))

UPDATE: Siehe weiter unten für eine Lösung, die mit ggplot2...

Ich glaube nicht, dass Sie finden ein "native-Methode". Es ist eine ziemlich starke kulturelle Widerstand unter den R Autoren zu dem, was einige Leute nennen würde "chart-junk".
Interessant. Ich bin ein die-hard Tufte-ein, aber eine person die "chart-junk" ist eine andere person Informationen. (In den non-Spielzeug-Beispiel habe ich 91 Werte auf der y-Achse und bin Etikettierung der 16 neu durchsetzt Zeilen zu markieren, wo Sie herauskommen.)
Ich habe mir den code, der ist ausgesetzt, ein normaler Benutzer und nicht sehen, alles, was gehackt werden in reiner R für graphics::axis. Ich Frage mich, ob raster-Grafiken möglicherweise eine Angriffsmöglichkeit. Ich sehe, dass es ist ein lattice-version von lattice::axis.default und es sieht aus wie die 'tun.Etiketten Abschnitt wäre vielversprechend. Sie müssen möglicherweise auch hack lattice::panel.axis.
?mtext statt ?text wäre der Weg zu gehen.
Vielleicht könnten Sie verwenden layout zu erstellen, die unabhängige Achse Etiketten und positionieren Sie Sie nah am original graph ohne Achsenbeschriftungen. Aber das scheint mehr Arbeit als das zeichnen einer Schicht von neuen Symbolen über die alten Symbole. Vielleicht könnten Sie Ihre position text - Anweisung außerhalb der Zeichnungsfläche Bereich mit outer, inset - und/oder mar.

InformationsquelleAutor beroe | 2013-09-17

9

Wenn Sie ignorieren die vektorisierte Möglichkeiten wie text und mtext ist, können Sie es durch mehrmalige axis. Der Aufwand zeitlich sehr gering und es können alle die axis Berechnungen auftreten, wie Sie es normalerweise tun. E. g.:
```
# original code
grid = structure(c(1:12),.Dim = c(4,3))
labs = c("A","B","C")
image(1:4,1:3,grid,axes=FALSE, xlab="", ylab = "")
axiscolors = c("black","red","black")

# new code    
Map(axis, side=2, at=1:3, col.axis=axiscolors, labels=labs, lwd=0, las=1)
axis(2,at=1:3,labels=FALSE)
```
Ergibt:
- Danke. Ich mag diese Lösung, da es scheint gut zu skalieren und nutzt die Natürliche axis() Befehl eher als Feinabstimmung der position der text.
InformationsquelleAutor thelatemail

Annahme @thelatemail Antwort als die flexibelste, aber es stellt sich auch heraus, ziemlich einfach mit text() wenn Sie hinzufügen xpd = TRUE zu ermöglichen Plotten, die außerhalb des Rahmens. Mit mtext() auch funktionieren, aber es nicht erlauben, Sie zu drehen Etiketten.

grid = structure(c(1:20),.Dim = c(4,5))
labs = c("A","B","C","D","E")
redlabs = c("B","D")
colorlist = c("black","red")
# one of many ways to generate the color labels
axiscolor = colorlist[labs %in% redlabs +1 ]

image(1:4,1:5,grid,axes=FALSE, xlab="", ylab = "")
axis(2,at=1:length(labs),labels=FALSE)

# This would work for sideways labels
# mtext(text=labs, side=2,at=1:length(labs),col=axiscolor,adj=.5)
text(labels=labs, col=axiscolor, x=rep(.45,length(labs)), y=1:length(labs), srt = 0, pos = 2, xpd = TRUE)

Variieren die Farben von Achsenbeschriftungen in R basierend auf anderen Variablen

UPDATE für ggplot2: Sie können theme() und element_text um die Farben und andere Parameter. So etwas wie dieses...

 p + theme(axis.text.y = element_text(color=axiscolor))

InformationsquelleAutor beroe

Könnten Sie einen Vektor mit den Farben, die Sie anwenden möchten, um die Etiketten und dann eine Schleife verwenden, um die Etiketten farbig mit axis(). Im folgenden Beispiel verwende ich eine andere Farbe für jede Ebene ein Punkt-Diagramm.

DF <- data.frame(habitat=c("Hab 1","Hab 2","Hab 3","Hab 4","Hab 5"), mean=c(0.53,0.28,0.30,0.35,0.39), color=colors()[c(24,257,26,504,652)])
> DF
habitat mean      color
1   Hab 1 0.53      black
2   Hab 2 0.28     green3
3   Hab 3 0.30       blue
4   Hab 4 0.35 orangered1
5   Hab 5 0.39     yellow

par(mar=c(7, 5, 4, 3))
dotchart(DF[,2], xlim=c(0.2,0.6), col=as.character(DF$color), pch=16, lcolor="white", xlab=colnames(DF[2])) # Plot the points 
for (j in 1:5){
axis(side=2, at=j, col.axis=as.character(DF$color)[j], labels=DF$habitat[j], las=1) # Add habitat as labels, each with corresponding color, on the left margin
}

Das könnte funktionieren. Ich wünschte nur, es war ein Weg, es zu tun als ein Vektor anstatt einer Schleife: axis(side=2, at=as.numeric(DF$habitat), col.axis=as.character(DF$color), labels=DF$habitat, las=1)

InformationsquelleAutor Esti

0

Mag ich sehr, thelatemail Ansatz, und kann nur hinzufügen, eine kleine Verfeinerung, da die festen "zu" Positionen (wie im Beispiel oben mit at = 1:3) funktionierte nicht gut für mich. In meinem Fall, ich brauchte, um zu erzeugen ein barplot-und meine eigenen Werte für Raum und Breite Parameter. Am Ende, was ich benutzt aussieht (Beispiel mit zufälligen Daten, in die ich wollte die bars und Etiketten für positive (nicht-negative, um genauer zu sein) Daten Werte werden grün und rot sonst. Für dieses Beispiel benutze ich auch die letters - Funktion, um Etiketten und drehen Sie die Etiketten mit las = 2):
```
x <- rnorm(26)
color <- rep("green", length(x))
color[x < 0] <- "red"

par(mar=c(6,4.1,4.1,2.1))
barplot(x, las = 2, ylim = c(min(x)-0.5, max(x)+0.5), col = color, space = 0.5, width = 2)    
Map(function(x,y,z) 
axis(1,at=x,col.axis=y,labels=z,lwd=0,las=2),
seq(from = 2, by = 3, length.out = length(x)),
color,
letters
)
axis(1,at=seq(from = 2, by = 3, length.out = length(x)),labels=FALSE)
```
InformationsquelleAutor Valeri Voev

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.