This is a test to see if we can streamline how students load datasets into their computers. Let me know if you have any issues. Should work with excell read_xlsx and with csv read.csv.

  1. Load (activate) your packages
library(ggplot2)
library(readxl)
  1. Load the datasets
#When choosing files it has to be in order otherwise the wrong file will be assigned to the wrong object 
#Choose potato data first 

potato.dat = read_xlsx(file.choose())

#Choose dye data second 

dye.dat    = read_xlsx(file.choose())

#Test with csv 

csv.dat = read.csv(file.choose())
  1. explore the data set
#Potatoe dat
names(potato.dat)
## [1] "Potato ID"         "Treatment"         "Initial_length_mm"
## [4] "Initial_mass_g"    "Final_length_mm"   "Final_mass_g"
ggplot(potato.dat, 
       aes(x=Treatment, y=Final_length_mm)) +
  geom_boxplot()

#Dye dat 
names(dye.dat)
## [1] "Activity"                   "Dye_number_name"           
## [3] "Concentration_mM"           "Agarose_concentration_mm"  
## [5] "Time"                       "Distance_from_Interface_mm"
ggplot(dye.dat, 
       aes(x=Time, 
           y=Distance_from_Interface_mm,
           color=Dye_number_name)) +
  geom_point() +
  facet_grid(Dye_number_name~Activity)
## Warning: Removed 1 rows containing missing values (geom_point).

#CSV dat 
names(csv.dat)
## [1] "Date_Time"          "Body_Temperature_C"
ggplot(csv.dat, 
       aes(x=Date_Time, y=Body_Temperature_C)) +
  geom_point() +
  theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())

comments:

knits without any errors in my computer so long as the studdents click the files in the correct order as they are assinged datasets. For most activities of only one dataset should work very smoothly. Please report issues (lost of compatability with R versions, Mac versus Window errors, etc. )