小编Mic*_*per的帖子

我想在texmaker中使用knitr将标题放在图上方. 我知道这个问题已经被提出,我理解到目前为止建议的解决方案是使用:

\begin{figure} 
\caption{This is a caption above the figure} 
<<a-plot, echo=FALSE>>= 
plot(1) 
@ 
\end{figure} 

但是这样我就无法显示代码(因为echo=FALSE).如果我选择echo=TRUE,我得到的是标题,然后是代码,然后是图表,这也不是我想要的.我想要展示的是代码R,(和)用该R代码绘制的图表,图表上方的标题.

我想在 R Markdown 文档中的参考书目之后添加表格和数字。但是，默认情况下，R Markdown 文档将始终将参考书目添加到报告的末尾。

有没有一种简单的方法可以在引用后向文档添加内容？

尝试的解决方案

一个以前的答案表明，就是把附录中的R在降价后书目的方式。此附录是一个单独的文件，并after_body通过 YAML 标头添加到文档中。我尝试了 2 种不同的可能解决方案，但都没有奏效。

1. 我试图将我的附录放在不同的文件中，但我遇到了在主文件中丢失引用的问题，因为所有附录都在论文正文中交叉引用。所有参考文献都转向?? 一旦我将它们放在不同的文件中。
2. 我将所有图形和表格放在不同的文件中，同时将它们保存在主文件中。然后，我曾经results = "hide"将它们隐藏在主文件中。这个想法是创建 2 个单独的 PDF 并合并它们。不幸的是，当数字被隐藏时，参考也变成了?? .

附加信息

• 我正在使用输出格式 bookdown:pdf_document2
• 我的数字是由一个.R文件创建的，并使用include_graphics().

我正在分析一些数据，并想在R上做一个Simpsons悖论。我已经安装了Simpsons包并加载了库。这是一个基于软件包文档的示例：

---
output: html_document
---
```{r}
library(Simpsons)
#generating data 
Coffee1=rnorm(100,100,15)
Neuroticism1=(Coffee1*.8)+rnorm(100,15,8)
g1=cbind(Coffee1, Neuroticism1)
Coffee2=rnorm(100,170,15)
Neuroticism2=(300-(Coffee2*.8)+rnorm(100,15,8))
g2=cbind(Coffee2, Neuroticism2)
Coffee3=rnorm(100,140,15)
Neuroticism3=(200-(Coffee3*.8)+rnorm(100,15,8))
g3=cbind(Coffee3, Neuroticism3)
data2=data.frame(rbind(g1,g2,g3))
colnames(data2) <- c("Coffee","Neuroticism")

example <- Simpsons(Coffee,Neuroticism,data=data2) 
plot(example)
```

这将返回一个包含3个簇的图（正是我所需要的）。但是，当我将Rmd文件编织为HTML时，会得到很多等号(======)，其旁边有一个百分比，例如一个加载网格，我想从最终输出中删除该网格。

我试图在降价文件中使用自定义引用样式，但每次编织时引用都使用默认（芝加哥）样式。我曾尝试将输出格式从 JS 显示演示文稿更改为 HTML 文档到 PDF 文档，但它仍然不起作用。我使用 knitcitations 包使用文档的 DOI 进行引用，并使用 bibliography() 函数编写参考书目。我也尝试使用 Zotero 上的 apa.csl 样式，但引用仍然以默认样式完成。apa.csl 文件与我尝试使用引文的文件存储在同一文件夹中，newbiblio.bib 文件也是如此，我在其中存储了我想引用的项目的书目信息。

下面是我的降价代码：

---
title: "htmlcitetest"
citation_package: natbib
csl: "apa.csl"
output:
  pdf_document:
    pandoc_args: ["--natbib"]
