js4032's questions

我希望生成包含指向同一文档中其他位置的链接的Word文档，例如，如果某个图表在其他地方的文本中被引用。以下是我希望实现的一个简单示例：

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')

href我可以在参数中传递一些东西hyperlink_ftext来实现这一点吗？如果没有，还有其他方法可以实现吗？

注意：这篇文章似乎讨论的是同一件事，但一直没有得到任何回复。我在 Github 软件包页面上也没有看到任何相关的帖子。PowerPointph_slidelink中有内部链接的例子，但我找到的所有 Word 示例都是 URL 的例子。

我正在编写一个函数，将文本和表达式组合起来形成输出图的轴标题。问题是，当我尝试将其加粗时，它不会将该样式应用于数字。以下代码演示了这个问题。

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')

为了进行比较，看看当我将完整标题输入到表达式（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'))

我也尝试添加theme(axis.title = element_text(face = 'bold'))，但没有什么区别。

如何才能使粗体应用到表达式的所有部分？

我注意到同时使用 geom_segment 和 scale_y_log10 时出现了一些奇怪的行为。下面应该绘制一个从 (2,1) 到 (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')))

实际上，它绘制了一条从 (2,10) 到 (4,10) 的箭头。

经过一些实验后，似乎对数变换不适用于 geom_segment，因此无论您输入 geom_segment 的 y 值是什么，该段实际上都会绘制在 10^y 处。所以，我有两个问题：

1. 它为什么会这样？
2. 我该如何修复它？（最好采用比对我传递的每个 y 值取 log10() 更好的方法。）

我是网络抓取新手，所以请原谅我提出这个基本问题，但我正在尝试从 Letterboxd 上的列表中抓取电影 URL，但遇到了一些问题。使用此列表作为示例，我能够在此处的 HTML 中找到链接位置：

但是，我实际上无法从中获取链接。到目前为止，我尝试了两种方法。首先，我尝试抓取所有链接元素，然后希望过滤掉我不需要的元素：

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')

这确实返回了 URL，但实际上没有一个是列表中的电影的 URL。然后我尝试根据类名进行选择。我不太熟悉 HTML，但我的理解是，class="frame has-menu"表示两个单独的类frame，并且has-menu可以通过用句点分隔它们来在 rvest 中合并，所以我尝试了这个：

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

那根本没有返回任何东西。

我看到另一个问题听起来很相似，所以我尝试按照回复者的建议检查浏览器（Firefox）devtools 的“网络”选项卡。我不太清楚该怎么做，但看起来与电影相关的请求使用的是 GET 请求，而在另一个问题中，回复者说问题是 rvest 无法处理 POST 请求。我这里的问题是什么？