Question

我对R缺乏经验，我的老师把我放在一个已经完成了一些图形处理的项目中，我将使用ggplot2软件包。

########## HIST Ages ##########
setwd("C:\\Users\\labest\\Desktop\\INFOCURSOS 2018\\HIST TEST") 
HIST_AGES=function(dataset,ano,campus,curso,codigo){
  SUBSET=subset(dataset,dataset$Ano==ano & dataset$CAMPUS==campus & dataset$CURSO==curso)
  name=paste(codigo,ano,".jpeg") 
  jpeg(name, width = 800, height = 800)
  qplot(SUBSET$idade_atual,geom="histogram",binwidth=5,main="Histograma das idades dos matriculados",xlab="Idades",ylab="Frequência",  fill=I("blue"),col=I("black"))
  dev.off()
}


####### 
GRAPHICS NO AUTOMATED R: WILL SAVE IN HISTOGRAMA AGAIN ALL GRAPHS OF AGES
########
distintos=distinct_(matriculados, "Ano","CAMPUS","CURSO","CODIGO")
dist=1
while(dist<=nrow(distintos)){
  ano=distintos$Ano[dist]
  campus=distintos$CAMPUS[dist]
  curso=distintos$CURSO[dist]
  codigo=distintos$CODIGO[dist]
  HIST_AGES(matriculados,ano,campus,curso,codigo)
  dist=dist+1`
}

确实做到了，但是有了R的标准直方图功能，我去更改为使用GGPLOT2的图形，在那部分我做了更改

qplot(SUBSET$idade_atual,geom="histogram",binwidth=5,main="Histograma das idades dos matriculados",xlab="Idades",ylab="Frequência",  fill=I("blue"),col=I("black"))

我就是这样

hist(SUBSET$idade_atual,main="Histograma das idades dos matriculados",xlab="Idades",ylab="Frequência")
dev.off()

但是我使用该行的图形是空白的问题，有人帮我吗？

GGPLOT空白图片

0 个答案: