Вы можете изменить некоторые параметры функций GGally, используя wrap()
, как описано здесь . Но не все параметры называются для wrap
полезными. Например, если вы попытаетесь изменить палитру по умолчанию с ручной цветовой шкалой внутри wrap
, вы можете получить ошибку, например Error in wrap("cor",…) all parameters must be named arguments
. В этом случае вы можете создать пользовательские функции для создания любого вида объекта ggplot, подходящего для верхнего, нижнего или диагонального участков матрицы.
Однако есть (более безопасный) ярлык, если вы хотите изменить некоторые параметры (не названные в функциях GGally для wrap
ped), не создавая настраиваемую функцию для создания объекта ggplot. Вы просто вызываете уже существующую функцию GGally в вызове функции, добавляя дополнительные параметры ggplot. Например, чтобы обеспечить ручной цвет шкалы для трех категорий (в новом столбце swiss $ groups):
swiss$groups <- gl(n = 3, k = 1, length = nrow(swiss), labels = c("A", "B", "C"))
ggpairs(swiss, mapping = aes(colour = groups), columns = 1:6,
upper = list(continuous = function(data, mapping, ...) {
ggally_cor(data = data, mapping = mapping, size = 2) + scale_colour_manual(values = c("black", "dark green", "red"))}),
lower = list(continuous = function(data, mapping, ...) {
ggally_smooth(data = data, mapping = mapping, alpha = .2) + scale_colour_manual(values = c("black", "dark green", "red"))}),
diag = list(continuous = function(data, mapping, ...) {
ggally_barDiag(data = data, mapping = mapping, alpha = .5) + scale_fill_manual(values = c("black", "dark green", "red"))}))