Insert Barplot in Plots script

dream/simulation/outputanalysis/Plots.py

@@ -48,15 +48,15 @@ class Graphs:
         rdev=robjects.r['dev.off']
         rjpeg=robjects.r['jpeg']
     
-        output=rjpeg(fileName)            #Graph data samples and define color and type for the data points visualization
-        rplot(data1,data2,main='Scatterplot',xlab="data1", ylab='data2',pch=19)
+        output=rjpeg(fileName)            
+        rplot(data1,data2,main='Scatterplot',xlab="data1", ylab='data2',pch=19)    #Graph data samples and define type for the data points visualization
         rdev
         return output
 
-    def Histogram(data,fileName="histogram.jpg"):
-        data=robjects.FloatVector(data)   #The given lists change into float vector in order to be handled by RPy2
+    def Histogram(self,data,fileName="histogram.jpg"):
+        data=robjects.FloatVector(data)   #The given list change into float vector in order to be handled by RPy2
         
-        rhist=robjects.r['hist']
+        rhist=robjects.r['hist']          #Call hist function - R function
         rdev=robjects.r['dev.off']
         rjpeg=robjects.r['jpeg']
         output=rjpeg(fileName)
@@ -65,6 +65,18 @@ class Graphs:
         rdev
         return output
     
+    def Barplot(data,fileName="barplot.jpg"):
+        data=robjects.FloatVector(data)     #The given list changes into float vector in order to be handled by RPy2
+        
+        rbarplot=robjects.r['barplot']      #Call barplot - R function
+        rdev=robjects.r['dev.off']
+        rjpeg=robjects.r['jpeg']
+        
+        output=rjpeg(fileName)
+        rbarplot(data, main='Barplot',border='blue')      #Create a bar plot for the given data sample
+        rdev
+        return output
+    
     def Pie(self, data1, fileName="pieChart.jpg"):
         data1=robjects.FloatVector(data1)      #The given list changes into float vector in order to be handled by RPy2
         rpaste=robjects.r['paste']          #Call paste - R function