ggplotの凡例に正しく表示されるラインタイプ

Question

私は次のデータフレームとプロットを持っています。プロットの凡例では、ポイントのシェイプは表示されず、線も太すぎます。これを修正する方法はありますか？

library(ggplot2) 
library(ggalt) 

x <- rnorm(100) 
y <- rnorm(100) 
group <- rep(c("A","B","C","D"), 25) 
dat <- data.frame(x,y,group) 

ggplot(dat, aes(x=x, y=y, shape=group, color=group)) + 
    geom_point() + 
    geom_encircle(data=subset(dat, group=='A'), aes(x=x,y=y),size=2, linetype=2) + 
    geom_encircle(data=subset(dat, group=='B'), aes(x=x,y=y), size=3, linetype=3) + 
    geom_encircle(data=subset(dat, group=='C'), aes(x=x,y=y),size=4, linetype=4) + 
    geom_encircle(data=subset(dat, group=='D'), aes(x=x,y=y)) 

Answer 1

のではなく、すべて同じ凡例にサイジングで遊ぶ、それは別の伝説にあなたの形状や線種を分割するのが最も簡単かもしれません。正確にはあなたが探していたものではありませんが、それは良いと思います。

library(ggplot2) 
library(ggalt) 

x <- rnorm(100) 
y <- rnorm(100) 
group <- rep(c("A","B","C","D"), 25) 
dat <- data.frame(x,y,group) 

ggplot(dat, aes(x=x, y=y, shape=group, color=group)) + 
    geom_point() + 
    geom_encircle(aes(size=group, linetype = group)) + 
    scale_size_manual(values=c("A" = 2, "B" = 3, "C" = 4, "D" = 1)) + 
    scale_shape_discrete(name = 'Shapes') + 
    scale_color_discrete(name = 'Linetypes') + 
    scale_linetype_discrete(name = 'Linetypes') + 
    guides(shape = guide_legend(override.aes = list(size = 3)), 
     linetype = guide_legend(override.aes = list(shape = NA)), 
     size = FALSE) + 
    theme(legend.key.size = unit(1, 'cm'), 
     legend.box = 'horizontal')