График частоты слов в таблице в R - PullRequest
0 голосов
/ 27 апреля 2019

У меня есть data.frame / таблица с отметкой времени и заголовком.Я хочу сделать сюжет, который показывает, как часто слово используется в неделю.Генерация недели работает.

      |
|     |           |
Week1 Week2 Week3 Week4 etc
1x    2x    0x    1x

Я добавил столбец с cbind(table, newcol = "filterword") и попытался использовать filter(str_detect(titlecolumn, "filterword")), чтобы вставить слово в newcol, когда оно используется в titlecolumn.

library(RMariaDB)
library(DBI)
library(dbplyr)
library(dplyr)
library(dbplot)
library(sparklyr)
library(tidytext)
library(base)
library(lubridate)
library(stringr)
library(ggplot2)
library(stringi)
library(tidyr)

ergebnis <- dbFetch(res)

ergebnis2 <- (cbind(ergebnis,  Hour = hour(ergebnis$a_timestamp)))
ergebnis2 <- (cbind(ergebnis2, Week = round_date(ergebnis$a_timestamp, "week")))

# something like this...
# cbind(table, newcol = filter(str_detect(titlecolumn, "filterword")))

plot(ergebnis2$Week, ergebnis2$Hour)

print(ggplot(data = ergebnis2) + 
  geom_point(mapping = aes(x = ergebnis2$Week, y = ergebnis2$Hour)))
...