Объединение линейчатой ​​и линейной диаграммы с числовыми и категориальными переменными с помощью ggplot R

Question

Я пытаюсь объединить гистограмму и линейный график в ggplot, используя непрерывные и категориальные переменные.Мне в основном нужно сделать что-то вроде этого:

Пока у меня есть этот код:

ggplot(data=nutrients, aes(x=Plot, y=Level, fill=Factor)) +
         geom_bar(stat="identity", position = 'dodge', colour="black")

Answer 1

ggplot(mtcars, aes(x = factor(cyl), y = wt, fill = factor(gear))) + 
    geom_bar(stat = "identity", position = "dodge") +
    geom_line(aes(y = ave(wt, cyl, FUN = max), group = gear)) + 
    geom_point(aes(y = ave(wt, cyl, FUN = max), group = gear))

При необходимости измените FUN