小编Mic*_*lor的帖子

如何将Y轴标题("Species")与轴标签(三个物种名称)右对齐,以使轴标题靠近灰色面板？hjust似乎没有影响到这个位置.

library(ggplot2)

ggplot(iris,
       aes(x = Species,
           y = Sepal.Width)) +
  geom_boxplot() +
  labs(x = "Species",
      y = "Sepal Width") +
  coord_flip() +
  theme(axis.title.y = element_text(angle = 0, hjust = 0))

问题

如何进出paste以支持换行符 (\n) parse？annotateggplot2

问题和MWE

我正在尝试使用包中的ggplot2NMDS 分析的应力图进行重现，这是我的 MWE，后面是结果图。metaMDSvegan.

library(ggplot2)
library(tibble)
library(vegan)

set.seed(42) # for reproducibility

data(dune)
fit <- metaMDS(dune)
tib <- tibble(fit$diss, fit$dist, fit$dhat)
colnames(tib) <- c("diss", "dist", "dhat")
stress <- fit$stress
coord_x <- min(tib$diss)
coord_y <- max(tib$dist)
nonmetric_r2 <- round(1 - stress * stress, digits = 3)
linear_r2 <- round(summary(lm(fit$dist~fit$dhat))$adj.r.squared, 3)

## How do I get the newline character to be honored?
nonmetric_label = paste0("Non-metric~fit~italic(R)^2 ==", nonmetric_r2, "~\n Linear~fit~italic(R)^2 ==", …

我有一个 R Markdown 表格，\rule{1cm}{0.4pt}其中一列的每个单元格中都包含此 LaTeX 命令。kable如果我不包含该包，表格格式就很好kableExtra。如果我确实包含kabelExtra,LaTeX 命令，则不再解释。不使用和使用 kableExtra 的结果如下所示。没有进行其他更改。上面的例子是我想要的结果。

我检查了 .tex 输出。kableExtra似乎将 LaTeX 命令格式化为文字文本：\textbackslash{}rule\{1cm\}\{0.4pt\}而不是上面显示的命令。

我想使用 kableExtra 来实现其他功能，例如设置列宽，但我需要它来解释 LaTeX 命令。我在手册或小插图中没有找到任何似乎涉及 LateX 命令的内容。我错过了什么吗？

编辑

我尝试在使用时添加format = "latex"到呼叫中，但仍然出现不期望的结果。kablekableExtra

微量元素

---
title: "Without kableExtra"
output: 
  pdf_document: 
    keep_tex: TRUE
---

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

```{r}
library(tibble)
library(knitr)
#library(kableExtra)

a = seq(1:3)
b = seq(4:6)
tab <- as.tibble(cbind(a,b))
tab <- add_column(tab, c = "\\rule{1cm}{0.4pt}")
```

```{r}
kable(tab, …