einfachste Weg, um die Diskretisierung von kontinuierlichen Skalen für ggplot2 Farbskalen?

Nehme an, dass ich diesen plot:


ggplot(iris) + geom_point(aes(x=Sepal.Width, y=Sepal.Length, colour=Sepal.Length)) + scale_colour_gradient()

was ist der richtige Weg, um die Diskretisierung der Farbskala, wie die Handlung dargestellt, die unterhalb der akzeptierten Antworten hier (Farbverlauf bricht in ggplot stat_bin2d Grundstück)?

ggplot richtig erkennt, diskrete Werte und verwendet diskrete Skalen für diese, aber meine Frage ist, wenn Sie die Daten kontinuierlich, und Sie wollen eine diskrete Farbe bar, die für Sie (mit jedes Quadrat entspricht einem Wert, und Quadrate, gefärbt in einem Farbverlauf immer noch), was ist der beste Weg, es zu tun? Sollte die Diskretisierung von/binning passieren außerhalb von ggplot und setzen sich in den dataframe wie eine separate discrete-valued-Spalte, oder gibt es einen Weg, es zu tun in ggplot? ein Beispiel für das, was ich Suche ist ähnlich wie die Skala hier gezeigt:
einfachste Weg, um die Diskretisierung von kontinuierlichen Skalen für ggplot2 Farbskalen?

außer das ich zeichnen Sie ein Streudiagramm und nicht sowas wie geom_tile/heatmap.

Dank.

InformationsquelleAutor | 2013-07-18
  1. 10

    Die Lösung ist etwas kompliziert, denn Sie wollen eine diskrete Skala. Sonst könnten Sie wahrscheinlich verwenden Sie einfach round.

    library(ggplot2)

bincol <- function(x,low,medium,high) {
  breaks <- function(x) pretty(range(x), n = nclass.Sturges(x), min.n = 1)

  colfunc <- colorRampPalette(c(low, medium, high))

  binned <- cut(x,breaks(x))

  res <- colfunc(length(unique(binned)))[as.integer(binned)]
  names(res) <- as.character(binned)
  res
}

labels <- unique(names(bincol(iris$Sepal.Length,"blue","yellow","red")))
breaks <- unique(bincol(iris$Sepal.Length,"blue","yellow","red"))
breaks <- breaks[order(labels,decreasing = TRUE)]
labels <- labels[order(labels,decreasing = TRUE)]


ggplot(iris) + 
  geom_point(aes(x=Sepal.Width, y=Sepal.Length,
                 colour=bincol(Sepal.Length,"blue","yellow","red")), size=4) +
  scale_color_identity("Sepal.Length", labels=labels, 
                       breaks=breaks, guide="legend")

    einfachste Weg, um die Diskretisierung von kontinuierlichen Skalen für ggplot2 Farbskalen?

    • Hat die Bestellung von Etiketten arbeiten, wenn negative zahlen vorhanden sind, in der Variablen verwendet zum färben?
    InformationsquelleAutor Roland
  2. 7

    Können Sie Folgendes versuchen, ich habe deine Beispiel-code entsprechend modifiziert unter:

    #I am not so great at R, so I'll just make a data frame this way
#I am convinced there are better ways. Oh well.
df<-data.frame()
for(x in 1:10){
  for(y in 1:10){
    newrow<-c(x,y,sample(1:1000,1))
    df<-rbind(df,newrow)
  }
}
colnames(df)<-c('X','Y','Val')


#This is the bit you want
p<- ggplot(df, aes(x=X,y=Y,fill=cut(Val, c(0,100,200,300,400,500,Inf))))
p<- p + geom_tile() + scale_fill_brewer(type="seq",palette = "YlGn")
p<- p + guides(fill=guide_legend(title="Legend!"))

#Tight borders
p<- p + scale_x_continuous(expand=c(0,0)) + scale_y_continuous(expand=c(0,0))
p

    Hinweis: der strategische Einsatz von geschnitten, um die Diskretisierung der Daten, gefolgt von der Verwendung von Farb-brewer, die Dinge schön.

    Das Ergebnis sieht wie folgt aus.

    einfachste Weg, um die Diskretisierung von kontinuierlichen Skalen für ggplot2 Farbskalen?

    • Ich mag dieses, aber ich Frage mich, ob es einen Weg gibt, markieren Sie die Skala, wie in dem Beispiel gezeigt in der Frage. Genauer: wie bekommt man die Extreme, die angezeigt werden auf die Schnitt Punkte zwischen der Farbe "Schichten"?
    InformationsquelleAutor Richard
Schreibe einen Kommentar