使用填充时 geom_point 中的点大小

Question

我想使用 ggplot 来显示点和线，但我希望有两个图例 - 一个用于点，一个用于线。

我设法使用下面的代码做到了这一点，但由于某种原因，'size' 选项在 geom_point 中不再响应，并且它们停留在您在图像中看到的相当丑陋的尺寸 .

请注意，我选择 stroke = NA 是因为我不希望这些点有边框。代码如下。

有什么想法吗？

ggplot(data = plot_data) +
    geom_point(aes(x = z.1, y = obs, fill = treatcat), alpha = 0.4, shape = 21, stroke = NA, size = 1) +
    geom_line(aes(x = z.1, y = under, colour = "True"), linetype = "dashed") +
    geom_line(aes(x = z.1, y = crude, colour = "Crude"), size = 1.5) +
    scale_fill_manual(name = "Treatment",
                        values = c("0" = "#F8766D", "1" = "#C77CFF"),
                        breaks = c("0", "1"),
                        labels = c("Untreated", "Treated")) + 
    scale_colour_manual(name = "Model",
                        values = c("Crude" = "orange", "True" = "black"),
                        breaks = c("Crude", "True"),
                        labels = c("Crude", "True")) + 
    ylim(-30,27.5) +
    theme(plot.title = element_text(size = "12")) +
    labs(title = "Fitted Values for Crude Model", x = "Z", y = "Y(1)")

Answer 1

也许你想要两个色标，这里是 ggnewscale 的解决方案。即将出现几个具有类似功能的 github 软件包（中继器和 ggh4x），但据我所知，目前这是唯一的 CRAN 选项。

根据评论 - 我正在使用 see::geom_point2 因为我也不喜欢那些笔画

library(ggplot2)
library(see)

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) +
    geom_point2(aes(color = Petal.Width), alpha = 0.4, size = 10) +
  ggnewscale::new_scale_color() +
    geom_smooth(aes(color = Species), linetype = "dashed", method = "lm")

Answer 2

目前，ggplot2 中存在一个错误，导致无法更改 size 一次 stroke = NA (https://github.com/tidyverse/ggplot2/issues/4624)。显然，设置 'stroke = 0' 也不会消除边框。

要实现您想要的效果，您需要将颜色设置为 'transparent':

library(ggplot2)
df = data.frame(x=rnorm(100), y=rnorm(100))
ggplot(df, aes(x, y)) + geom_point(shape=21, stroke=0, fill="orange", color="transparent", size=8)

^{由 reprex package (v2.0.1)}

于 2021-09-20 创建

使用填充时 geom_point 中的点大小

Point size in geom_point when using fill

r

ggplot2

geom-point