Commit 6652d728 authored by Holger Brandl's avatar Holger Brandl
Browse files

cosmetics

parent fe8a0bc5
......@@ -24,7 +24,7 @@ if(!exists("reportName")){
}
reportNiceName <- str_replace_all(reportName, "^[.]", "")
#' # Job Report: `reportNiceName`
#> # Job Report: `reportNiceName`
echo("processing job report for '", reportName,"'")
......@@ -107,9 +107,9 @@ jobSummaries <- transform(jobSummaries, jobid=reorder(jobid, as.numeric(jobid)))
#ggplot(jobSummaries, aes(pending_time_min)) + geom_histogram() + ggtitle("pending times") + coord_flip()
if(nrow(jobSummaries)<50){
ggplot(jobSummaries, aes(reorder(jobid, -as.numeric(jobid)), pending_time_min/60)) + geom_bar(stat="identity") + ggtitle("pending times") + coord_flip() + xlab("job id")
ggplot(jobSummaries, aes(reorder(jobid, -as.numeric(jobid)), pending_time_min/60)) + geom_bar(stat="identity") + ggtitle("pending times") + coord_flip() + xlab("job id")
}else{
ggplot(jobSummaries, aes(as.numeric(jobid), pending_time_min/60)) + geom_area() + ggtitle("pending times")+xlab("job_nr") + ylab("pending time [h]")
ggplot(jobSummaries, aes(as.numeric(jobid), pending_time_min/60)) + geom_area() + ggtitle("pending times")+xlab("job_nr") + ylab("pending time [h]")
}
#ggsave2(p=reportName)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment