なぜ私のpngファイルが見えないのですか？

Question

私はコードに従うことによって、私の姿を保存しようとするR、今日に新しいです：

powerplant <- ggplot(Emission.l, aes(x = Year, y = value, fill = variable))+ 
    theme(axis.text.x = element_text(angle = 90, hjust = 1))+ 
    geom_bar(stat = 'identity', position = 'dodge') + 
    ggtitle(Emission.Aerosol$Facility.Name)+ 
    ylab("Emission(Tons)")+scale_fill_discrete(name = '', labels = c('SO2 (tons)', 'NOx (tons)')) + 
    scale_x_continuous(breaks = 2003:2015) 

png(file = paste0(Emission.Aerosol$Facility.Name,".png"), 
    width = 439, height = 266, units = "px",pointsize = 12, 
    bg = "transparent") 
dev.off() 

その後、私はPNG形式のファイルを見ることができますが、私のフォルダに作成されたが、それは唯一の白い人物でした。 私のコードに何が間違っているか教えてください。 ありがとう！

Answer 1

一般的に、ggplot（）の構造を以下に詳述するように分離するのがよりクリーンであることがわかります。これにより、プロット文法を構築するときにggplotの構築が楽になります。どのように保存/印刷するかを選択します。

こちらがお役に立てば幸いです。

require(ggplot2) 

    gp <- ggplot(Emission.l, aes(x = Year, y = value, fill = variable)) 
    gp <- gp + theme(axis.text.x = element_text(angle = 90, hjust = 1)) 
    gp <- gp + geom_bar(stat = 'identity', position = 'dodge') 
    gp <- gp + ggtitle(Emission.Aerosol$Facility.Name) 
    gp <- gp + ylab("Emission(Tons)") 
    gp <- gp + scale_fill_discrete(name = '', 
            labels = c('SO2 (tons)', 'NOx (tons)')) 
    gp <- gp + scale_x_continuous(breaks = 2003:2015) 

    powerplant <- gp 
    print(powerplant) 
    dev.off() 

Answer 2

は、

png(...) 
print(powerplant) 
dev.off() 

またはちょうどggsaveを使用してみてください。 pngコマンドは実際にディスクにプロットを配置しません。空白のpngファイルを作成するだけで、プロットを受け取る準備ができます。実行した後、printによって、ggplotまたはlatticeのグラフィックスをデバイスに送信します。基本グラフィックスコマンドは、デバイスに直接送信されます。