仅为包含数据

Question

我有一个for循环，并在名为'codes'的列表中为多个变量创建绘图。在某些情况下，子集不包含任何内容。发生这种情况时，我的代码失败，因为它无法创建绘图。有没有办法只使用包含数据的图？

for (x in codes){
    x1 <-subset(data.Age0, CD==x)
    x2 <-subset(data.Age2, CD==x)
    x3 <-subset(data.Age3, CD==x)
    x4 <-subset(data.Age4, CD==x)

    plot1<-ggplot(data=x1, aes(x=x1$PYMT))+geom_histogram(breaks=seq(0,80,by=2))+ labs(title="Age Group 0")+labs(x="Payments",y="Frequency")
    plot2<-ggplot(data=x2, aes(x=x2$PYMT))+geom_histogram(breaks=seq(0,80,by=2))+ labs(title="Age Group 2")+labs(x="Payments",y="Frequency")
    plot3<-ggplot(data=x3, aes(x=x3$PYMT))+geom_histogram(breaks=seq(0,80,by=2))+ labs(title="Age Group 3")+labs(x="Payments",y="Frequency")
    plot4<-ggplot(data=x4, aes(x=x4$PYMT))+geom_histogram(breaks=seq(0,80,by=2))+ labs(title="Age Group 4")+labs(x="Payments",y="Frequency")

    grid.arrange(plot1,plot2,plot3,plot4)
}