Skip to content

Instantly share code, notes, and snippets.

@plablo09
Created February 25, 2017 00:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save plablo09/8b61efb50da236208e3f63536ca7f394 to your computer and use it in GitHub Desktop.
Save plablo09/8b61efb50da236208e3f63536ca7f394 to your computer and use it in GitHub Desktop.
structure(list(Time = c("2015-12-07", "2016-05-03", "2015-12-07",
"2016-05-03", "2015-12-07", "2016-05-03", "2015-12-07", "2016-05-03",
"2015-12-07", "2016-05-03", "2015-12-07", "2016-05-03", "2015-12-07",
"2016-05-03", "2015-12-07", "2016-05-03"), Topic = c("treasonous, demsinphilly, khan, manafort, notorious, vpdebate, gloves, mcmullin",
"treasonous, demsinphilly, khan, manafort, notorious, vpdebate, gloves, mcmullin",
"clinton, debate, hillary, ryan, women, paul, tape, rally", "clinton, debate, hillary, ryan, women, paul, tape, rally",
"debates, debatenight, hillary, clinton, hillaryclinton, vote, debate, women",
"debates, debatenight, hillary, clinton, hillaryclinton, vote, debate, women",
"will, hillary, like, just, people, president, vote, said", "will, hillary, like, just, people, president, vote, said",
"critics, bills, aswafbjtet, policy, up.trump, jekyll, tmjr7gwqze, 10pm",
"critics, bills, aswafbjtet, policy, up.trump, jekyll, tmjr7gwqze, 10pm",
"mexican, president, mexico, meet, meeting, nieto, former, immigration",
"mexican, president, mexico, meet, meeting, nieto, former, immigration",
"cruz, rubio, tedcruz, gopdebate, kasich, establishment, carson, party",
"cruz, rubio, tedcruz, gopdebate, kasich, establishment, carson, party",
"mexican, hillaryclinton, clinton, president, hillary, mexico, wall, immigration",
"mexican, hillaryclinton, clinton, president, hillary, mexico, wall, immigration"
), Proportion = c(0.000179424085303337, 0.0331722518291031, 0.000252658405835311,
0.00164845090777708, 0.000150130357090547, 0.0012871465992232,
0.752837829920614, 0.808350645831452, 0.000106189764771362, 0.00155812483063861,
0.000501655095644023, 0.003364646373408, 0.245572985323842, 0.145086261403667,
0.000399127046899259, 0.00553247222473128)), .Names = c("Time",
"Topic", "Proportion"), row.names = c(NA, -16L), class = c("tbl_df",
"tbl", "data.frame"))
> t <- data.frame(dput(dos))
structure(list(Time = c("2015-12-07", "2016-05-03", "2015-12-07",
"2016-05-03", "2015-12-07", "2016-05-03", "2015-12-07", "2016-05-03",
"2015-12-07", "2016-05-03", "2015-12-07", "2016-05-03", "2015-12-07",
"2016-05-03", "2015-12-07", "2016-05-03"), Topic = c("treasonous, demsinphilly, khan, manafort, notorious, vpdebate, gloves, mcmullin",
"treasonous, demsinphilly, khan, manafort, notorious, vpdebate, gloves, mcmullin",
"clinton, debate, hillary, ryan, women, paul, tape, rally", "clinton, debate, hillary, ryan, women, paul, tape, rally",
"debates, debatenight, hillary, clinton, hillaryclinton, vote, debate, women",
"debates, debatenight, hillary, clinton, hillaryclinton, vote, debate, women",
"will, hillary, like, just, people, president, vote, said", "will, hillary, like, just, people, president, vote, said",
"critics, bills, aswafbjtet, policy, up.trump, jekyll, tmjr7gwqze, 10pm",
"critics, bills, aswafbjtet, policy, up.trump, jekyll, tmjr7gwqze, 10pm",
"mexican, president, mexico, meet, meeting, nieto, former, immigration",
"mexican, president, mexico, meet, meeting, nieto, former, immigration",
"cruz, rubio, tedcruz, gopdebate, kasich, establishment, carson, party",
"cruz, rubio, tedcruz, gopdebate, kasich, establishment, carson, party",
"mexican, hillaryclinton, clinton, president, hillary, mexico, wall, immigration",
"mexican, hillaryclinton, clinton, president, hillary, mexico, wall, immigration"
), Proportion = c(0.000179424085303337, 0.0331722518291031, 0.000252658405835311,
0.00164845090777708, 0.000150130357090547, 0.0012871465992232,
0.752837829920614, 0.808350645831452, 0.000106189764771362, 0.00155812483063861,
0.000501655095644023, 0.003364646373408, 0.245572985323842, 0.145086261403667,
0.000399127046899259, 0.00553247222473128)), .Names = c("Time",
"Topic", "Proportion"), row.names = c(NA, -16L), class = c("tbl_df",
"tbl", "data.frame"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment