градиентное заполнение скрипки с использованием ggplot2

Question

Я хочу, чтобы градиент заполнил график скрипки, основанный на плотности точек в бункерах (синий для максимальной плотности и красный для самого низкого).

Я сгенерировал график, используя следующие команды, но не смог покрасить его на основе плотности (в данном случае, ширины скрипки. Я также хотел бы создавать полевые графики с подобной раскраской).

library("ggplot2") 
data(diamonds) 

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

Answer 1

изменить цвет скрипичного участка вы используете заполнить = переменную, например:

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

То же самое касается boxplot

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

но независимо от значения вы должны иметь одинаковое значение для каждого разреза, то есть, если вы хотите использовать, например, mea n depth/cut, как цветовая переменная, которую вы должны были бы закодировать.

с dplyr группой ваши бриллианты по разрезом и с Суммируйте получить глубину средней (или любой другой переменной)

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

Тогда я использовал diamonds2 в качестве копии алмазов затем манипулировать набор данных

diamonds2 <- diamonds 

я объединить оба dataframes, чтобы получить Mean_Depth в качестве переменной в diamonds2

diamonds2 <- merge(diamonds2, diamonds_group) 

И теперь я могу построить его со средней глубиной в качестве переменного цвета

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