小编Ant*_*idt的帖子

我正在寻找一种使用ggplot2或网格的方法来制作像下面这样的图表。我可以在Tableau中重新创建它，但是不确定在R中从哪里开始（数据设置，程序包）。重新创建它的任何帮助都很棒！我希望将来使用这样的图表。

给定一个包含一列图像链接 ( <img src...>) 的数据框，是否可以使用 的reactable可扩展行功能来扩展行并查看图像？

这是一些基本数据：

library(tidyverse)
library(reachable)

img_df <- tribble(~image,
                  "<img src='https://upload.wikimedia.org/wikipedia/commons/thumb/5/56/Kosaciec_szczecinkowaty_Iris_setosa.jpg/450px-Kosaciec_szczecinkowaty_Iris_setosa.jpg'/>",
        "<img src='https://upload.wikimedia.org/wikipedia/commons/thumb/4/41/Iris_versicolor_3.jpg/320px-Iris_versicolor_3.jpg'/>",
        "<img src='https://upload.wikimedia.org/wikipedia/commons/thumb/9/9f/Iris_virginica.jpg/295px-Iris_virginica.jpg'/>"
)

iris %>%
  group_by(Species) %>%
  summarize(mean = mean(Sepal.Length)) %>%
  add_column(img_df) -> df

reactable(df)

因此，它不会显示“图像”列，而是显示为可扩展列，并在行扩展时显示图像。

我可以使用此代码显示 HTML，但图像本身不会显示：

reactable(df,
          columns = list(
            image = colDef(html = TRUE,
                           resizable = TRUE,
                           show=F)
          ),
          details = function(index) {
            if(df$image[index] != "") {
              htmltools::HTML(df$image[index])
            }
          })

我可以使用此代码显示图像，但它附带所有附加行信息。（这取自文档 [https://glin.github.io/reactable/articles/examples.html#expandable-row-details-1]

reactable(df, details = colDef(
  name = "More",
  details = JS("function(rowInfo) {
    return 'Details for row: ' …

我想知道在 dplyr 链存在条件元素的情况下如何使用基管|>代替 tidyverse 的基管。%>%当我尝试使用以下代码时|>，出现错误：

Error: function '{' not supported in RHS call of a pipe

Tidyverse 示例

library(tidyverse)

condition = FALSE

mtcars %>%
  { if(condition == TRUE)
    mutate(., mpg = mpg*1000)
    else . }

基本 R 管道示例（导致错误）：

mtcars |>
  { if(condition == TRUE)
    mutate(., mpg = mpg*1000)
    else . }

我是 Bookdown 的新手。我正在准备一本测试书。当我去渲染这本书时，第一页（index.Rmd）会正确渲染并在左侧构建正确的目录。但是，单击目录中的任何链接只会显示一个空白页。在_book文件夹中，所有内部页面都是0字节的HTML文件。

我在 RStudio 论坛上发现其他几个人也遇到了这个问题，但没有发布解决方案。

以防万一，这是我的 index.html YAML：

--- 
title: "Test Title"
author: "My Name"
date: "`r Sys.Date()`"
site: bookdown::bookdown_site
output: bookdown::gitbook
documentclass: book
bibliography: [book.bib]
biblio-style: apalike
link-citations: yes
github-repo: acircleda/RESMHandbook
description: "descirption"
---

注意：我克隆了bookdown 最小示例并遇到了同样的问题