主页 / coding / 问题 / 79186694
Accepted
tassones
Asked: 2024-11-14 05:11:41 +0800 CST

让图例显示填充颜色，并且让 geom_points 带有黑色轮廓

  • 772

在下图中，我希望图例显示变量“颜色”的填充颜色。我还希望图中的所有点都有黑色轮廓。似乎我可以做其中之一，但不能同时做两者（即图例有颜色，点有黑色轮廓）。我选择了有黑色轮廓的形状，如“剪切”图例中所示。

类似的问题：

点周围保留黑色轮廓，但图例全是黑色

library(tidyverse)

diamonds %>% 
  slice(1:20) %>% 
  ggplot(aes(x = x,
             y = y,
             shape = cut,
             fill = color)) +
  geom_point(size = 3,
             alpha = 0.8) +
  scale_shape_manual(values = c('Ideal' = 21,
                                'Premium' = 22,
                                'Good' = 23,
                                'Very Good' = 24,
                                'Fair' = 25)) +
  scale_fill_manual(values = c('E' = '#ca0020',
                               'F' = '#f4a582',
                               'H' = '#ffffbf',
                               'I' = '#92c5de',
                               'J' = '#0571b0')) +
  theme_bw()

删除点周围的黑色轮廓，但图例全是彩色

diamonds %>% 
  slice(1:20) %>% 
  ggplot(aes(x = x,
             y = y,
             shape = cut,
             fill = color,
             color = color)) +
  geom_point(size = 3,
             alpha = 0.8) +
  scale_shape_manual(values = c('Ideal' = 21,
                                'Premium' = 22,
                                'Good' = 23,
                                'Very Good' = 24,
                                'Fair' = 25)) +
  scale_fill_manual(values = c('E' = '#ca0020',
                               'F' = '#f4a582',
                               'H' = '#ffffbf',
                               'I' = '#92c5de',
                               'J' = '#0571b0')) +
  scale_color_manual(values = c('E' = '#ca0020',
                                'F' = '#f4a582',
                                'H' = '#ffffbf',
                                'I' = '#92c5de',
                                'J' = '#0571b0')) +
  theme_bw()

编辑：我知道我可以添加第二组稍微大一点的点来获得解决方法，但这太草率了

diamonds %>% 
  slice(1:20) %>% 
  ggplot(aes(x = x,
             y = y,
             shape = cut,
             fill = color,
             color = color)) +
  geom_point(size = 3.5,
             alpha = 0.5,
             color = 'black') +
  geom_point(size = 3,
             alpha = 0.8) +
  scale_shape_manual(values = c('Ideal' = 21,
                                'Premium' = 22,
                                'Good' = 23,
                                'Very Good' = 24,
                                'Fair' = 25)) +
  scale_fill_manual(values = c('E' = '#ca0020',
                               'F' = '#f4a582',
                               'H' = '#ffffbf',
                               'I' = '#92c5de',
                               'J' = '#0571b0')) +
  scale_color_manual(values = c('E' = '#ca0020',
                                'F' = '#f4a582',
                                'H' = '#ffffbf',
                                'I' = '#92c5de',
                                'J' = '#0571b0')) +
  theme_bw()

创建于 2024-11-13，使用reprex v2.1.1

2 个回答

  1. Best Answer

    您只需要覆盖填充图例中点的形状美感：

    slice(diamonds, 1:20) %>% 
  ggplot(aes(x, y, shape = cut, fill = color)) +
  geom_point(size = 3, alpha = 0.8) +
  scale_shape_manual(values = c(Ideal = 21, Premium = 22, Good  = 23,
                                `Very Good` = 24, Fair = 25)) +
  scale_fill_manual(values = c('#ca0020', '#f4a582', '#ffffbf', 
                               '#92c5de', '#0571b0'),
                    guide = guide_legend(override.aes = list(shape = 21))) +
  theme_bw()

    在此处输入图片描述

    • 1

  2. 您可以覆盖填充的美观性以获得您想要的结果：

    diamonds %>% 
  slice(1:20) %>% 
  ggplot(aes(x = x,
             y = y,
             shape = cut,
             fill = color)) +
  geom_point(size = 3,
             alpha = 0.8) +
  scale_shape_manual(values = c('Ideal' = 21,
                                'Premium' = 22,
                                'Good' = 23,
                                'Very Good' = 24,
                                'Fair' = 25)) +
  scale_fill_manual(values = c('E' = '#ca0020',
                               'F' = '#f4a582',
                               'H' = '#ffffbf',
                               'I' = '#92c5de',
                               'J' = '#0571b0')) +
  theme_bw()+
  guides(
    fill = guide_legend(
      title = 'color',
      override.aes = list(
        shape = 21,
        fill = c('#ca0020', '#f4a582', '#ffffbf', '#92c5de', '#0571b0'),
        color = rep('#000000',5)
        )
      )
    )
    • 0

相关问题