將繪圖保存爲R中的jpeg文件到目錄

Question

我有一個數據框mydata_2，我正在爲數據框中除第一列以外的每列獲取直方圖。 我想知道如何生成一個代碼，該代碼可以獲得除第一列以外的每個列中的數據的直方圖圖形，並將輸出保存爲工作目錄中的.jpeg文件。

我的出發點是以下幾點：

hist(mydata_2$age, main="Student age", xlab="age") 

據我所知，類似的問題已經被人回答了，但我不能讓他們的完整感。謝謝你的時間。查詢getwd()知道路徑 - 因爲他們在直方圖

library(reshape) 
d <- melt(diamonds[,-c(2:4)]) 
ggplot(d,aes(x = value)) + 
facet_wrap(~variable,scales = "free_x") + 
geom_histogram() 
ggsave("plot.jpeg") 

該圖被存儲在默認目錄沒有意義

Answer 1

library(ggplot2) 
str(diamonds) 
'data.frame': 53940 obs. of 10 variables: 
$ carat : num 0.23 0.21 0.23 0.29 0.31 0.24 0.24 0.26 0.22 0.23 ... 
$ cut : Ord.factor w/ 5 levels "Fair"<"Good"<..: 5 4 2 4 2 3 3 3 1 3 ... 
$ color : Ord.factor w/ 7 levels "D"<"E"<"F"<"G"<..: 2 2 2 6 7 7 6 5 2 5 ... 
$ clarity: Ord.factor w/ 8 levels "I1"<"SI2"<"SI1"<..: 2 3 5 4 2 6 7 3 4 5 ... 
$ depth : num 61.5 59.8 56.9 62.4 63.3 62.8 62.3 61.9 65.1 59.4 ... 
$ table : num 55 61 65 58 58 57 57 55 61 61 ... 
$ price : int 326 326 327 334 335 336 336 337 337 338 ... 
$ x  : num 3.95 3.89 4.05 4.2 4.34 3.94 3.95 4.07 3.87 4 ... 
$ y  : num 3.98 3.84 4.07 4.23 4.35 3.96 3.98 4.11 3.78 4.05 ... 
$ z  : num 2.43 2.31 2.31 2.63 2.75 2.48 2.47 2.53 2.49 2.39 ... 

因子變量被刪除。

melt允許我們使用所得grouping variables（稱爲variable）將數據分割成組，並繪製爲每個直方圖one.Used scales = "free_x"因爲每個變量具有顯着不同的範圍和比例。