垂直定向的线型图例

Question

我使用以下指南风格：

guide.style <- guide_legend(keywidth=.1, keyheight=.5, direction = "horizontal",
                              title.position = "top",
                              label.position="bottom", label.hjust = 0.5, label.vjust = .5,
                              label.theme = element_text(angle = 90, size=8))
guides(color = guide.style, linetype = guide.style)

线型图例在灰色方块上水平绘制线条。但是，本指南风格的重点是使用较少的每个图例条目的宽度来将很多非常高的条目压缩到图例中。

有没有办法垂直绘制线型图例？