使用ggplot2

Question

这个问题是对previous question I posted to stackoverflow which has already been addressed的跟进。我要再次感谢那些花时间解决上一个问题的答辩人。为简明起见，我不会重现上一个问题的细节，所以请参考超链接查看数据集以重现问题。

总之，我有一个图表涉及三组按颜色分组的点＆＃34; Formulation＆＃34;和八个使用线型和大小分组的非彩色线，后者映射到两个不同的分组变量（＆＃34; Fa.IVIVC＆＃34;和＆＃34;分别突出显示＆＃34;）。使用的命令在下面再现，然后是结果图。

> ggplot() +
+   geom_point(data = df, aes(
+     x = invitro,
+     y = invivo,
+     colour = factor(Form, labels = c("Fast", "Medium", "Slow"))
+   )) +
+   geom_line(
+     data = line_data,
+     aes(x = invitro, y = Fabs, linetype = `Fa.IVIVC`, size = Highlight)
+   ) +
+   labs(title = "Plot", colour = "Formulation") +
+   scale_x_continuous(limits = c(0, 100)) +
+   scale_y_continuous(limits = c(0, 100)) +
+   guides(size = FALSE) +
+   scale_size_manual(values = c("TRUE" = 2, "FALSE" = 0.5)) +
+   theme(
+     panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
+     panel.background = element_blank(), axis.line = element_line(colour = "black")
+   )

请注意，上面的命令作用于数据框，该数据框已扩充为我使用dput（）发布的原始数据框。

上一篇文章的主要目的是找出如何在繁忙的情节中突出显示两行。然而，除非图例中还显示相关的行，否则此目标的清晰度会降低。指定的厚度。我不想用太多的传说混淆情节，而现在，传说中的配方＆＃39;和＆＃39; Fa.IVIVC＆＃39;似乎已经足够了。 所以，我真的想要变量＆＃34;突出显示＆＃34;的行的线宽。 =正确显示在传奇＆＃39; Fa.IVIVC＆＃39;中。怎么办呢？

谢谢。

Answer 1

您可以在scale_size_manual ...中手动定义线宽 我认为最好稍微修改图例键以删除灰色背景（使其与主题匹配），并使用legend.key.width中的theme参数增加键的宽度（否则你粗虚线的图例只显示一个点。

ggplot() +
    geom_point(data = df, aes(
        x = invitro,
        y = invivo,
        colour = factor(Form, labels = c("Fast", "Medium", "Slow"))
        )) +
    geom_line(
        data = line_data,
        aes(x = invitro, y = Fabs, linetype = `Fa.IVIVC`, size = `Fa.IVIVC`)
        ) +
    labs(title = "Plot", colour = "Formulation") +
    scale_x_continuous(limits = c(0, 100)) +
    scale_y_continuous(limits = c(0, 100)) +
    scale_size_manual(values = c("DWeibull" = 0.5, "Fa = Fd" = 2, 
                                 "Fa = m*Fd + c" = 0.5, "polyx2" = 0.5, "polyx3" = 0.5, 
                                 "powerlaw" = 2, "Sigmoid" = 0.5, "SWeibull" = 0.5, 
                                 "Time scale 1" = 0.5, "Time scale 2" = 0.5)) +
    theme(
        panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(), axis.line = element_line(colour = "black"),
        legend.key = element_blank(), legend.key.width = unit(4,"line")
        )