june5

#We created a subsrting of those who visited POTUS on June 5th:
POTUS[paste(POTUS$time$mon+1,POTUS$time$mday)=="6 5”,]

#Let’s look at only the full names:
POTUS[paste(POTUS$time$mon+1,POTUS$time$mday)=="6 5",c("NAMEFIRST","NAMELAST”)]

#Let’s look at only the 4 first columns: 
POTUS[paste(POTUS$time$mon+1,POTUS$time$mday)=="6 5",1:4]

#We want to add the “column” description which gives us interesting information (it is the column 27):
POTUS[paste(POTUS$time$mon+1,POTUS$time$mday)=="6 5",c(1:4,27)]

#We create June5 (which gives us with everybody who visited POTUS on June 5th):
June5=POTUS[paste(POTUS$time$mon+1,POTUS$time$mday)=="6 5”,]

#Let’s create a table of June 5:
table(June5$UIN)