在R中将打印保存为jpeg文件到目录
我有一个数据框mydata_2，我正在为数据框中的每一列（第一列除外）获取柱状图。 我想知道如何生成一个代码，为除第一列之外的每列中的数据绘制直方图，并将输出保存为工作目录中的.jpeg文件 我的出发点如下：在R中将打印保存为jpeg文件到目录,r,directory,histogram,R,Directory,Histogram,我有一个数据框mydata_2，我正在为数据框中的每一列（第一列除外）获取柱状图。 我想知道如何生成一个代码，为除第一列之外的每列中的数据绘制直方图，并将输出保存为工作目录中的.jpeg文件 我的出发点如下： hist(mydata_2$age, main="Student age", xlab="age") 我知道其他人也回答了类似的问题，但我无法完全理解这些问题。谢谢您的时间。库（ggplot2） library(ggplot2) str(diamonds) 'data.frame':
hist(mydata_2$age, main="Student age", xlab="age")
库（ggplot2）
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 ...
str（钻石）
“数据帧”：53940 obs。在10个变量中：
$K:数值0.230.210.230.290.310.240.240.260.220.23。。。
$cut:Ord.factor w/5级“公平”请参见在解决方案上选择Tic标记-如果您觉得有帮助，请回答此问题！！
library(reshape)
d <- melt(diamonds[,-c(2:4)])
ggplot(d,aes(x = value)) +
facet_wrap(~variable,scales = "free_x") +
geom_histogram()
ggsave("plot.jpeg")