Question

我正在尝试做一些我认为应该简单的事情，但是我整个上午都采取了行动！我想在图上绘制回归线，然后在图上添加一对一线（1：1）。图例应该有5行，其中4行来自数据，1行是从数据外部创建的。我几乎都知道如何标记线条和颜色，但我似乎无法设置线型。 ggplot似乎有2个重叠的线型为虚线：一条短胖线超过我想要的瘦线。如何使虚线在图例中显示为虚线？

这是一些帮助诊断问题的示例代码。

dat <- data.frame(Automatic_count = rnorm(100), Manual_count=rnorm(100), Dataset=c(rep("cuticle_db_test",25), rep("ginkgo_test", 25), rep("forty_x_test",25), rep("twenty_x_test",25)))

p1 <- ggplot(dat, aes(x=Automatic_count, y=Manual_count)) +
  geom_point() +
  geom_smooth(data=dat,aes(fill=Dataset, colour=Dataset), method='lm', se=FALSE) +
  scale_color_manual(values=c("red","#F8766D","#7CAE00","#00BFC4","#C77CFF"),
                     labels=c("Cuticle Database", "40x", "Ginkgo", "20x","1:1"),
                     breaks=c("cuticle_db_test","forty_x_test","ginkgo_test","twenty_x_test","1:1"),
                     name="Dataset",
                     guide=guide_legend(override.aes=list(linetype=c(1,1,1,1,2)))) +
  geom_segment(aes(x=-2,y=-2,xend=2,yend=2,colour='1:1'), linetype=2, show.legend = TRUE) +
  guides(fill=FALSE) +
  ylab("Human Count") +
  xlab("Automatic Count")

Output of the above code

提前致谢！

Answer 1

您需要在lwd中指定线宽guide_legend，例如

p1 <- ggplot(dat, aes(x=Automatic_count, y=Manual_count)) +
  geom_point() +
  geom_smooth(data=dat,aes(fill=Dataset, colour=Dataset), method='lm', se=FALSE) +
  scale_color_manual(values=c("red","#F8766D","#7CAE00","#00BFC4","#C77CFF"),
                     labels=c("Cuticle Database", "40x", "Ginkgo", "20x","1:1"),
                     breaks=c("cuticle_db_test","forty_x_test","ginkgo_test","twenty_x_test","1:1"),
                     name="Dataset",
                     guide=guide_legend(override.aes=list(linetype=c(1,1,1,1,2), lwd=c(1,1,1,1,0.5)))) +
  geom_segment(aes(x=-2,y=-2,xend=2,yend=2,colour='1:1'), linetype=2, show.legend = TRUE) +
  guides(fill=FALSE) +
  ylab("Human Count") +
  xlab("Automatic Count")

图例中的ggplot2虚线未正确显示

1 个答案: