ggplot2凡例の字下げインデント

Question

このプロットの凡例では、 "Box"と "ID"を左マージンから同じ距離にしたいと思います。それをどうやって行うのか、いくつかのヒントを教えてください。どうもありがとう！

# Load packages and data  
library(ggplot2) 

ID <- c(rep(1, 10), rep(2, 10)) 
Box <- c(rep("Red", 5), rep("Blue", 5), rep("Red", 5), rep("Blue", 5)) 
Time <- c(seq(1, 5), seq(1, 5), seq(1, 5), seq(1, 5)) 
Value <- runif(20, min=10, max=30) 
dd <- data.frame(ID, Box, Time, Value) 

# Plot 
p1 <- ggplot(data = dd, 
      aes(x = Time, y = Value, 
       group = interaction(ID, Box), 
       shape = as.factor(ID), 
       colour=as.factor(ID), 
       linetype=Box)) + 
    geom_point(size = 3.5) + 
    geom_line() + 
    scale_colour_grey(start = 0, end = 0.5, name = "ID", 
        labels = c("1", "2")) + 
    scale_shape_discrete(name = "ID", 
         labels = c("1", "2")) + 
    scale_linetype_discrete(name = "Box", 
          labels = c("Red", "Blue")) + 
    theme_bw() + 
    theme(panel.grid.major = element_blank(), 
     panel.grid.minor = element_blank(), 
     aspect.ratio = 1, 
     text = element_text(size = 20), 
     legend.position = c(0, 1), 
     legend.justification = c(0, 1), 
     legend.key = element_blank()) 
plot(p1) 

Answer 1

私はあなたが単にtheme()でlegend.box.just = 0を追加する必要があると思います。