小编cca*_*ara的帖子

我正在使用 quarto 的 Reveal.js 实现。我一直在阅读有关自定义主题的官方文档页面，并且对 SCSS 规则相对熟悉。

我已经能够为幻灯片创建类，然后通过 SCSS 规则自定义它们。遗憾的是，我无法向#title-slide覆盖整个区域的第一张幻灯片 ( ) 添加自定义背景（颜色或理想情况下图像背景），就像我在其他常规幻灯片中所做的那样，如此处所述。

除了将演示文稿的属性留空之外，还有什么方法可以将自定义背景添加到第一张幻灯片吗？

编辑：

不确定这是否是正确的方法，但我尝试在 yaml 元数据中添加背景图像 url 并且它有效：

---
title: "My title"
background-image: "https://images.unsplash.com/flagged/photo-1580139624070-910f651c1b78?ixlib=rb-1.2.1&ixid=MnwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHx8&auto=format&fit=crop&w=1470&q=80"
background-opacity: "0.45"
format: 
  revealjs:
    theme: [default]
    logo: images/logo_black.png
editor: visual
---

遗憾的是，诸如background-color和 之类的属性background-opacity不起作用。

一张图片胜过千言万语:

观察到的行为:从上图可以看出,各国的名称与其实际几何形状不匹配.

预期的行为:我想将数据框与其几何图形正确连接,并在ggmap中显示结果.

我以前加入了不同的数据框架,但事实上显然ggmap需要"强化"(实际上我不知道究竟是什么意思)数据框以显示结果.

这是我到目前为止所做的:

library(rgdal)
library(dplyr)
library(broom)
library(ggmap)

# Load GeoJSON file with countries.
countries = readOGR(dsn = "https://gist.githubusercontent.com/ccamara/fc26d8bb7e777488b446fbaad1e6ea63/raw/a6f69b6c3b4a75b02858e966b9d36c85982cbd32/countries.geojson")

# Load dataframe.
df = read.csv("https://gist.githubusercontent.com/ccamara/fc26d8bb7e777488b446fbaad1e6ea63/raw/a6f69b6c3b4a75b02858e966b9d36c85982cbd32/sample-dataframe.csv")

# Join geometry with dataframe.
countries$iso_a2 = as.factor(countries$iso_a2)
countries@data = left_join(countries@data, df, by = c('iso_a2' = 'country_code'))

# Convert to dataframe so it can be used by ggmap.
countries.t = tidy(countries)

# Here's where the problem starts, as by doing so, data has been lost!

# Recover attributes' table that …

我目前正在使用它tmap来创建交互式地图。由于初始缩放时结果非常混乱（见下图），我想实现标记集群。

我知道传单允许通过添加参数或调用来使用标记集群（来源：clusterOptions = markerClusterOptions()https : //rstudio.github.io/leaflet/markers.html），但还没有找到如何使用.addMarkers()addCircleMarkers()tmap

如何在 中添加标记簇tmap？

ipython我使用以下命令创建了一个 data_science 内核：

python -m ipykernel install --user --name data_science --display-name "Python (Data Science)"

这将创建一个包含我所有 conda/pip 数据科学包的内核。我可以使用新内核创建一个笔记本，但我真正想要的是将此内核添加到我的 ATOM 文本编辑器中的 Hydrogen Package 中。

如何将此内核添加到我的 Hydrogen ATOM 包中？

我正在为使用四开的学生创建一个文档。我想教的一件事是如何阅读和理解错误消息，因此我计划创建错误的代码块来强制某些错误消息（如下所示）：

a_list = [1,2,"a"]
a_list[3]
# I want to generate an error to explain that python starts counting at 0

遗憾的是，当我编写上面的代码时，quarto 会抱怨（有充分的理由）并将停止执行其余的代码块并渲染文件。

有没有办法在不停止执行的情况下获取错误消息？

我以为这样的事情会起作用，但事实并非如此：

# | error: true
a_list[3]

在对每个社区的感知问题进行调查后,我得到了这个数据帧.由于调查有不同的选择可供选择+一个开放的选项,因此公开问题的结果往往无关紧要(见下文):

