R/dowjones.R

In jvanschalkwyk/corona: Coronavirus ('Rona') Data Exploration

# Generated by LaTeX DogWagger Version 4.0.5 from file <NCTLL_904.tex>
# Date: [2020-9-17 13:16:5] 
# Do NOT edit this file. Edit the LaTeX source!!

# - <Section 24> - 
#' Plot Dow-Jones Closing data 
#' 
#'  Assumes the existence of the data frame djia, part of corona data. 
#' 
#' @param pdf : will not print to PDF
#' @keywords corona dow jones industrial average 
#' @export 
#' @import ggplot2 
#' @examples
#' corona_dowjones ( ) 

corona_dowjones <- function ( pdf=FALSE )
{ PdfFilename <- 'DJIA.pdf'; 
  corona_pdf(PdfFilename, 12, 6.3, pdf); 
  myplot <- ggplot( djia, aes(x=.data$Date, y=.data$Close)) + 
    geom_line() + 
    labs(title='Dow Jones Industrial Average', x='Date', y='Close') + 
    scale_x_date(breaks="2 year", date_labels = "%Y") ;
  corona_print(myplot); 
  corona_pdf_off(PdfFilename, pdf); 
}
# -END OF FILE-