if (FALSE) {
x <- "Questions must be at least 2 days old to be eligible for a bounty.
There can only be 1 active bounty per question at any given time.
Users must have at least 75 reputation to offer a bounty, and may
only have a maximum of 3 active bounties at any given time. The
bounty period lasts 7 days. Bounties must have a minimum duration of
at least 1 day. After the bounty ends, there is a grace period of 24
hours to manually award the bounty. If you do not award your bounty
within 7 days (plus the grace period), the highest voted answer
created after the bounty started with at least 2 upvotes will be
awarded half the bounty amount. If there's no answer meeting that
criteria, the bounty is not awarded to anyone. If the bounty was
started by the question owner, and the question owner accepts an
answer during the bounty period, and the bounty expires without an
explicit award - we assume the bounty owner liked the answer they
accepted and award it the full bounty amount at the time of bounty
expiration. In any case, you will always give up the amount of
reputation specified in the bounty, so if you start a bounty, be sure
to follow up and award your bounty to the best answer! As an
additional bonus, bounty awards are immune to the daily reputation
cap and community wiki mode."
phrase_net(sent_detect(x), r=.5)
library(igraph)
plot(phrase_net(sent_detect(x), r=.5), edge.curved = FALSE)
## Declaration of Independence Example
y <- readLines("http://www.constitution.org/usdeclar.txt")
y <- paste(y[grep("When, in the", y):length(y)], collapse=" ")
phrase_net(sent_detect(y), r=.7)
## Multiple grouping variables
z <- lapply(split(raj.act.1$dialogue, raj.act.1$person), paste, collapse = " ")
par(mfrow=c(2, 5), mai = c(.05, 0.15, 0.15, 0.15))
lapply(seq_along(z), function(i) {
x <- try(phrase_net(sent_detect(z[i]), r=.6))
if (!inherits(x, "try-error")) {
print(x)
box()
mtext(names(z)[i])
}
})
lapply(seq_along(z), function(i) {
x <- try(phrase_net(sent_detect(z[i]), r=.6))
if (!inherits(x, "try-error")) {
dev.new()
print(x)
mtext(names(z)[i], padj=-1, cex=1.7, col="red")
}
})
}
Run the code above in your browser using DataLab