小编mdl*_*oln的帖子

我正在尝试在 GitHub Actions 上运行一个测试套件，该套件包含用于在各种平台上调用剪贴板的实用程序。虽然我已经成功地使用 X11 基于运行为 Linux 系统设置了无头测试xvfb，但我正在努力寻找有关如何设置基于 Wayland 的无头系统来测试实用程序wl-clipboard 的文档。

我正在运行的当前操作安装sway，创建所需的XDG_RUNTIME_DIR，然后运行sway​​。我怀疑我没有sway正确启动，因为我似乎无法启动它并在其余测试运行时在后台保持运行。

      - name: Install wayland
        if: ${{ matrix.config.clip_type == 'wayland' }}
        run: |
          mkdir $XDG_RUNTIME_DIR
          chown $USER $XDG_RUNTIME_DIR
          chmod 0700 $XDG_RUNTIME_DIR
          sudo apt-get update
          sudo apt-get purge x11-*
          sudo apt-get install sway meson libwayland-dev
          echo $XDG_RUNTIME_DIR
          ls -la $XDG_RUNTIME_DIR
          sway -d -V
          cd $GITHUB_WORKSPACE/..
          git clone https://github.com/bugaevc/wl-clipboard.git
          cd wl-clipboard
          meson build
          cd build/
          sudo ninja install
          wl-copy --primary …

我遇到了 R 的 SPARQL 包的编码问题。我正在运行以下代码：

library(SPARQL)

rights_query <- '
PREFIX dc:  <http://purl.org/dc/elements/1.1/>
PREFIX edm: <http://www.europeana.eu/schemas/edm/>
PREFIX ore: <http://www.openarchives.org/ore/terms/>
PREFIX rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#>

SELECT DISTINCT ?edmrights ?provider (COUNT(*) as ?count)
WHERE {
?agg rdf:type ore:Aggregation .
?agg edm:rights ?edmrights .
#?agg dc:rights ?dcrights .
?agg edm:dataProvider ?provider .

?proxy ore:proxyIn ?agg .
?proxy edm:type "IMAGE" .
}
GROUP BY ?edmrights ?provider
ORDER BY ?provider DESC(?count)'

eur <- "http://europeana.ontotext.com/sparql"

eur_data <- SPARQL(eur, rights_query)$results
write.csv(eur_data, "results.csv")

代码运行时没有任何错误或警告，但是在 RStudio 中查看的结果数据框以及 CSV 显然存在编码问题。

例如，最后一个应该是部分西里尔字母： ????????? ??????????????? …

是否有一种方法可以使geom_boxplot线条,胡须和异常点继承与alpha下图fill中分配给箱线图的相同？

library(ggplot2)

ggplot(iris, aes(x = Species, y = Sepal.Length, alpha = Species == "setosa")) +
  geom_boxplot() +
  scale_alpha_discrete(range = c(0.5, 1))

我想过滤一个数据框,只留下基于所选列的完整案例.这很容易用NSE filter():

library(dplyr)

dd <- data.frame(
  id = 1:4,
  var1 = c(1, 2, NA, 4),
  var2 = c(1, NA, 3, 4),
  var3 = c(1, NA, NA, NA))

dd1 <- dd %>% filter(complete.cases(var1, var2))
dd1
#>   id var1 var2 var3
#> 1  1    1    1    1
#> 2  4    4    4   NA

然而,我正试图生成此操作的SE版本,我可以传递列的引用名称.

library(lazyeval)
filtered_cols <- c("var1", "var2")

dots <- interp(~complete.cases(x), .values = list(x = filtered_cols))

dd2 <- dd %>% filter_(.dots = dots)
#> Error in eval(substitute(expr), envir, …

使用时是否可以强制执行堆栈顺序geom_area()？我无法弄清楚为什么geom_area(position = "stack")在1605左右的堆栈顺序中产生这种奇怪的波动.

数据框中没有缺失值.

library(ggplot2)

counts <- read.csv("https://gist.githubusercontent.com/mdlincoln/d5e1bf64a897ecb84fd6/raw/34c6d484e699e0c4676bb7b765b1b5d4022054af/counts.csv")

ggplot(counts, aes(x = year, y = artists_strict, fill = factor(nationality))) + geom_area()

我正在运行htmlproofer来检查一个 WIP Jekyll 生成的网站，该网站目前有很多缺失的图像标签。在其他断开的链接得到解决之前，我想暂时忽略 。我预计这种模式会起作用：

bundle exec htmlproofer ./_site --assume-extension --empty-alt-ignore --disable-external

但是，它仍然会返回缺少 alt 标签的错误。我究竟做错了什么？