library(dplyr)
library(splitstackshape)
df = read.csv("http://pastebin.com/raw.php?i=tQKHWMvL")

# Splitting multiple answers into different rows.
df = cSplit(df, "Problems", ",", direction = "long")

df = df %>%
  group_by(Problems) %>%
  summarise(Total = n()) %>%
  mutate(freq = Total/sum(Total)*100) %>%
  arrange(rank = desc(rank(freq)))

导致此数据框:

> df
Source: local data table [34 x 3]

                       Problems Total       freq
1  Hurtos o robos sin violencia   245 25.6008359
2                        Drogas   232 24.2424242
3             Peleas callejeras   162 16.9278997
4               Ningún problema   149 15.5694880
5                    Agresiones    66  6.8965517
6 …

简短的问题：我想从一系列页面中抓取一系列 html_nodes。当这些元素位于没有任何类或 id 的列表中时，问题就出现了。我也不能使用 XPATH，因为所需元素的位置从一页到另一页不同，这取决于以前的信息。

详细资料：

• 示例页面：https : //www.fablabs.io/machines/othermill
• 目标：我想抓取使用该特定机器的所有晶圆厂的名称

html 代码（片段）如下所示：

<div class='heading'>Available at</div>
<ul class='list-unstyled'>
<li>
<img alt="The%20beach%20lab%20%28mobile%29" class="avatar tiny" src="...>
<a href="/labs/thebeachlab">The Beach Lab x Middle East</a>
</li>
<li>
<img alt="Default lab avatar" class="avatar tiny" src="...>
<a href="/labs/fabedcarolina">Fab Ed Carolina</a>
</li>
...

</ul>

由于没有嵌套的类或 id，我唯一的选择是使用 Xpath，如下所示：

fablabs = url %>%
    html_nodes(xpath = '/html/body/div[2]/div[2]/div[2]/ul[3]/li/a') %>%
    html_text()

不幸的是，虽然这适用于该页面，但不适用于其他页面，因为此列表的位置会根据其先前的内容在页面之间发生变化。

我唯一知道的是我想刮掉字符串下方的东西Available at。有没有办法在R中实现这一目标？

我想重新排序一个因子的级别,以便新的顺序按字母顺序显示所有值,除了一个(其他),我希望它是最后一个.

让我们假设我们有这个因素:

x <- factor(c("Yes", "No", "Other", "Yes", "No", "Other"))

> x
[1] Yes   No    Other Yes   No    Other
Levels: No Other Yes

我希望他们的关卡按此顺序显示:"是","否","其他",而不是默认值.我知道在这个愚蠢的例子中我可以通过以下方式轻松实现:

x2 <- factor(c("Yes", "No", "Other", "Yes", "No", "Other"), 
             levels = c("Yes", "No", "Other"))

这将导致我想要的:

> x2
[1] Yes   No    Other Yes   No    Other
Levels: Yes No Other

但是,如果我们有一个具有几个不同级别的向量并且我们不想再次编写它们就不会那么有趣了,因为除了一个之外他们的订单都很好!

有没有更好的方法来解决这个问题,而无需从头开始编写整个向量？

我想将一个数据帧上的几列乘以一个向量的值（同一列内的所有值都应乘以相同的值，根据列的不同而有所不同），同时保持其他列不变。

因为我正在dplyr广泛使用mutate_each，所以我认为使用函数可能会很有用，因此我可以同时修改所有列，但是我完全不了解该fun()部分的语法。

另一方面，我已阅读了此解决方案，该解决方案简单易行，但仅适用于所有列，而不适用于选定的列。

到目前为止，这就是我所做的：

想象一下，我要乘的所有列df，但letters通过weight_df矢量如下：

df = data.frame(
  letters = c("A", "B", "C", "D"),
  col1 = c(3, 3, 2, 3),
  col2 = c(2, 2, 3, 1),
  col3 = c(4, 1, 1, 3)
)
> df
  letters col1 col2 col3
1       A    3    2    4
2       B    3    2    1
3       C    2    3    1
4       D    3    1    3
> 
weight_df = c(1:3)

如果我 …