Gradient Fill Violinplots mit ggplot2

Question

Ich möchte Gradient füllen ein Geigen-Plot basierend auf der Dichte der Punkte in den Bins (blau für höchste Dichte und rot für die niedrigsten).

Ich habe ein Diagramm mit den folgenden Befehlen erstellt, aber es nicht basierend auf Dichte (in diesem Fall die Breite der Violine. Ich möchte auch Box-Plots mit ähnlicher Färbung erzeugen).

library("ggplot2") 
data(diamonds) 

ggplot(diamonds, aes(x=cut,y=carat)) + geom_violin() 

Answer 1

die Farbe der Violine Plot Sie füllen verwenden ändern = Variable, wie folgt aus:

ggplot(diamonds, aes(x=cut,y=carat)) + geom_violin(aes(fill=cut)) 

gleiche gilt für boxplot

ggplot(diamonds, aes(x=cut,y=carat)) + geom_boxplot(aes(fill=cut)) 

aber was auch immer Wert Sie müssen für jeden Schnitt denselben Wert haben, das heißt, wenn Sie beispielsweise mea verwenden möchten n Tiefe/Schnitt als Farbvariable müssten Sie es kodieren.

mit dplyr Gruppe Ihre Diamanten durch Schnitt und mit Fasse die mittlere Tiefe erhalten (oder jede andere Variable)

library(dplyr) 
diamonds_group <- group_by(diamonds, cut) 
diamonds_group <- summarize(diamonds_group, Mean_Price = mean(price)) 

Dann habe ich als Kopie von Diamanten diamonds2, um dann den Datensatz zu manipulieren

diamonds2 <- diamonds 

ich fusionieren beide Datenrahmen die Mean_Depth als Variable in diamonds2

diamonds2 <- merge(diamonds2, diamonds_group) 

zu erhaltenUnd jetzt kann ich es mit einer mittleren Tiefe als Farb variable plotten

ggplot(diamonds2, aes(x=cut,y=carat)) + geom_boxplot(aes(fill=Mean_Price)) + scale_fill_gradient2(midpoint = mean(diamonds2$price))