小编Rya*_*tic的帖子

我正在使用rmarkdown和LaTeX/Beamer构建演示文稿.我想减少显示的R命令和R输出之间的间距.我相信这与LaTeX/Beamer中的段落间距选项有关.

这是我应该在rmarkdown(块选项,knit_hooks或其他什么？),pandoc Yaml标题(一些pandoc选项？)或LaTeX beamer模板文件中做的事情？我觉得它应该在LaTeX模板文件中.

下面是一个最小markdown文件的工作示例,以及我用来控制一些beamer设置的.tex模板文件.

example.Rmd

---
title: "Untitled"
author: "Ryan"
date: "March 1, 2016"
output:
  beamer_presentation:
    pandoc_args: '--latex-engine=xelatex'
    includes:
      in_header: latex-topmatter.tex
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## Vertical Spacing is too much

Here is a working example.

- some
- bullets

Example code:

```{r, echo = TRUE}
a <- 1
a
a+a
```

乳胶topmatter.tex

% declare overall beamer theme to use as baseline
\usetheme{default}

% make code-output smaller
\DefineVerbatimEnvironment{Highlighting}{Verbatim}{fontsize=\tiny,commandchars=\\\{\}}

% make console-output smaller:
\makeatletter
\def\verbatim{\tiny\@verbatim \frenchspacing\@vobeyspaces …

我正在绘制两条半透明的丝带.使用下面的代码,没有scale_fill_manual部分,我基本上得到了我想要的,带有一个名为的图例"red",以及标签blue和red.添加该scale_fill_manual部分允许我将图例和它的条目命名为我想要的,但是我失去了图例中彩色矩形的透明度.

x=1:10
y1=1:10
y2=2:11
y3=10:1
y4=9:0
dt=data.frame(x,y1,y2,y3,y4)
library(ggplot2)    
ggplot(dt)+
  geom_ribbon(aes(x=x,ymin=y1,ymax=y2,fill='red'),
              alpha=0.4,)+
  geom_ribbon(aes(x=x,ymin=y3,ymax=y4,fill='blue'),
              alpha=0.5)+
  scale_fill_manual(name='legendname',
                    values=c('red','blue'),
                    labels=c('one','two'))

sessionInfo()的输出

R version 2.15.2 (2012-10-26)
Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit)

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] scales_0.2.3   ggplot2_0.9.3  plyr_1.8       reshape2_1.2.2

loaded via a namespace (and not attached):
 [1] colorspace_1.2-0   dichromat_1.2-4    digest_0.6.0       grid_2.15.2        gtable_0.1.2       labeling_0.1      
 [7] MASS_7.3-22        munsell_0.4        proto_0.3-10       RColorBrewer_1.0-5 rstudio_0.97.248   stringr_0.6.2     
[13] tools_2.15.2   

针对类似问题有很多解决方案( …

我正在创建一个包含多种线型,颜色和填充区域的图.下面的代码生成两个图例(一个显示线型,另一个显示线条颜色) - 我需要它们组合成一个图例,同时显示线型和linecolor.[有第三个传说显示'填充'对象,但这很好]

我遵循这里给出的方法: 控制ggplot图例中的线条颜色和线条类型 以试图获得单个图例 - 但结果是这种双重传奇行为 - 我做错了什么？

library(ggplot2)
library(scales)
data = structure(list(Dates = structure(c(1351713600, 1351717200, 1351720800, 
  1351724400, 1351728000, 1351731600), class = c("POSIXct", "POSIXt"
  ), tzone = "MST"), CumHVAC_Def_Stoch_Min = c(146.4006, 146.6673, 
  146.9336, 147.1996, 147.4648, 147.5964), CumHVAC_Def_Stoch_1st = c(188.0087, 
  188.2753, 188.5416, 188.8077, 189.0729, 189.2045), 
  CumHVAC_Def_Stoch_Mean = c(204.7234, 204.9901, 205.2564, 205.5225, 205.7876, 205.9193), 
  CumHVAC_Def_Stoch_3rd = c(228.8813, 229.1476, 229.4135, 229.6793, 229.9442, 230.0757), 
  CumHVAC_Def_Stoch_Max = c(295.145, 295.4117, 295.6779, 295.944, 296.2092, 296.3408), 
  CumHVAC_Opt_Stoch_Min = c(112.4095, 112.6761, 112.9424, 113.2085, 113.4737, 113.6053), 
  CumHVAC_Opt_Stoch_1st = …

我想rpivotTable在 rmarkdown HTML 输出中包含几个 s （文档、flexdashboard、其他生成独立 HTML 文件的选项都可以；我不能为此使用 Shiny）。如何为此 htmlwidget 指定固定宽度和/或高度？

我面临的问题是 rpivotTable htmlwidget 似乎会根据我的浏览器缩放来调整自身大小，并且经常与文档中的文本或后续的 rpivotTable 输出重叠（请参见屏幕截图）。每次我在 rpivotTable 中更改某些内容（例如拖放新行或列变量，或设置过滤器）时，情况都会变得更糟。

一些谷歌搜索表明我需要了解 html 小部件和 javascript 调整大小，如果是这样的话，您能否向我指出此 htmlwidget 的正确调整大小方法，或者在这里建议调整大小功能？我意识到这很棘手，因为数据透视表应该调整大小，但假设我知道正确的大小（例如 1000 像素宽，500 像素高），或者我永远不会更改需要调整大小的选项，并将其硬编码达到某些设定的尺寸就可以了。

上述输出的代码（foo.rmd）：

---
title: "test_rpt"
output: html_document
---

```{r setup, include=FALSE}
library(rpivotTable)
```

## Plot1

```{r}
rpivotTable(mtcars, rows = 'mpg', aggregatorName = 'Sum', vals = 'cyl')
```

## Plot2

```{r}
rpivotTable(mtcars)
```

我有一组难以可视化的数据，但我认为添加了几个点和线的 ECDF 可以解决问题。我能够按照我想要的方式绘制事物；我的问题是正确着色。

我有以下代码，它将所有正确的线和点放在图上，但现在我想正确地为所有内容着色和标记。我仔细阅读了多篇文章并尝试了一百件事，但都做对了。我需要以不同的方式格式化我的数据吗？

我对传奇的看法是这样的：

• 虚线 = b
• 实线 = a
• 红色 = s
• 蓝色 = d
• 点 = s.mean

生成示例图的代码在这里：

require(ggplot2)
require(reshape2)

s.a = rnorm(100)*100
s.b = rnorm(100)*100+50
d.a = -35
d.b = 20
sdata = data.frame(cbind(s.a,s.b))
ddata = data.frame(cbind(d.a,d.b))
sdata.m = melt(sdata)
ddata.m = melt(ddata)

ggplot(sdata.m, aes(x=value, color=variable)) +
  geom_vline(data=ddata.m,
             aes(xintercept = value,
                 color=variable),
             linetype = 2,
             size=2) + 
  stat_ecdf(size=1)+
  labs(title = 'plotTitle',
       color='colorLegendTitle') +
  xlab('xLabel') +
  ylab('yLabel')+
  theme_bw(30) +
  theme(
    legend.position=c(.8, .2),
    legend.box="horizontal",
    text=element_text(family="Times"),
    legend.key.size = unit(1,"cm")) …