如何使用R添加条形图中没有数据的仓位？

Question

我的数据是这样的。

   yearID teamID   salary
1    1994    LAN   109000
2    1995    LAN   114000
3    1996    LAN   124000
4    1997    LAN   270000
5    1998    LAN   700000
6    1999    LAN  2300000
7    2000    LAN  3850000
8    2001    LAN  9900000
9    2002    TEX  6884803
10   2003    TEX 13000000
11   2004    TEX 14000000
12   2005    TEX 15000000
13   2006    SDN 15505142
14   2009    PHI  2500000
15   2010    NYA  1200000

我画了一个条形图。

​

​

但是这个柱状图并没有在x轴上显示2007和2008。

虽然没有2007和2008年的数据，但我想画一张条形图，上面显示了这两年的0。

如何创建在x轴上显示2007年和2008年的条形图？

我的代码是这样的。

barplot(salary/1000, names.arg=yearID, las = 2,
        main = "Salary (in 1000)")

Answer 1

一种选择是使用'yearID‘的min和max (假设它是numeric) merge来扩展数据集，然后执行barplot

df2 <- merge(data.frame(yearID = min(df1$yearID):max(df1$yearID)),
      df1, all.x = TRUE)
with(df2, barplot(salary/1000, names.arg=yearID, las = 2,
      main = "Salary (in 1000)"))

​

​

数据

df1 <- structure(list(yearID = c(1994L, 1995L, 1996L, 1997L, 1998L, 
1999L, 2000L, 2001L, 2002L, 2003L, 2004L, 2005L, 2006L, 2009L, 
2010L), teamID = c("LAN", "LAN", "LAN", "LAN", "LAN", "LAN", 
"LAN", "LAN", "TEX", "TEX", "TEX", "TEX", "SDN", "PHI", "NYA"
), salary = c(109000L, 114000L, 124000L, 270000L, 700000L, 2300000L, 
3850000L, 9900000L, 6884803L, 13000000L, 14000000L, 15000000L, 
15505142L, 2500000L, 1200000L)), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
"14", "15"))

Answer 2

ggplot/tidyverse解决方案

library(tidyverse)
df1 %>% 
  complete(yearID =min(yearID):max(yearID), fill= list(salary=0)) %>% 
  ggplot(aes(yearID, salary/1000)) + 
   geom_col() + 
   ggtitle("Salary (in 1000)")

​

​