Made plotting large dataframe to pdf into function. NOT WORKING ATM!

lbrandt · Feb 13, 2018 · 34022dc · 34022dc
1 parent a681c54
commit 34022dc
Showing 1 changed file with 3 additions and 8 deletions.
diff --git a/R/plotpdf.R b/R/plotpdf.R
@@ -1,9 +1,11 @@
 # Function which plots a dataframe to pdf
-plotpdf = function(data, rows, columns, filepath, mfrow, type){
+plotpdf = function(data, filepath, mfrow, type){
 
   path = normalizePath(filepath, winslash = "/")
   pdf(file = path)
 
+  columns = dim(data)[2]
+
   par(mfrow = mfrow)
   for(i in columns){
 
@@ -14,10 +16,3 @@ plotpdf = function(data, rows, columns, filepath, mfrow, type){
   par(mfrow = c(1,1))
 
 }
-
-ez_data[2]
-ez_data[[3:10, 2]]
-
-plot(ez_data[[2]])
-
-plot(ez_data[[3:10, 2])