#*****************************************************************************80 # ## bulgaria_plot creates a line plot from Bulgarian population data. # # Licensing: # # This code is distributed under the MIT license. # # Modified: # # 02 March 2020 # # Author: # # John Burkardt # cat ( date ( ), "\n" ) cat ( "\n" ) cat ( "bulgaria_plot\n" ) cat ( " ", version$version.string, "\n" ) cat ( " Make a line plot from Bulgarian population data.\n" ) filename = "bulgaria_data.txt" data <- read.table ( filename, header = FALSE ) print ( data ) filename = "bulgaria_plot.png" png ( filename ) plot ( data[,1], data[,2], xlab = "Year", ylab = "Population", main = "Bulgarian Population" ) lines ( data[,1], data[,2], type = 'l' ) grid ( ) cat ( ' Graphics saved as "', filename, '"\n' ) # # Terminate. # cat ( "\n" ) cat ( "bulgaria_plot\n" ) cat ( " Normal end of execution.\n" ) quit ( )