#read data from published to web Google sheet (csv) pets <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSXJvIM9fr41NDKOSHirqB3_o-Dl4RAVZWN-pR4XOmilz_QkgIfYW8eseV8iybl6sv1GxITL9SVdohi/pub?gid=0&single=true&output=csv") #show the names of the variables in the dataframe names(pets) #create a plot using the iNZightPlot() function # go on - change drawing_time to number_strokes and re-run the code! iNZightPlot(drawing_time, word_concept, colby=word_concept, data=pets) #get summary stats for the selected variables getPlotSummary(drawing_time, word_concept, data=pets)