до сих пор я не могу найти подходящий ответ, вот мой короткий вопрос о ggplot2 в R:
data(mtcars)
ggplot(data=mtcars, aes(x=mpg, y=wt, fill=factor(cyl))) +
scale_fill_manual(values=c("red","orange","blue"))+
geom_point(size=2, pch=21)+
facet_grid(.~cyl)
Все в порядке, теперь мне нужны все точки данных (независимо от того, какой номер у цилиндра) в каждой грани (например, с гладким серым цветом под точками)?
Спасибо, Майкл
Вот небольшое упрощение, которое немного облегчает жизнь. Единственное, что вам нужно сделать, это удалить переменную фасетирования из данных, предоставленных фоновому слою geom_point().
library(tidyverse)
ggplot(data=mtcars, aes(x=mpg, y=wt)) +
geom_point(data=select(mtcars,-cyl), colour="grey") +
geom_point(size=2, pch=21, aes(fill=factor(cyl))) +
scale_fill_manual(values=c("red","orange","blue")) +
facet_wrap(~cyl)
Используя ссылку, предоставленную @beetroot, я смог сделать что-то вроде этого:
g1 <- ggplot(data=mtcars, aes(x=mpg, y=wt)) +
geom_point(data=mtcars[, c("mpg", "wt")], aes(x=mpg, y=wt), colour="grey") +
geom_point(size=2, pch=21, aes(fill=factor(cyl))) +
scale_fill_manual(values=c("red","orange","blue")) +
facet_wrap(~cyl)
Это создает график:
Надеюсь, это поможет вам.
