fileData <- read.csv("xsmFileData.csv") #csv file is attached herewith par(mfrow=c(1,1), pin=c(6,4)) xsmDataPlot <- ggplot(dfrIipxData, aes(IndexName, CurrentMonth ...