在 ggplot 中将图例拆分为多行。导游不接受群体审美

Vin*_*nay 1 r ggplot2

我想将情节的图例分成两行。我使用了下面的代码,它不会将图例分成两行。我在论坛中搜索,大多数人建议使用美学中的分组,例如,如果按变量分组已填充,则必须在指南参数中传递相同的内容。我和小组一起这样做了,但没有成功。任何帮助,将不胜感激。

points<-c("80","60","40","20","all")` 
var1<-c(59,48,44,39,36)
var2<-c(91,88,81,78,69)
var3<-c(98,97,96,93,90)  
var4<-c(8,7.5,6,5,4)  
data<-data.frame(points,var1,var2,var3,var4)  
data2<-melt(data,key=points) 
x<-ggplot(data2,aes(x=points,y=value,group=variable))+
    geom_line(aes(linetype=variable))+geom_point()+
    scale_linetype_manual(values=c(5,6,3,1))  
x+guides(group=guide_legend(nrow=2))  
Run Code Online (Sandbox Code Playgroud)

Jac*_*kes 6

您为了美观而改变了图例group,而不是为了linetype。我相信没有与此相关的传说group。事实上,自从您使用以来,group您中的映射是多余的。aes(...)linetype

x + guides(linetype = guide_legend(nrow = 2)) 
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述