Datalink:
[the data used][1]


My code:
        
    ccfsisims &lt;- read.csv(file = &quot;F:/Purdue University/RA_Position/PhD_ResearchandDissert/PhD_Draft/GTAP-CGE/GTAP_NewAggDatabase/NewFiles/GTAP_ConsIndex.csv&quot;, header=TRUE, sep=&quot;,&quot;, na.string=&quot;NA&quot;, dec=&quot;.&quot;, strip.white=TRUE)
    ccfsirsts &lt;- as.data.frame(ccfsisims)
    ccfsirsts[6:24] &lt;- sapply(ccfsirsts[6:24],as.numeric)
    ccfsirsts &lt;- droplevels(ccfsirsts)
    ccfsirsts &lt;- transform(ccfsirsts,sres=factor(sres,levels=unique(sres)))

    library(ggplot2)

    #------------------------------------------------------------------------------------------
    #### Plot of food security index for Morocco and Turkey by sector
    #------------------------------------------------------------------------------------------

    #_Code_Begin...

    datamortur &lt;- melt(ccfsirsts[ccfsirsts$region %in% c(&quot;TUR&quot;,&quot;MAR&quot;), ]) # Selecting regions of interest
    datamortur1 &lt;- datamortur[datamortur$variable %in% c(&quot;pFSI2&quot;), ] # Selecting the food security index of interest
    datamortur2 &lt;- datamortur1[datamortur1$sector %in% c(&quot;wht&quot;,&quot;gro&quot;,&quot;VegtFrut&quot;,&quot;osd&quot;,&quot;OthCrop&quot;,&quot;VegtOil&quot;,&quot;XPrFood&quot;), ] # Selecting food sectors of interest
    datamortur3 &lt;- subset(datamortur2, tradlib !=&quot;BASEDATA&quot;) # Eliminating the &quot;BASEDATA&quot; scenario results  

    allfsi.f &lt;- datamortur3
    fsi.wht &lt;- allfsi.f[allfsi.f$sector %in% c(&quot;wht&quot;), ]

    Figure29 &lt;- ggplot(data=fsi.wht, aes(x=factor(sres),y=value,colour=factor(tradlib)))
    Figure29 + geom_line(aes(group=factor(tradlib),size=2)) + facet_grid(regionsFull~., scales=&quot;free_y&quot;, labeller=reg_labeller) + scale_colour_brewer(type = &quot;div&quot;) +
    theme(axis.text.x = element_text(colour = &#39;black&#39;, angle = 90, size = 13, hjust = 0.5, vjust = 0.5),axis.title.x=element_blank()) + 
    ylab(&quot;FSI (%Change)&quot;) + theme(axis.text.y = element_text(colour = &#39;black&#39;, size = 12), axis.title.y = element_text(size = 12, hjust = 0.5, vjust = 0.2)) + 
    theme(strip.text.y = element_text(size = 11, hjust = 0.5, vjust = 0.5, face = &#39;bold&#39;))

My result:
![Result_Figure][2] 


Newresult with aes(size=2):
![NewResult-Figure][3]

My question:
Is there a way to control for line width more precisely to avoid the result in the second plot? I particularly find it document-unfriendly, and more so for publishing purposes to include the plot with the newly defined line width.

best,
ismail 


  [1]: https://www.dropbox.com/s/yt4l10nel5bwxoq/GTAP_ConsIndex.csv
  [2]: http://i.stack.imgur.com/oSMtm.png
  [3]: http://i.stack.imgur.com/ZZ0Tu.png

All Line Plot Solutions on Gang of Coders

Total of 1 Line Plot Solutions

How to change line width in ggplot?