Robocoap (version 0.1-1)

novel.coap: novel.coap

Description

Function to generate a characters co-apperance matrix and characters timeline dataset within a novel plus files formatted to be used in the Gephi network analysis tool.

Usage

novel.coap(novel, characters, split = "Chapter", language = "english",
          encoding = "UTF-8", gephi = FALSE, plot = FALSE)

Arguments

novel

path to a TXT or PDF file containing a novel or text itself.

characters

regexp expression containing characters names to analyze co-apperance.

split

keyword used to recognize different parts of the novel to establish co-apperance dynamics.

language

the language the novel is written on

encoding

text econding in the TXT file

gephi

flag to generate files formatted to be use with Gephi. The files name are 'novel.coapnet.csv' and 'novel.coapnet.timeset.csv'.

plot

flag to plot the adjacency co-apperance matrix

Value

A list contatining the following components:

coapmat

directed graph matrix describing co-apperance of the characters members

dynamic

data set describing characters appearances considering the 'split' separator

Optionally a plot of the adjacency co-apperance matrix or a set of two Gephi friendly files will be saved.

Details

In novels co-apperance (defined as the apperance of two consecutive characters within split sections) will be similar to interactions among characters (defined as characters being object of actions by other characters). Check the example for further details.

Follow these steps in order to load the dynamic graph of coapperances in Gephi:

1- 'novel.coapnet.csv': Gephi -> File -> Open [Directed] -> Ok 2- 'novel.coapnet.timeset.csv: Gephi -> File -> Import Spreadsheet -> Next -> Finish

Examples

# NOT RUN {
## Co-apperance vs Interaction Plots
## Co-apperance can be automatized, detect interactions is however a hard AI problem
## than can be approximated by the co-apperances when the story is long enough.

txt <- paste("A woman gets on a bus with her baby. The bus driver says:", "'Ugh,
that's the ugliest baby I've ever seen!' The woman walks", "to the rear of the
bus and sits down, fuming. She says to a man", "next to her: 'The driver just
insulted me!\n\nPun\n' The man says:", "'What? you just go back there and tell him
off. Go on, I'll hold", "your monkey for you.'")

res <- Robocoap::novel.coap(novel = txt, characters = c('woman','driver','baby|monkey','man'),
                 split = 'Pun', language = 'english', plot = FALSE)
res$coapmat
layout(matrix(c(1,2), ncol=2))
par(ask=FALSE)
plot(igraph::graph.adjacency(res$coapmat), main = 'Coapperances')

# Manually creating a matrix of interactions (A action on B)
inter <- res$coapmat
inter[] <- 0
# A woman gets on a bus with her baby ...
inter[4,1] <- 1
# The bus driver says ...
inter[2,4] <- 1
# She says to a man next to her: ...
inter[4,3] <- 1
# The man says: ...
inter[3,4] <- 1

plot(igraph::graph.adjacency(inter), main = 'Interactions')
layout(1)

## TODO Write instructions to load files into Gephi when gephi = TRUE
## To import the results into gephi set the gephi parameter to TRUE


# }