添加传说到ggplot直方图与不同类型的美学

Question

我想添加一个图例我的情节，但我有不同的美学，我从来没有创建一个传奇，所以我觉得很难确定如何建立它。

我的美学之一是填充代码，我手动添加为矢量。另一种美学是我用geom_vline添加的垂直线。

从下面的图表中，我要添加到图例中的三个特征：1）带深蓝色条纹，2）带浅蓝色条纹和3）垂直线条。

有没有人对我如何有效地编码这个建议？

#df 
df <- data.frame(Time_Diff <- runif(1000, 0, 200)) 


# Show median, IQR range and outliers 
colors <- c(rep("blue",3), rep("paleturquoise2",38)) 
bp_overall <- ggplot(data = df, aes(Time_Diff)) 
bp_overall + 
    geom_histogram(binwidth = 5, fill = colors) + #create histogram 
    ggtitle("Time Difference") + 
    xlab("Time in Days") + 
    ylab("Amount") + 
    geom_vline(xintercept = 3, linetype = "twodash", size = 1,  colour= "darkblue") + #show median 
    scale_x_continuous(breaks = seq(0, 202, 10)) + 
    theme_light() + 
    theme(panel.grid.minor = element_blank(), 
    panel.border = element_blank(), #remove all border lines 
    axis.line.x = element_line(size = 0.5, linetype = "solid", colour = "black"), #add x-axis border line 
    axis.line.y = element_line(size = 0.5, linetype = "solid", colour = "black")) + #add y-axis border line 
    theme(plot.title = element_text(family = windowsFont("Verdana"),  color="black", size=14, hjust = 0.5)) + 
    theme(axis.title = element_text(family = windowsFont("Verdana"), color="black", size=12)) 

经过朱克的建议，我来到了下面的脚本，该脚本很有效，我很满意。我现在唯一想做的事情就是让传奇成为一个整体（直方图传奇和线传奇组合成一个连贯的整体）。任何人都有一个建议？

# reformat data 
set.seed(1) 
df <- data.frame(runif(1000, 0, 200)) 
colnames(df) <- "Time_Diff" 

bp_overall + 
    geom_histogram(data = subset(df, Time_Diff <= 12.5), aes(x = Time_Diff, fill="BAR BLUE"), binwidth = 5) + # subset for blue data, where aes fill is fill group 1 label 
    geom_histogram(data = subset(df, Time_Diff > 12.5), aes(x = Time_Diff, fill="BAR TURQUOISE"), binwidth = 5) + # subset for turquoise data, where aes fill is fill group 2 label 
    scale_fill_manual("Histogram Legend", values=c("blue", "paleturquoise2")) + # manually assign histogram fill colors 
    geom_vline(aes(xintercept = 3, colour="LINE DARK BLUE"), linetype="twodash", size = 1) + # where aes colour is vline label 
    scale_colour_manual("Line Legend", values="darkblue") + #removed legend title 
    scale_x_continuous(breaks = seq(0, 202, 10)) + 
    ggtitle("Time Difference") + 
    xlab("Time in Days") + 
    ylab("Amount") + 
    theme_light() + 
    theme(panel.grid.minor = element_blank(), 
     panel.border = element_blank(), 
     axis.line.x = element_line(size = 0.5, linetype = "solid", colour = "black"), 
     axis.line.y = element_line(size = 0.5, linetype = "solid", colour = "black"), 
     legend.position = c(0.95, 0.95), 
     legend.justification = c("right", "top"), 
     legend.box.just = ("right")) 

Answer 1

我觉得@ Jimbou的建议是可取的，但有一个变通为scale_fill_manual或scale_colour_manual通过指定一个字符值geom_histogramaesfill值和geom_vlineaescolour价值人为制造的传说，然后设置颜色。但是这种方法

aesfill只需要一个值（长度为1），所以你必须你的子集为df蓝色和绿色价值观和绘制直方图每个，与您binwidth确定截止。

以下是方法。请注意您的数据需要重新格式化。

# reformat data 
set.seed(1) 
df <- data.frame(runif(1000, 0, 200)) 
colnames(df) <- "Time_Diff" 


bp_overall <- ggplot(data = df) 
bp_overall + 
    geom_histogram(data = subset(df, Time_Diff <= 12.5), aes(x = Time_Diff, fill="BAR BLUE"), binwidth = 5) + # subset for blue data, where aes fill is fill group 1 label 
    geom_histogram(data = subset(df, Time_Diff > 12.5), aes(x = Time_Diff, fill="BAR TURQUOISE"), binwidth = 5) + # subset for turquoise data, where aes fill is fill group 2 label 
    scale_fill_manual("Histogram Legend", values=c("blue", "paleturquoise2")) + # manually assign histogram fill colors 
    geom_vline(aes(xintercept = 3, colour="LINE DARK BLUE"), linetype="twodash", size = 1) + # where aes colour is vline label 
    scale_colour_manual("Line Legend", values="darkblue") + # manually assign vline colors 
    scale_x_continuous(breaks = seq(0, 202, 10)) + 
    ggtitle("Time Difference") + 
    xlab("Time in Days") + 
    ylab("Amount") + 
    theme_light() + 
    theme(panel.grid.minor = element_blank(), 
    panel.border = element_blank(), 
    axis.line.x = element_line(size = 0.5, linetype = "solid", colour = "black"), 
    axis.line.y = element_line(size = 0.5, linetype = "solid", colour = "black")) 

等等添加您的剩余theme。

编辑：要回答如何统一的传说和两个传奇人物类型

（1）通过设置scale_fill_manual为“”删除了U电源传说name，变化柱状图填充物之间减少间距问题传说name到scale_colour_manual中的“传说”。 （2）指定order其中应出现图例，先填充然后用guidesguide_legend填充颜色。

（3）通过设置legend.spacing.y到0拆下两个图例类型之间的y间隔，和删除在theme

bp_overall <- ggplot(data = df) 
bp_overall + 
    geom_histogram(data = subset(df, Time_Diff <= 12.5), aes(x = Time_Diff, fill="BAR BLUE"), binwidth = 5) + 
    geom_histogram(data = subset(df, Time_Diff > 12.5), aes(x = Time_Diff, fill="BAR TURQUOISE"), binwidth = 5) + 
    scale_fill_manual(name="Legend", values=c("blue", "paleturquoise2")) + 
    geom_vline(aes(xintercept = 3, colour="LINE DARK BLUE"), linetype="twodash", size = 1) + 
    scale_colour_manual(name="", values="darkblue") + 
    scale_x_continuous(breaks = seq(0, 202, 10)) + 
    ggtitle("Time Difference") + 
    xlab("Time in Days") + 
    ylab("Amount") + 
    theme_light() + 
    theme(panel.grid.minor = element_blank(), 
    panel.border = element_blank(), 
    axis.line.x = element_line(size = 0.5, linetype = "solid", colour = "black"), 
    axis.line.y = element_line(size = 0.5, linetype = "solid", colour = "black"), 
    legend.spacing.y = unit(0, "cm"), 
    legend.margin=margin(t=0, r=0.5, b=0, l=0.5, unit="cm")) + 
    guides(fill = guide_legend(order = 1), 
    colour = guide_legend(order = 2))