Я пытаюсь выровнять несколько графиков в R, используя ggplot2, чтобы оси x выстраивались вертикально. Однако, как вы можете видеть, поскольку легенды имеют разные размеры, каждая ось «х» выходит разной ширины:
Код, который я сейчас использую, показан ниже. Я счастлив использовать любую работающую технику, не обязательно подход, который я использую сейчас.
th = theme(legend.key.width = unit(5, "cm"))
plots <- function() {
ss <<- read_csv("support.csv")
ww <<- read_csv("weight.csv")
tt <<- read_csv("totals.csv")
p1 <<- ggplot(data=ss, mapping=aes(t, support, colour=id)) + geom_line() + th
p2 <<- ggplot(data=ww, mapping=aes(t, weight, colour=suppid)) + geom_line() + th
p3 <<- ggplot(data=tt, mapping=aes(t, y, colour=total)) + geom_line() + th
multiplot(p1, p2, p3, cols=1)
}
, где multiplot скопировано с cookbook-r.com . Как видите, моя попытка установить ширину легенд не сработала. Мне действительно нужно увидеть легенды, чтобы я мог сказать, какая линия есть (или, по крайней мере, сделать обоснованные предположения о среднем графике).