{"header":{"message":"R notbloko","description":null,"timestamp":"2021-12-11T12:09:02.352273227Z","authors":[{}]},"hash":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC","authors":[{"login":"couchemar","key":"oxVqDB3yfThSiczDdp4n3F2ZGtA41nvxcucseWPbet7"}],"deps":{"hashes":[["SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC","R notbloko"],["AA",null]],"deps":[],"known":[]},"hunks":[{"FileAdd":{"meta":{"basename":"R","metadata":576},"context":[{"change":1,"pos":0}],"contents":[]}},{"FileAdd":{"meta":{"basename":"esperantisto.Rmd","metadata":64},"context":[{"change":0,"pos":13}],"contents":[{"Add":{"text":"---\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:60"}},{"Add":{"text":"title: \"Esperantisto\"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:83"}},{"Add":{"text":"output: html_notebook\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:106"}},{"Add":{"text":"---\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:111"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:113"}},{"Add":{"text":"```{r}\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:121"}},{"Add":{"text":"library(ghql)\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:136"}},{"Add":{"text":"library(dplyr)\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:152"}},{"Add":{"text":"library(jsonlite)\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:171"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:173"}},{"Add":{"text":"gql_conn <- GraphqlClient$new(url = 'http://localhost:4000')\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:235"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:237"}},{"Add":{"text":"words_query <- '\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:255"}},{"Add":{"text":"query wordEmbeddings {\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:279"}},{"Add":{"text":" words {\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:290"}},{"Add":{"text":" word\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:300"}},{"Add":{"text":" fastrpEmbedding\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:321"}},{"Add":{"text":" }\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:326"}},{"Add":{"text":"}\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:329"}},{"Add":{"text":"'\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:332"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:334"}},{"Add":{"text":"rq <- Query$new()$query('link', words_query)\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:380"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:382"}},{"Add":{"text":"result <- gql_conn$exec(rq$link) %>%\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:420"}},{"Add":{"text":" fromJSON(flatten = F)\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:445"}},{"Add":{"text":"words <- result$data$words %>% as_tibble()\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:489"}},{"Add":{"text":"# XXX: Ni havas duobligo! Ŝajnas, ke ni bezonas pliigi dimensiojn dum enkonstruado...\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:577"}},{"Add":{"text":"deduped_words <- words %>% distinct(fastrpEmbedding, .keep_all = TRUE)\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:649"}},{"Add":{"text":"```\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:654"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:656"}},{"Add":{"text":"```{r}\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:664"}},{"Add":{"text":"library(tidyr)\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:680"}},{"Add":{"text":"unnested_words <- deduped_words %>% rename(frp=fastrpEmbedding) %>% unnest_wider(frp, names_sep='')\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:781"}},{"Add":{"text":"```\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:786"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:788"}},{"Add":{"text":"```{r}\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:796"}},{"Add":{"text":"library(Rtsne)\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:812"}},{"Add":{"text":"library(tidyverse)\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:832"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:834"}},{"Add":{"text":"unnested_words_with_id <- unnested_words %>% mutate(ID=row_number())\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:904"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:906"}},{"Add":{"text":"set.seed(42)\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:920"}},{"Add":{"text":"tSNE_fit <- unnested_words_with_id %>%\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:960"}},{"Add":{"text":" select(where(is.numeric)) %>%\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:993"}},{"Add":{"text":" column_to_rownames(\"ID\") %>%\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1025"}},{"Add":{"text":" scale() %>%\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1040"}},{"Add":{"text":" Rtsne()\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1051"}},{"Add":{"text":"```\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1056"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1058"}},{"Add":{"text":"```{r}\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1066"}},{"Add":{"text":"tSNE_df <- tSNE_fit$Y %>% \r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1094"}},{"Add":{"text":" as.data.frame() %>%\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1117"}},{"Add":{"text":" rename(tSNE1=\"V1\",\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1139"}},{"Add":{"text":" tSNE2=\"V2\") %>%\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1165"}},{"Add":{"text":" mutate(ID=row_number()) %>%\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1196"}},{"Add":{"text":" inner_join(unnested_words_with_id, by=\"ID\") %>%\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1247"}},{"Add":{"text":" select(-ID)\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1262"}},{"Add":{"text":"```\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1267"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1269"}},{"Add":{"text":"```{r}\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1277"}},{"Add":{"text":"set.seed(42)\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1291"}},{"Add":{"text":"tSNE_df %>% sample_n(500) %>% ggplot(aes(x=tSNE1, y=tSNE2, label=word)) + geom_text(aes(label=word), hjust=0, vjust=0, color=\"blue\")\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1425"}},{"Add":{"text":"```\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1430"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1432"}},{"Add":{"text":"\r","pos":"SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC:1434"}}]}}],"owner":"couchemar","repo":"esperantisto","token":"d3RTGz3u374KFO1I9j/L4c16r7BT9ogOpA7m1dPkN/s=","login":null}

…

Dependencies

Change contents

Review