小编Sar*_*hGC的帖子

我有一些调查数据,其中列对应于项目,行对应客户说明他们购买每个项目的可能性.看起来像这样:

item1 = c("Likely", "Unlikely", "Very Likely","Likely") 
item2 = c("Likely", "Unlikely", "Very Likely","Unlikely")
item3 = c("Very Likely", "Unlikely", "Very Likely","Likely") 
df = data.frame(item1, item2, item3) 

我想要一个汇总表,给出每个项目的每个响应的百分比.现在我在每个列上使用table()进行此过程,并且需要操作很多代码.我怎样才能使用plyr或者应用更快的东西？

当前解决方案

d1<-as.data.frame(table(df$item1))
d1$item1_percent<- d1$Freq/sum(d1$Freq)
names(d1)<-c("Response","item1_freqs","item1_percent")

d2<-as.data.frame(table(df$item2))
d2$item2_percent<- d2$Freq/sum(d2$Freq)
names(d2)<-c("Response","item2_freqs","item2_percent")

d3<-as.data.frame(table(df$item3))
d3$item3_percent<- d3$Freq/sum(d3$Freq)
names(d3)<-c("Response","item3_freqs","item3_percent")

results<-cbind(d1,d2[,2:3],d3[,2:3])

注意我不需要频率计数,只需要百分比.

提前致谢!

更改 R 闪亮应用程序背景颜色的解决方案都不适合我。我是 CSS 和 HTML 新手，所以希望得到一些帮助。我尝试在代码的各个位置添加“tags$style(".well {background-color:[#000000];}"),”，以及我在 stackover flow 中找到的其他一些解决方案，但没有任何解决方案工作了。

目标是将红色涂鸦区域更改为黑色或灰色。我也有兴趣更改 tabBox 颜色，但这不是我的主要目标。见下文：

这是我的用户界面代码：

library('shiny')
library('shinyjs')
library('shinydashboard')

##########
header<-dashboardHeader(titleWidth = 325)
header$children[[2]]$children <-  
tags$a(tags$img(src='image.PNG',height='45',width='184'))

######
body<-dashboardBody(  tags$style(".span12 {background-color: black;}"),
                  useShinyjs(),
                  tags$style(type='text/css', ".skin-blue .main-header .logo {background-color: #000000}" ),
                  tags$style(type='text/css', ".skin-blue .main-header .logo:hover {background-color: #000000}"),
                  tags$style(type='text/css', ".skin-blue .main-header .navbar {background-color: #000000}"),
                  tags$style(type="text/css",".shiny-output-error { visibility: hidden; }",".shiny-output-error:before { visibility: hidden; }"),

                  fluidPage(
                    #img(src="img2.PNG",height="100%", width="100%"),
                    tabBox("Menu Surf Database", width = 12,
                           tabPanel("Menu Surf Database", 
                                    tabsetPanel(
                                      tabPanel("LTO Survey results",
                                               h2(strong(textOutput("t"))),
                                               h4(textOutput("Description")),
                                               h2(strong("LTO Results"),align='center'),
                                               h4(strong(textOutput("Price"))), …

我正在构建一个闪亮的仪表板，我想要一个图像在仪表板主体的顶部伸展而没有填充。我是自定义应用程序和 CSS 的新手，如果可能的话，我更愿意保持我的 css 内联。

这就是我现在所拥有的：

我想扩展图像，如下面的蓝色箭头/红色轮廓所示。

这是我到目前为止所拥有的代码：

library('shiny')
library('shinyjs')
library('shinydashboard')

##########
header<-dashboardHeader(titleWidth = 325)
header$children[[2]]$children <-  
#tags$a(tags$img(src='image.PNG',height='45',width='184'))

######
body<-dashboardBody(  tags$style(".content {background-color: black;}"),
                  useShinyjs(),
                  tags$style(type='text/css', ".skin-blue .main-header .logo {background-color: #000000}" ),
                  tags$style(type='text/css', ".skin-blue .main-header .logo:hover {background-color: #000000}"),
                  tags$style(type='text/css', ".skin-blue .main-header .navbar {background-color: #000000}"),
                  tags$style(type="text/css",".shiny-output-error { visibility: hidden; }",".shiny-output-error:before { visibility: hidden; }"),

                  fluidPage(
                    img(src="img2.PNG",height="100%", width="100%"),
                    tabBox("Menu Surf Database", width = 12,
                           tabPanel("Menu Surf Database", 
                                    tabsetPanel(
                                      tabPanel("LTO Survey results",
                                               h2(strong(textOutput("t"))),
                                               h4(textOutput("Description")),
                                               h2(strong("LTO Results"),align='center'),
                                               h4(strong(textOutput("Price"))),
                                               br(),
                                               plotOutput("Q4plot",height = 200),
                                               br(),br(),
                                               plotOutput("seasonPlot",height=200),
                                               br(),br(), …

是否可以更改整个闪亮仪表板应用程序的默认字体？包括应用程序中的侧边栏、正文、标题、ggplots 等的字体？

我知道你可以在每个片段中添加 font-family 语句（例如：h2(strong(textOutput("t")), style = "font-family: 'Arial';")），但我希望我的整个应用程序都使用Arial 和我不想为每个功能都编写一行代码。有捷径吗？

此外，如果可能，内联 CSS 优于单独的 css 文件。

谢谢，莎拉

编辑：

这是我的一些代码。你能告诉我把必要的 CSS 放在哪里吗？

body<-dashboardBody( tags$style(".content {background-color: black;}"),
                 useShinyjs(),
                 tags$style(type='text/css', ".skin-blue .main-header .logo {background-color: #000000}" ),
                 tags$style(type='text/css', ".skin-blue .main-header .logo:hover {background-color: #000000}"),
                 tags$style(type='text/css', ".skin-blue .main-header .navbar {background-color: #000000}"),
                 tags$style(type="text/css",".shiny-output-error { visibility: hidden; }",".shiny-output-error:before { visibility: hidden; }"),
                 fluidPage(
                   img(src="img2.PNG",height="100%", width="100%",style='padding:0px;'),
                   br(),br(),
                   tabBox("Menu Database", width = 12,
                          tabPanel("Menu Database", 
                                   tabsetPanel(
                                     tabPanel("LTO Survey results",

我正在使用包含数据表的 R markdown 生成报告。我希望生成的 html 保留一些边距，而不是表格填充页面的整个宽度。

我试过包括：

knitr::opts_chunk$set(fig.width=5, fig.height=8) 

我试过这个：

 ``` {r fig1, fig.height = 3, fig.width = 5, echo = FALSE, include=TRUE}

我试过在输出下的标题中定义图形大小。我在数据表本身中使用了列宽选项。

有什么建议？

这是一个示例 Rmd：

---
title: "Initial Data Check Report"
date: "`r format(Sys.time(), '%B %d, %Y %H:%M:%S', 'America/Chicago', T)`"
output:
  html_document:
    self_contained: yes
    theme: null
    highlight: null
    mathjax: null
params:
  client: "ClientName"

---

### Audit Table
Some text here

---

```{r table, echo = FALSE, include=FALSE}
library(dplyr)
library(DT)
data = mtcars

```

``` {r fig1, fig.height = …