Я написал следующую функцию для дублирования набора данных и создания дополнительной копии под данными под переменной all
.
facet
Вместо того, чтобы перезаписывать исходный столбец данных фасета, функция создает новый столбец facet
. Преимущество этого в том, что мы можем использовать исходный столбец для определения эстетики точки графика.
df <- CreateAllFacet(iris, "Species")
ggplot(data=df, aes(x=Sepal.Length,y=Petal.Length)) +
geom_point(aes(color=Species)) +
facet_wrap(~facet, ncol=2)
Я чувствую, что легенда является необязательной в этом случае, поскольку она в значительной степени дублирует информацию, уже имеющуюся в сюжете. Его можно легко скрыть дополнительной линией+ theme(legend.position = "none")