gistfile1.txt

#U01358 and U01402 are big events, they are not related to the NSA revelations. Let’s at all the other UIN and see who they correspond to.

subset(June5,UIN=="U01627”)
#U01627 is the band for the event mention earlier, it is said in the description. 

[I am checking if the UIN are given in increasing order:
POTUS$UIN[order(POTUS$time)]
unique(POTUS$UIN[order(POTUS$time)])
sort(table(visits$UIN))
This helps us find out that they are]

U01712: David Levi, Jill Levi, John Levi, Sarah Levi, William Levi (a family, probably unrelated to NSA)
U01771: Vinod Khosla - Investor
U01983: Barbara Mikulski - senator for Maryland 
U02145: Bernard Pierce - American football player?
U02244: Nichelle Shoultz - 
U02248: Amanda Pleasant - Maryland
U02259: Jyotika Vazirani -
U02262: Andrew Sachse -
U02264: Marianne VonNordeck -
U02283: Terri Sewell - Congresswoman
U02285: Donna Brazile, Melanie Campbell, Gainevere, Ingram Janaye, Kevin Parker, Barbara Perkins, D Savannah, F Tonya

POTUS[paste(POTUS$time$mon+1,POTUS$time$mday)=="6 6",]

POTUS[paste(POTUS$time$mon+1,POTUS$time$mday)=="6 6",c(1:4,27)]

June6=POTUS[paste(POTUS$time$mon+1,POTUS$time$mday)=="6 6",]

table(June6$UIN)

subset(June6,UIN=="U02454")