ggplot2 条形图，每个 x 数据值有两个条形图和两个 y 轴

Question

我很难创建一个条形图，其中包含两个不同的y轴和每个x值（类别）的两个条形图。我有不同类型的数据类别（见下文），每个类别我都有两个值，我想并排绘制（价格和数字）。但是，每个类别的值相距甚远，这使得数字类别的条形几乎不可见。因此，我想添加第二个y轴（一个用于价格，一个用于数字），以允许在两个类别之间进行比较。

示例数据：

 Cat Type        Value
1 A  price        12745
2 A  number           5
3 B  price     34874368
4 B  number         143
5 C  price        84526
6 C  number          11

我使用下面的R代码(ggplot2)来创建绘图:

plot = ggplot(df ,aes(x=Cat, fill=Type, y=Value))+
  geom_bar(stat="identity", position="dodge")+
  theme_bw() +
  labs_pubr() +
  scale_fill_grey() +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))
plot

scale_y_continuous和秒轴，但我没有设法将y轴分配给数据类型。

  scale_y_continuous(
    "price", 
    sec.axis = sec_axis(~., name = "number")
  ) +

我很高兴每一个提示：）

Answer 1

我的理解是按类型拆分图形，您可以使用有用的ggplot facet_wrap（）动词来执行此操作。然后使用比例包沿 y 轴固定舍入。

library(scales)
library(ggplot)
library(dplyr)

tbl <- tibble(Cat = c("A", "A", "B", "B", "C", "C"),  Type = c("price", "number", "price", "number","price", "number")
              , Value = c(12745, 5, 34874368, 143, 84526, 11))

tbl %>%
  ggplot(aes(Cat, Value, fill = Cat)) + 
  geom_col(position = "dodge") + 
  facet_wrap(~Type, scales = "free") + 
  scale_y_continuous(labels = scales::number_format())

Answer 2

这是你的意思吗？

df=tribble(
~Id, ~Cat, ~Type, ~Value,
1, "A", "price", 13,
2, "A", "number", 5,
3, "B", "price", 19,
4, "B", "number", 12,
5, "C", "price", 8,
6, "C", "number", 11)

df %>% ggplot(aes(Cat))


df %>% ggplot(aes(x=Type, fill=Type, y=Value))+
  geom_col()+
  facet_grid(~Cat)

我稍微改变了一下你的值，因为当差异在10 ^ 7的数量级时，你看不到多少！

对于这些数字，对数尺度更适合

df=tribble(
  ~Id, ~Cat, ~Type, ~Value,
  1, "A", "price", 12745,
  2, "A", "number", 5,
  3, "B", "price", 34874368,
  4, "B", "number", 143,
  5, "C", "price", 84526,
  6, "C", "number", 11)

df %>% ggplot(aes(x=Type, fill=Type, y=Value))+
  geom_col()+
  scale_y_continuous(trans='log10')+
  facet_grid(~Cat)