ggplot 和 R：当缺少某些 x 值时，条形图和条形的宽度出现问题

Question

我有一个数据集，显示了两家公司在 4 年内的销售收入。

year <- c(2009, 2011, 2012, 2009,2010, 2012)
name <- c('A', 'A', 'A', 'B', 'B', 'B')
sales <- c(500, 1000, 2000, 1500, 1000, 500)
df.t <- data.frame(year, name, sales)

输出：

> year name sales
> 2009    A    500
> 2011    A   1000
> 2012    A   2000
> 2009    B   1500
> 2010    B   1000
> 2012    B    500

请注意，对于 A 公司，没有 2010 年的销售数字（该年没有销售），而对于 B 公司，在 2011 年没有销售数字。

我想创建一个漂亮的条形图来显示这些数字。

ggplot(data=df.t, aes(x=year, y=sales, fill=name)) + geom_bar(stat="identity", position="dodge")

但是，这会创建一个条形图，其中 2010 年和 2011 年的条形与其他年份的条形宽度不同。

即使是没有销售的年份，我也想要一个条形图。该条形图的高度为 0。

如何在不更改数据和添加零的情况下做到这一点？

Answer 1

即使是没有销售的年份，我也想要一个条形图。该条形图的高度为 0。如何在不更改数据和添加零的情况下做到这一点？

通常很难制作不存在的ggplot 绘图数据。 @Thomas K 的答案中的 facet 选项有效，因为默认情况下 x 和 y 在每个方面都相同，无论数据是否存在。但是，我认为添加零是最好的方法，并不像你想象的那么难。只需添加零。 tidyr::complete 让它变得非常简单。

library(tidyr)
ggplot(complete(df.t, year, name, fill = list(sales = 0)),
       aes(x=year, y=sales, fill=name)) + 
    geom_bar(stat="identity", position="dodge")

注意：这假设您的数据是这样的：

year <- c(2009, 2011, 2012, 2009,2010, 2012)
name <- c('A', 'A', 'A', 'B', 'B', 'B')
sales <- c(500, 1000, 2000, 1500, 1000, 500)
df.t <- data.frame(year, name, sales)

Answer 2

你可以使用facet_grid:

library(ggplot2)

year <- c(2009, 2011, 2012, 2009,2010, 2012)
name <- c('A', 'A', 'A', 'B', 'B', 'B')
sales <- c(500, 1000, 2000, 1500, 1000, 500)
df.t <- data.frame(year, name, sales)

ggplot(df.t, aes(name, sales, fill = name)) +
  geom_bar(stat = "identity", show.legend = F) +
  facet_grid(. ~ year) +
  theme_bw()