R сюжет не сохраняется как png, пожалуйста, проверьте мой код

Question

Я написал код для графика, который является правильным, но я не могу сохранить его в виде файла png.Я использовал функцию png () до того, как построил график, а затем использовал dev.off (), и он не сохранится.Я не включал чтение данных и создание переменных между прочим.(Mac)

Я все перепробовал, ничего не работает.Есть ли способ сохранить полный график?

png(filename = "plot_3.png", width = 480, height = 480)

p1 <- (ggplot(PTsum, aes(x=Group.1, y =x))
              + geom_bar(stat="identity", color="black"
                     , fill="gray") + ggtitle("Point") + 
xlab("Date") + ylab("Total Emission"))
p2 <- (ggplot(NPTsum, aes(x=Group.1, y =x))
              + geom_bar(stat="identity", color="black"
                         , fill="gray") + ggtitle("NonPoint") + 
xlab("Date") + ylab("Total Emission"))
p3 <- (ggplot(Rsum, aes(x=Group.1, y =x))
              + geom_bar(stat="identity", color="black"
                     , fill="gray") + ggtitle("Road") + 
xlab("Date") + ylab("Total Emission"))
p4 <- (ggplot(NRsum, aes(x=Group.1, y =x))
              + geom_bar(stat="identity", color="black"
                     , fill="gray") + ggtitle("NonRoad") + 
xlab("Date") + ylab("Total Emission"))
fullplot <- multiplot(p1,p2,p3,p4,cols=2)

dev.off()

Я ожидал файл с именем plot3.png, но его там не было