js4032's questions

Gostaria de gerar documentos do Word com "oficial" que contenham links para outros locais no mesmo documento, por exemplo, se houver uma figura que seja mencionada em outro lugar no texto. Aqui está um exemplo simples do que eu esperava:

library(officer)
library(dplyr)

doc <- read_docx() %>%
  body_add_par('1. Introduction', style = 'heading 1') %>%
  # hyperlink_ftext() %>% # I want to link this to Figure 1
  body_add_par('Figure 1', style = 'heading 2')

print(doc, target = 'test.docx')

Existe algo que eu possa passar para o hrefargumento hyperlink_ftextpara fazer isso? Se não, existe alguma outra maneira de fazer isso?

Observação: Parece que esta postagem abordava o mesmo assunto, mas nunca recebeu nenhuma resposta. Também não vi nenhum tópico relevante na página do pacote no GitHub. Há ph_slidelinklinks internos no PowerPoint, mas todos os exemplos que encontrei para o Word eram de URLs.

Estou escrevendo uma função que combina texto e expressões para formar títulos de eixo para um gráfico de saída. O problema é que quando tento deixá-lo em negrito, ele não aplica esse estilo aos números. O código a seguir demonstra o problema.

test_func <- function(x_title) {
  text <- '1'
  
  ggplot(data.frame(x = 1:5, y = 1:5), aes(x, y)) +
    geom_point() +
    labs(x = parse(text = paste('bold(Part ~', text, ' ~', x_title, ')'))) +
    theme(axis.title = element_text(face = 'bold'))
}

test_func('Value')

Para comparação, veja o que acontece quando insiro o título completo em expression(bold()).

ggplot(data.frame(x = 1:5, y = 1:5), aes(x, y)) +
  geom_point() +
  labs(x = expression(bold('Part 1 Value'))) +
  theme(axis.title = element_text(face = 'bold'))

Também tentei adicionar theme(axis.title = element_text(face = 'bold')), mas não fez diferença.

Como faço para aplicar negrito a todas as partes da expressão?

Notei um comportamento estranho ao usar geom_segment e scale_y_log10 simultaneamente. O seguinte deve plotar uma seta de (2,1) a (4,1).

ggplot(data.frame(x = 1, y = 1), aes(x, y)) +
  geom_point() +
  coord_cartesian(clip = 'off') +
  scale_x_continuous(limits = c(1, 5)) +
  scale_y_log10(breaks = c(0.1, 1, 10, 100), limits = c(0.1, 100)) +
  geom_segment(x = 2, y = 1, xend = 4, yend = 1,
               arrow = arrow(length = unit(0.5, 'cm')))

Na realidade, ele traça uma seta de (2,10) a (4,10).

Depois de fazer uma pequena experimentação, parece que a transformação de log não é aplicada a geom_segment, então para qualquer valor y que você inserir em geom_segment o segmento será realmente plotado em 10^y. Então, tenho duas perguntas:

1. Por que isso acontece?
2. Como posso consertar isso? (De preferência algo melhor do que pegar log10() de cada valor y que eu passar.)

Novo em web scraping, perdoe a pergunta básica, mas estou tentando extrair URLs de filmes de listas no Letterboxd e estou tendo alguns problemas. Usando esta lista como exemplo, consegui encontrar a localização do link no HTML aqui:

No entanto, não consigo tirar o link disso. Eu tentei dois métodos até agora. Primeiro tentei pegar todos os elementos do link, na esperança de filtrar aqueles que não precisava:

library(rvest)
link <- 'https://letterboxd.com/horrorville/list/horrorville-community-80s-video-store-horror/'
page <- read_html(link)

page %>%
  html_elements('a') %>%
  html_attr('href')

Isso retornou URLs, mas nenhum deles era realmente dos filmes da lista. Tentei então selecionar com base no nome da classe. Não tenho muita familiaridade com HTML, mas meu entendimento é que ele class="frame has-menu"indica duas classes separadas framee has-menuque podem ser combinadas no rvest separando-as por pontos, então tentei isso:

page %>%
  html_elements('.frame.has-menu') %>%
  html_attr('href')

Isso não retornou nada.

Eu vi essa outra pergunta que parecia semelhante, então tentei examinar a guia Rede das ferramentas de desenvolvimento do meu navegador (Firefox), conforme sugerido pelo respondente. Eu não tinha certeza do que fazer com isso, mas parecia que as solicitações relacionadas aos filmes estavam usando solicitações GET, enquanto na outra pergunta o respondente disse que o problema é que o rvest não consegue lidar com solicitações POST. Qual é o meu problema aqui?