R 提供空白图形的旧ggplot脚本的问题

我正在制作一个简单的条形图，并用一些简单的数据重复一个旧脚本，但它拒绝返回一个图

以下是数据帧的

dput

：

papers <- structure(list(YEAR = c(1957, 1970, 1981, 1982, 1987, 1988, 1990, 
1993, 1994, 1995, 1996, 2002, 2004, 2005, 2006, 2007, 2008, 2009, 
2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018), count = c(1L, 
1L, 1L, 2L, 1L, 14L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 3L, 4L, 5L, 
3L, 5L, 4L, 6L, 5L, 13L, 4L, 5L, 6L, 12L, 2L)), row.names = c(NA, 
-27L), class = "data.frame")

---

为什么不起作用？

来自

？主题

panel.border：
绘图区域周围的边框，绘制在绘图顶部，以覆盖记号标记和网格线。这应该与fill=NA（element_rect；继承自rect）一起使用

因此，您的代码运行良好，所有必须更改的是

theme(panel.border = element_rect(colour = "grey50", fill = NA))


theme(panel.border = element_rect(colour = "grey50", fill = NA))