Behavior Experiment

behavior-data.csv

behavior-plot.r

#read in the data
behavior.data = read.csv("/Users/michelleboisson/Documents/ITP//* DIY Health/assignment 3 - behavior experiement/behavior-data.csv",as.is=TRUE)

#creating a shortcut handle
bd = behavior.data

#convert the timestamp to seconds
just.times = bd$real_time
#this is a function I found online and modified
converted.times = sapply(strsplit(just.times,":"),
  function(x) {
    x <- as.numeric(x)
    x[1]*60*60+x[2]*60+x[3]
    }
)

#add it to the bd table
bd$converted_time = converted.times

#create a color for person with id ==1, we want to see what influences she might have on the others
colors = rep(1, nrow(bd))
colors[which(bd$id == 1)] = 4

#then pass that color to the graph
hist(bd$converted_time, breaks=10000, col=colors)
#this hist is too thin to see the colors, but with less breaks you can see it.

#I found this kind of plot online, and liked how it looked for the story we wanted to tell but I still can't get the color to show.
stripchart(bd$converted_time, col=colors, method='jitter')

# they are all blue, but I only want person with id 1 to be blue.