master-data/dataexp.R at master · caiogeraldes/master-data · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
require(vcd)
require(tidyverse)


check_info <- function (index, data) {
  print(paste(data[index,]$author,
              "-",
              data[index,]$texto,
              "-",
              data[index,]$local))
  print(data[index,]$passage)
}


atuaplot <- function () {
    print(table(data$pressuposition, data$attraction))
    print(assocstats(table(data$pressuposition, data$attraction)))
    ggplot(data, aes(attraction, fill=pressuposition)) +
        geom_bar()
}

atuaplot2 <- function () {
    print(table(data$pressuposition, data$attraction))
    print(assocstats(table(data$pressuposition, data$attraction)))
    ggplot(data, aes(attraction, fill=pressuposition)) +
        geom_bar() + facet_wrap(~author)
}


atuaplot3 <- function () {
    print(table(data$pressuposition, data$attraction))
    print(assocstats(table(data$pressuposition, data$attraction)))
    ggplot(data, aes(attraction, fill=pressuposition)) +
        geom_bar() + facet_wrap(~poss_verb)
}

atuapres <- function (num, val) {
    print(data$pressuposition[num])
    data$pressuposition[num] <- val
    print(data$pressuposition[num])
    return(data)
}