Создание следующего графика приводит к тому, что легенда помещается вертикально, справа, а не снизу горизонтально, как указано в вызове opts():
dat <- data.frame(x = runif(10), y = runif(10),
grp = rep(letters[1:2],each = 5))
ggplot(data = dat, aes(x = x, y = y, colour = grp)) +
geom_point() +
opts(legend.position = "bottom", legend.direction = "horizontal") +
theme_bw()
Как получить легенду в правильном месте?
Проблема заключается в том, что theme_bw() помещается после вызова opts() и сбрасывает некоторые значения по умолчанию. Просто поставьте theme_bw() до opts():
ggplot(data = dat, aes(x = x, y = y, colour = grp)) +
geom_point() +
theme_bw() +
opts(legend.position = "bottom", legend.direction = "horizontal")
Примечание. Поскольку версия 0.9.2 opts была заменена на theme:
theme(legend.position = "bottom", legend.direction = "horizontal")
