Question

我在创建一个堆叠的条形图时遇到麻烦，每个条形图都有多个颜色渐变。

一些示例数据：

library(tidyverse)
library(magrittr)

df <-
    data.frame(person = rep(1:3, each = 30),
               drug_type = rep(rep(1:3, each = 10),3),
               drug = rep(1:30,times=3),
               sales_pct = rep(.033, times = 90)) %>%
    as_tibble()

有3个persons和30个drugs，每个都是3个drug_types之一。

我想做的是显示每种药物在每个人的销售额中所占的比例，并使用颜色从视觉上将这些药物分为几类。为此，我尝试为每个person使用一个栏，并且在每个人的栏中，每个drug_type都有自己的调色板。因此，例如，drug_type 1将是蓝色光谱，2是绿色光谱，等等。

有什么建议吗？请帮忙！

Answer 1

您是这样想的吗？

library(tidyverse)
library(magrittr)

df <- as.tibble(data.frame(person = rep(1:10, each = 3),
         drug_type = rep(1:10, times = 3),
         sales_pct = rep(.1, times = 30))) %>% 
      mutate(person = as.factor(person),
         drug_type = as.factor(drug_type))

ggplot(df, aes(x = person)) +
  geom_bar(aes(fill = drug_type)) + 
  scale_y_continuous(limits = c(0,3)) +
  scale_fill_brewer(palette = "Spectral")

https://en.wikipedia.org/wiki/HTTP_ETag

堆叠条形图的每个条形内的多个渐变

1 个答案: