diff --git a/differential.cabal b/differential.cabal
--- a/differential.cabal
+++ b/differential.cabal
@@ -1,5 +1,5 @@
 name:                differential
-version:             0.1.2.0
+version:             0.1.2.1
 synopsis:            Finds out whether an entity comes from different distributions (statuses).
 description:         Uses statistical tests to find whether an entity comes from one or two distributions.
 homepage:            http://github.com/GregorySchwartz/differential#readme
diff --git a/src/Plot.hs b/src/Plot.hs
--- a/src/Plot.hs
+++ b/src/Plot.hs
@@ -18,6 +18,7 @@
 -- Cabal
 import qualified Data.Aeson as A
 import qualified Data.ByteString.Lazy.Char8 as B
+import qualified Data.Text as T
 
 import Language.R.QQ (r)
 import qualified Foreign.R.Internal as R
@@ -55,8 +56,10 @@
 -- entry is the plot and the second entry is a data frame of the values.
 plotSingleDiff :: Bool -> [Entity] -> R.R s (R.SomeSEXP s)
 plotSingleDiff normalizeBool vals = do
-    let jsonR = B.unpack $ A.encode vals
-        normalize = if normalizeBool then 1 else 0 :: Double
+    let normalize = if normalizeBool then 1 else 0 :: Double
+        names = fmap (T.unpack . unName . _name) vals
+        statuses = fmap (T.unpack . unStatus . _status) vals
+        values = fmap _value vals
 
     [r| suppressMessages(library(ggplot2))
         suppressMessages(library(plyr))
@@ -64,7 +67,7 @@
         suppressMessages(library(jsonlite))
         suppressMessages(library(RColorBrewer))
 
-        df = fromJSON(jsonR_hs)
+        df = data.frame(name = names_hs, value = values_hs, status = statuses_hs)
 
         if(normalize_hs) {
           df = ddply(df, "name", transform, value = value / max(value))