小编RL_*_*Pug的帖子

这是我的仪表板模板的外观。我有一个 {.tabset} 来显示 2020 年 12 月和 2020 年 1 月的两个不同表格。但该表格并不像生成的区域那么长，实际上只达到了一半。

我想要的输出是这样的。

但我不知道如何在不加入 {.tabset} 或创建新列的情况下添加另一个级别。

这是我的 Rmarkdown 模板

---
title: "Example Demo Dash"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny 
---

# Tab 1

Column 
-----------------------------------------------------------------------

### Tab 1 Graph

# Tab 2

Column {data-width=450, .tabset} 
-----------------------------------------------------------------------

### December 2020 

### Janurary 2020

Column {data-width=200}
-----------------------------------------------------------------------

### Tab 2 Col 2 Graph 1

### Tab 2 Col 2 Graph 1

### Tab 2 Col 2 Graph 3

### Tab …

我正在使用该gt包制作表格广告并将其保存为 .RTF。我正在使用函数 gt::gtsave() 但保存的表格看起来与我的查看器中的表格或输出到 HTML 的表格非常不同。

Lin：我正在使用的文档 https://gt.rstudio.com/reference/gtsave.html

这是我正在做的桌子

library(gt)
library(tidyverse)
library(glue)

# Define the start and end dates for the data range
start_date <- "2010-06-07"
end_date <- "2010-06-14"

# Create a gt table based on preprocessed
# `sp500` table data
tab <- sp500 %>%
  filter(date >= start_date & date <= end_date) %>%
  select(-adj_close) %>%
  gt() %>%
  tab_header(
    title = "S&P 500",
    subtitle = glue("{start_date} to {end_date}")
  ) %>%
  fmt_date(
    columns = date,
    date_style = 3
  ) %>% …

我有一个数据集是调查数据。如果我使用distinct(x)，代码将不会读取任何重复项，因为我有一个始终不同的“调查ID”列。

x <- data.frame("Survey ID" = 1001:1008,
                "First Initial" = c("M","P","S","B","H", "P", "L", "A"),
                "Last Initial" = c("S","J", "A", "P", "Q", "J", "P", "C"),
                "Age" = c(34,41,52,61,25,41,19,58),
                "Gender" = c("M", "M", "M", "F","M","M","F","M"),
                "Ethnicity" = c(2,2,1,1,3,2,1,4),
                "Veteran Status" = c("A","Y","N","Y","N","Y","N","N")
                )

我可以用

y <- distinct(x[,-1]) 

它会过滤掉调查 ID，但我需要新数据集中的调查 ID。如何删除重复项但保留重复行之一的调查 ID？

谢谢

我创建了一个可以在我的“查看器”中查看的数据表。如果我使用导出来复制图像或保存为 .png，它的质量往往会很低吗？

我最好的选择是截取图像并将其粘贴到我的工作文档中，我在其中输入报告，但我知道必须有更好的方法。

对我能做什么有什么建议吗？

我正在尝试制作一个同时显示条目和按钮的表格，以便我的同事可以从表格中导出数据。

起初，当我添加表格时，它覆盖了通常位于左上角的“显示条目”部分。所以我编写了这段 CSS 代码，将按钮移动到表格的中心，但我的“显示条目”部分仍然是空的。

这是我的 Rmarkdown 代码

输出：html_document

```{r}  

library(readr)
library(DT)

mtcars <- mtcars


    
  
```{css echo=FALSE}

.dataTables_wrapper .dt-buttons {
  float:none;  
  text-align:center;
}

datatable(mtcars,
          extensions = 'Buttons', options = list(
            dom = 'Bfrtip',
            buttons = c('copy','excel', 'pdf')
          )
) 

这就是我的负载

如何添加“显示条目”功能？

我正在尝试解决这个问题，但我无法让任何事情发挥作用。

这是我的数据框。

Type   Claims   Adds   Family   Individual   ES     SO
A       0         10     1          9         6      4         
B       0         17     1          9         2      6      
C       2         16     2          5         6      4
D       6         15     1          6         6      4
E       7         12     3          9         8      6

我的目标是变成这样

Type             A      B    C     D    E
Claims           0      0    2     6    7
Adds             10     17   16    15   12
Family           1      1    2     1    3
Individuals      9      9    5     6    9
ES               6      2    6     6 …

这是我的数据

data <- data.frame("Name" = c("Mark", "Jenny", "Linn"),
                   "Freq" = c("5","7", "3"),
                   "Percent" = c("33%", "47%", "20%"))

这是我的情节

