小编Sin*_*yen的帖子

我想在ggplot中安排多行和多行图例。但是目前，从文档中，我只能在1个图例中确定方向或操作行/列。我忽略了什么吗？感谢您对解决方案的任何参考。这是示例代码，我做了什么以及预期的结果。

data <- seq(1000, 4000, by=1000)
colorScales <- c("#c43b3b", "#80c43b", "#3bc4c4", "#7f3bc4")
names(colorScales) <- data
ggplot() +
    geom_point(aes(x=data, y=data, color=as.character(data), fill=data, size=data),
               shape=21) +
    scale_color_manual(name="Legend 1",
                      values=colorScales) +
    scale_fill_gradientn(name="Legend 2",
                          labels=comma, limits=c(0, max(data)),
                          colours=rev(c("#000000", "#FFFFFF", "#BA0000")),
                         values=c(0, 0.5, 1)) +
    scale_size_continuous(name="Legend 3") +
    theme(legend.direction = "vertical", legend.box = "vertical")

输出垂直图例：

ggplot() +
    geom_point(aes(x=data, y=data, color=as.character(data), fill=data, size=data),
               shape=21) +
    scale_color_manual(name="Legend 1",
                       values=colorScales) +
    scale_fill_gradientn(name="Legend 2",
                         labels=comma, limits=c(0, max(data)),
                         colours=rev(c("#000000", "#FFFFFF", "#BA0000")), 
                         values=c(0, 0.5, 1)) +
    scale_size_continuous(name="Legend 3") +
    theme(legend.direction = …

我正在通过 Rmarkdown 将表格输出为 PDF，并且尝试在表格中添加超链接。当我使用 时，它可以使用 markdown 语法kable()，但是当我使用kableExtra超链接添加任何样式时，它就会消失。下面是一个例子：

这有效：

---
output: pdf_document
---

```{r}
library(tidyverse)
data.frame(x = "[click here](https://google.com)") %>%
  knitr::kable() 
```

并给我一个可点击的：

但是当我更改为：

---
output: pdf_document
---

```{r}
library(tidyverse)
data.frame(x = "[click here](https://google.com)") %>%
  knitr::kable() %>%
  kableExtra::kable_styling(font_size = 15)
```

我丢失了超链接格式：

有人知道从 RMarkdown 转换为 PDF 时如何在添加附加格式的同时保持超链接格式吗？谢谢你！！！

我想制作一个反向金字塔图形,其中条形图彼此堆叠,宽度不同.

1,我有一个堆积条形图,如下面的代码示例

library(dplyr)
library(ggplot2)
sample <- data_frame(x=c(1, 1, 1, 1, 2, 2, 2, 2),
                     y=c(5,10,15, 20, 10, 5, 20, 10),
                     w=c(1, 2, 3, 4, 1, 2, 3, 4),
                     group=c("a", "b", "c", "d", "a", "b", "c", "d"))

ggplot() +
    geom_bar(data=sample,
             aes(x=x,y=y,group=group, fill=group),
             stat="identity", position=position_stack())

然后我添加了宽度,aes因此w值较小的那个将会更小,而它们仍然相互堆叠.然而,酒吧并没有叠加警告.

ggplot() +
geom_bar(data=sample,
         aes(x=x,y=y,group=group, fill=group, width=w/5),
         stat="identity", position=position_stack())

Warning: Ignoring unknown aesthetics: width
Warning message:
position_stack requires non-overlapping x intervals 

任何有助于制作条形图的帮助或者可以涵盖类似概念的不同情节类型的想法将受到高度赞赏.谢谢!

我有2个数据框：

df1

           SeqTech      NMDS1       NMDS2        NMDS3         C1           C2          C3
AM.AD.1     Sanger -1.2408789  0.39893503 -0.036690753 -1.0330785 -0.009904179 -0.06261568
AM.AD.2     Sanger -0.9050894  0.55943858 -0.121985899 -1.0330785 -0.009904179 -0.06261568
AM.F10.T1   Sanger -0.9059108  0.09466239 -0.033827792 -1.0330785 -0.009904179 -0.06261568
AM.F10.T2   Sanger -0.8511172  0.21396548 -0.061612450 -1.0330785 -0.009904179 -0.06261568
DA.AD.1     Sanger -1.1390353  0.05166118  0.306245704 -1.0330785 -0.009904179 -0.06261568
DA.AD.1T    Sanger -1.2072895  0.06963215  0.241758582 -1.0330785 -0.009904179 -0.06261568
DA.AD.2     Sanger -1.1279367 -0.18692443 -0.092967153 -1.0330785 -0.009904179 -0.06261568
DA.AD.3     Sanger -1.3517083 -0.03651835  0.008165075 -1.0330785 -0.009904179 -0.06261568
DA.AD.3T    Sanger -1.2616186 -0.06099534 -0.016942073 -1.0330785 -0.009904179 …