时间戳

首页 > 解决方案 > 我无法在块下方绘制表格

r - 我无法在块下方绘制表格

问题描述

当我运行它时，我很难在块下方绘制表格。它似乎什么都没有。

下面是代码：

## Tabela dos 10 Estados com mais acidentes
DezMaisEstados2 <- DezMaisEstados %>%
  slice(1:10) %>% 
    gt() %>%
      fmt_percent(
        columns = Freq_relativa,
        decimals = 2
      ) %>% 
      cols_align(align = "center") %>% 
      tab_header(
        title = md("**Ranking de Acidentes por Estado**"),
        subtitle="Top 10"
      ) %>% 
      tab_footnote(
        footnote="Fonte: PRF (2017)",
        locations = cells_title(groups = "title")
      )
DezMaisEstados2

如果我在控制台上运行，我可以得到情节，如附图：

控制台上的表格图

在此处输入图像描述

有谁知道如何在块下方绘制表格？

标签： rr-markdowngt

解决方案

这是整个 Chunk，没有显示下表。仅在控制台上。

knitr::opts_chunk$set(echo = TRUE)

# Encontrando os 10 Estados com mais acidentes

## Criando tabela com o agrupamento, o valor máximo dos acidentes por estados, e também colocando em ordem decrescente
DezMaisEstados <- dados_acid1 %>%
    count(Estado) %>%
      mutate(Total_Acid=n) %>%
        select(Estado, Total_Acid) %>%
          arrange(desc(Total_Acid)) %>%
            mutate(Total_Acid=as.double(Total_Acid)) %>%
              mutate(Freq_relativa = (Total_Acid/ sum(Total_Acid)))

## Verificando os dados por estado com maior número de acidentes
glimpse(DezMaisEstados)

## Tabela dos 10 Estados com mais acidentes
DezMaisEstados2 <- DezMaisEstados %>%
  slice(1:10) %>% 
    gt() %>%
      fmt_percent(
        columns = Freq_relativa,
        decimals = 2
      ) %>% 
      cols_align(align = "center") %>% 
      tab_header(
        title = md("**Ranking de Acidentes por Estado**"),
        subtitle="Top 10"
      ) %>% 
      tab_footnote(
        footnote="Fonte: PRF (2017)",
        locations = cells_title(groups = "title")
      )
DezMaisEstados2

推荐阅读