如何在R ggplot中动态更改圆形的大小和填充颜色？

编程问答 2022-05-17

问题描述

我在 R 中有一个示例数据框。

df <- data.frame(product_id= c("A","A","B","C","C"),year = c("2019","2020","2021","2019","2020"),profit=c(1.5,2.2,2.3,1.4,1,16,1.9,25),sale = c(1.2,1.8,2.0,1.6,20.0,3.0,33.2))

我试图在 ggplot 中绘制三个单独的图形，其中 y='year'、x='profit' 和数据将按 product_id 进行过滤。所有的 geom_point 都是圆形的。这可以通过以下产品 A 的代码来实现：

library(ggplot2)
library(dplyr)
ggplot(df) +
  geom_point(data= df %>% filter(product_id =='A'),aes(x=year,y=profit,size=sale),shape = 16,color='Red') +
  scale_size_continuous(range = c(5,10),guide = FALSE) +
  labs(x = "Year",y = "Profit")

Generated Plot

但对于自定义，如果 y 轴值（利润）小于 2.0，我愿意更改圆圈的填充颜色。边框应为原始颜色的红色，但填充颜色应为黄色。对于上图，2019 年的点将是红色边框和黄色填充颜色。我已经尝试过以下方式，但它不起作用：

library(ggplot2)
library(dplyr)
ggplot(test_df) +
  geom_point(data= test_df %>% filter(product_id =='A'),guide = FALSE) +
  scale_colour_manual(name = 'profit < 2',values = setNames(c('Yellow','Red'),c(T,F)),y = "Profit")

另一个问题是，对于所有三个图形，圆形的大小都没有保持标准的相对大小。我正在尝试开发一个标准尺寸的比例，如

'sale' 列值

对于 1.9

为 10

并且对于 sale_value > 20；大小将是 30。

我不知道如何实现，甚至可能与否。

解决方法

您可以明确指定尺寸：

df %>%
  mutate(size = case_when(
    sale <= 1.9 ~ 5,sale <= 10 ~ sale * 2,sale <= 20 ~ 25,sale > 20 ~ 30
  )) -> df2

然后使用您的颜色定义将 profit < 2 映射到填充：

ggplot(df2) +
  geom_point(data= df2 %>% filter(product_id =='A'),color = "red",aes(x=year,y=profit,size=size,fill = profit < 2),shape = 21) +
  scale_size_identity() +
  scale_fill_manual(name = 'profit < 2',values = setNames(c('Yellow','Red'),c(T,F)),guide = FALSE)  +
  labs(x = "Year",y = "Profit")

enter image description here

注意，默认情况下，尺寸美学映射到点半径，这意味着感知区域将随着该值 ^ 2 增加。如果这不是您想要的，您可以映射您的值的平方根，乘以常数味道，大小与面积成正比。

,

此代码可能对您有所帮助：

df2 <- data.frame(
  product_id = c("D","D","D"),year = c("2020","2020","2020"),profit = c(1.5,15,25,35),sale = c(1.5,35) 
)

df3 <- rbind(df,df2)

ggplot(df3) +
  aes(x = year,y = profit,fill = profit < 2) + 
  facet_wrap(~ product_id) +
  geom_point(
    aes(size = sale),pch = 21
  ) +
  scale_fill_manual(values = c("red","yellow"))

要根据值填充不同的颜色，您需要一个同时具有填充和颜色的形状（第 21-25 页）。然后，您可以将填充美学映射到利润 scale_fill_manual 来定义我想要的颜色。

dplyrdplyrgeom-pointggplot2rr