使用pushViewport在栅格布局中排列时，美元格式将消失

我正在尝试在2x2网格布局中安排图表，X轴为年份，Y轴为成本。当我按单个图形格式化时，我的格式化，即美元符号在那里，但当我在网格布局中排列它时，美元符号和逗号消失了

代码如下：

rat<-qplot(tallc$Group.1,COSTS,data=tallc, geom=c("point","smooth"), 
method="lm",
           xlab= "YEAR",
           ylab= "COST",
           scale_x_continuous(limits = c(1999,2012)),
           main= "Total Costs from 1999 to 2012")      
rat1 <- rat+scale_x_continuous(breaks=c(1999,2000,2001,2002,2003,2004,2005,2006,
           2007,2008,2009,2010,2011,2012))
rat1 + scale_y_continuous(labels=dollar)

---

美元符号消失。

这里有几个缺少的项目（以及答案）：

---

tallcy您的数据不可复制。我们无法看到
tallc
对象。请包含看起来像真实数据的数据或假数据。请参阅以获取指导。这并不是将其作为单独的对象存储。你知道如何标准化y刻度吗。我有两个单独的图，有两个不同的x轴，一组值是在日历年，另一组是在财政年，我试图设置y中断（单位为美元）为两个图形的比较相同。附加的是代码，但y轴是不同的尝试使用中断，长度和ylim选项，但它没有工作。下面的代码。图1 RAT的代码图2 BRAIN的代码这里的问题是两个图的y轴不同，我希望它是sametallc示例日期组。1成本事件1 1999 166304548 652 2000 822939665 730 3    2001  472072396  566
pushViewport(viewport(layout = grid.layout(2, 2)))
print(a, vp = viewport(layout.pos.row = 1, layout.pos.col = 1))
print(b, vp = viewport(layout.pos.row = 1, layout.pos.col = 2))
print(c, vp = viewport(layout.pos.row = 2, layout.pos.col = 1))
print(rat1, vp = viewport(layout.pos.row = 2, layout.pos.col = 2))

 tallc<-data.frame(COSTS=rnorm(9), Group=1999:2007)  # fake data
 require(ggplot2) # obvious
 require(scales) # not so obvious
 # first part of code
 ##### The missing step:
 rat1 <- rat1 + scale_y_continuous(labels=dollar)
 require(grid)
 # Second part: grid code
 # success with plotting dollar-scale in lower right corner
 # (despite errors from the missing a,b, and c objects.)