diff --git a/Looking_at_Data/initLesson.R b/Looking_at_Data/initLesson.R
index 023a9cf..3b983da 100755
--- a/Looking_at_Data/initLesson.R
+++ b/Looking_at_Data/initLesson.R
@@ -10,7 +10,8 @@
                       'The_R_Programming_Environment', 'Looking_at_Data',
                       'plant-data.txt')
 # Read in data
-plants <- read.csv(.datapath, strip.white=TRUE, na.strings="")
+plants <- read.csv(.datapath, strip.white=TRUE, na.strings="",
+                   stringsAsFactors =True)
 
 # Remove annoying columns
 .cols2rm <- c('Accepted.Symbol', 'Synonym.Symbol')