Как выполнить повторную индексацию с помощью purrr: pluck () - PullRequest
Новая
       6

Как выполнить повторную индексацию с помощью purrr: pluck ()

0 голосов
/ 11 февраля 2020

Я хочу создать вложения для предложений с пакетом ruimtehol. Следующий код обучает модель, которая поможет мне создать вложения предложений. 

#install.packages("ruimtehol")
library(ruimtehol)
library(tidyverse)
library(udpipe)


# set seed 
set.seed(123)

data(brussels_reviews_anno, package = "udpipe")
x <- subset(brussels_reviews_anno, language == "nl")
x$token <- x$lemma
x <- x[, c("doc_id", "sentence_id", "token")]
set.seed(123456789)
model <- embed_sentencespace(x, dim = 15, epoch = 15, 
                             negSearchLimit = 1, maxNegSamples = 2)


model

Я получил 1 столбец с отзывами. Я хотел использовать purrr для перебора всех обзоров. Для каждого обзора должен выполняться следующий фрагмент кода: 

# Sample reviews
Sentences <- c("This is sentence one", "This is sentence two", "And to finish off this question, I'll present you sentence three") %>% 
  as_tibble()

# Embedddings
starspace_embedding(model, Sentences %>% pluck(1,1)) %>% 
  broom::tidy()

Как видите, я использую pluck для извлечения предложений. Мне нужно повторить второе индексирование, таким образом pluck(1, i). Кто-нибудь знает, как это сделать (желательно аккуратно)? Любые предложения будут высоко оценены

...