biblio-style: unsrt
bibliography: newbiblio.bib
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(bibtex)
library(knitcitations)
options("citation_format" = "pandoc")
library(RefManageR)
cleanbib()
```

## R Markdown

- This is a citation [^1]

[^1]: `r citet("10.1098/rspb.2013.1372")`


```{r, message=FALSE}
bibliography()
```

这个链接（http://rmarkdown.rstudio.com/authoring_bibliographies_and_citations.html）说我应该能够像这样格式化我的 YAML 标头：

---
title: "Sample Document"
output: html_document
bibliography: newbiblio.bib
csl: …

我正在使用 RMarkdown 编写报告，并使用 kable 和 kableExtra 来格式化和打印表格。这是我想要的表格看起来像（在 Word 中制作的）：

我正在努力对垂直居中进行排序（"Number of Incident Occurences"顶部和底部之间的空间，以便文本在行的中间对齐，在列的左侧。

请注意，我正在创建 PDF 报告而不是 html。

这是一个最小的例子：

df <- data.frame(a = letters[1:5], b = 1:5)
names(df) <- c("A very very very very very very very very very very very very very very very very very very long title",
               "A short title")

df %>% kable(format = 'latex', linesep = "", align = 'c', escape = F) %>% kable_styling(full_width = T)

这是输出的样子：

垂直对齐似乎正在推向顶部。我遇到了“m”，但这只是中间对齐列。我想知道我是否需要为所有行指定一些特殊的东西是 row_spec() align = "m"，但是当我这样做时，它会抱怨......有什么想法吗？

我在R中使用ggplot2包创建了一个堆积条形图.

ggplot(example_data, aes(x = ID, y = amount, fill = Taxa)) +
 geom_bar(stat="identity", position = "fill") +
 facet_grid(.~City+Car+Color , scales = "free_x", space = "free_x") +
 labs(y = "Relative Adbundance")+
 theme(axis.title.x = element_blank(),
       axis.ticks = element_blank(),
       axis.text.x = element_blank(),
       legend.position  = "none")

有没有办法简单地组合不同方面的部分？下图解释了我的意思.我想要一个灰色的酒吧,说目前米兰的所有5个方面都说"米兰".我不想五次重复"米兰"这个词.所有其他圆圈组也是如此.这可能在ggplot2中吗？如果没有,有没有人知道一个解决方案？

如何在 R Markdown（PDF 输出）中绘制横向表而不导致插入分页符？

还有就是功能landscape从kableExtra包，但是这会强制插入分页符。

例子：

R Markdown 中表格的正常行为是将浮动以最小化文本的分解。

---
output: pdf_document
---

Some Text

```{r, echo=F, warning=F}
library(kableExtra)
knitr::kable(mtcars, format = "latex", caption = "A table")
```

More Text

景观:

---
output: pdf_document
---

Some Text

```{r, echo=F, warning=F}
library(kableExtra)
knitr::kable(mtcars, format = "latex", booktabs = T, caption = "A table") %>%
  landscape()
```

More Text

可能重复:
如何将百分号添加到NSString

我正在尝试red (10.0 %)使用以下语句在Objective-C中打印:

    $ newlabel1.text= [[NSString alloc] initWithFormat:@"red (%.1f %)",rv];

但是,我red(10.0)只是得到了,而且%符号没有打印.如何打印百分比符号？

Bookdown 允许包含目录、图表列表、表格列表和序言。使用前三个并生成 PDF 时，标题可以正确反映“目录”、“图表列表”或“表格列表”。但是，对于未编号的前言，人们希望看到“前言”添加到标题中，但它不会出现，而是最后一个标题仍然存在，因此，即使前言跨越多个页面，也会有标题“目录”，例如。

如果我采用https://github.com/rstudio/bookdown-demo中找到的最小书籍示例并添加，# Preface {-}我index.Rmd还必须手动添加以下内容才能获得所需的行为：

# Preface {-}
\renewcommand{\chaptermark}[1]{\markboth{\uppercase{#1}}{\uppercase{#1}}}
\chaptermark{Preface}

Blah blah blah

\renewcommand{\chaptermark}[1]{\markboth{\uppercase{\thechapter. \ #1}}{}}

即，为了让“前言”出现在标题中，然后让其余标题交替章节和章节标题。

我怀疑这是一个小故障，但在向 bookdown 的作者报告这一点之前，他要求先在这里提出这个问题，所以任何见解都将受到欢迎。

我想为堆叠的条形图着色,以便每个条形图都有自己的父颜色,每个条形图中的颜色都是此父颜色的渐变.

例:

这是一个最小的例子.我希望每个条形的颜色不同color,每个条形内的渐变由"清晰度"设置.

library(ggplot2)

ggplot(diamonds, aes(color)) + 
  geom_bar(aes(fill = clarity), colour = "grey")

在我真正的问题中,我每组都有更多的组:需要18种不同的条形,有39种不同的渐变颜色.