ggplot(data, aes(x=Name, y=Freq)) + 
  geom_bar(stat="identity", color = "black", fill="dodgerblue1")+
  geom_text(label=data$Freq, vjust=-1)

如何将百分比标签放在频率标签旁边，最好放在括号中或用逗号分隔？

所以我有一个名为“myData”的数据框

print(myData) 

ID       Name      Status       AGE 
123      Mike        Yes         18
124      John        No          20
125      Lily        Yes         21
126      Jasper      No          24
127      Toby        Yes         27 
128      Will        No          19 
129      Oscar       Yes         32

我收到了一个更新的数据框，它更新了名为“myData2”的“状态”。这个数据框的观察比我原来的少，只有 ID 和状态。

这是更新后的数据框

print(myData2) 

ID      Status        
123      Yes                  
125      Yes         
126      Yes                  
128      No          
129      No

是否有功能可以使用列“ID”使用 myData2 中的数据更新 myData 中的“状态”列？

这是我想要的输出

ID       Name      Status       AGE 
123      Mike        Yes         18
124      John        No          20
125      Lily        Yes         21
126      Jasper      Yes         24
127      Toby        Yes …

datatable(head(iris))

如何使我的列居中，使它们位于我的列名称的正下方？

我有一个使用 mtcars 数据集在 excel 中制作的条形图，但我需要在 R 中创建它。我知道如何制作堆积图，但可以添加如下所示的数据表/与图形集成吗？

谢谢你，

我有以下代码，可以制作一个简单的闪亮应用程序。

```
library(shinydashboard)
library(shiny)
ui <- dashboardPage(
  dashboardHeader(title = tags$img(src='https://cdn.vox-cdn.com/thumbor/Ous3VQj1sn4tvb3H13rIu8eGoZs=/0x0:2012x1341/1400x788/filters:focal(0x0:2012x1341):format(jpeg)/cdn.vox-cdn.com/uploads/chorus_image/image/47070706/google2.0.0.jpg', height = '60', width ='100')),
  dashboardSidebar(
    sidebarMenuOutput("menu")
  ),
  dashboardBody()
)

server <- function(input, output) {
  output$menu <- renderMenu({
    sidebarMenu(
      menuItem("Overview", icon = icon("tachometer"))
      
    )
  })
}
shinyApp(ui, server)
```

图像输出在右侧菜单的顶部，但我的目标是让图像更多地位于仪表板的中间。我知道菜单稍微改变了导航栏，但我想尽可能将其保持在中心位置。

但我想要的输出是这样的。我用油漆做了一个样品。是否仍然可以有一些文本，或者如果可以发布参考，让我可以了解有关仪表板标题功能的更多信息，我将不胜感激。

我正在尝试使用 dplyr 复制 table() 函数的输出。我在最底部包含了我正在使用的数据的副本。

使用 table() 时，我得到一个交叉表，其中包含 0 表示缺失的交叉表。

如您所见，“二月”的结果“待定”为 0

> table(data$Month, data$Outcome)
     
      Negative Neutral Pending Positive
  Apr       48      12       1       75
  Feb       37       6       0       48
  Jan       49       9       0       44
  Jul       12       7     210       41
  Jun       66      47      35       89
  Mar       90      15       5      116
  May       51       9       4       40

我可以将它保存到一个可行的 df 中以使用

> as.data.frame(table(data$Month, data$Outcome))
   Var1     Var2 Freq
1   Apr Negative   48
2   Feb Negative   37
3   Jan Negative   49
4   Jul Negative   12
5 …

我有一个非常简单的闪亮应用程序，它gt使用一些输入来制作表格。

我的目标之一是将用户输入的数字传递到参数中cols_width()，以便我可以向第一列添加填充。尽管在执行类似以下操作时我收到错误，提示找不到输入。

  output$table <- render_gt( 
    reactive_tab() %>% 
      gt() %>% 
      cols_width(
        1 ~ px(input$colpad)
      )
  )
  

我也尝试过这样做{input$colpad}，但.(input$colpad)也没有成功。

期望的输出：

这是代码：

library(data.table)
library(shiny)
library(gt)
library(shinyscreenshot)

data <- gtcars %>% head(10) %>% 
  select(mfr, model, msrp)

ui <- navbarPage("Y u no pad??",
                 tabPanel("Table", icon = icon("table"),
                          
                          sidebarLayout(
                            sidebarPanel(
                              selectInput("input",
                                          label = "Choose mfr",
                                          choices = c("All", data$mfr)),
                              numericInput("colpad", label = "First Column Padding", min = 1, max = 10000, value = 150),
                              screenshotButton(selector="#table", label = 'Download Png', …