小编Chr*_*ion的帖子

问题

我想将情节的图例放在情节上方。我还想在图例键标签（图例文本）上方放置图例键符号（彩色正方形）。不幸的是，当我这样做时，图例键符号会“拉伸”以适合标签的大小。我认为ggplot2可以正常工作，但是如何手动覆盖此功能？

如何在顶部使用可变长度的标签使图例键符号保持一致？

可重现的例子

（这不一定是一个最小的示例，以防万一我的实际代码的结构（如coord_flip和fill调用有影响））

library(dplyr)
library(ggplot2)

dataFrame <- diamonds %>%
              group_by(color, cut) %>%
              summarise(count = n()) %>%
              group_by(color) %>%
              mutate(percent = count/sum(count),
                    pretty_label = paste0(round(percent*100, 1), "%")) %>%
              ungroup()

p <- ggplot(data = dataFrame, mapping = aes(x=color, y = percent, group = cut))+
      geom_bar(aes(fill = cut), stat = "identity", position = "fill")+
      geom_text(aes(label = pretty_label), position=position_fill(vjust=0.5), colour="white", stat = "identity")+
      coord_flip()+
      theme(legend.position="top")+
      guides(fill = guide_legend(label.position = "bottom", reverse = TRUE))

plot(p)

请注意，每个图例符号的大小如何不同，具体取决于标签的长度。

我已经尝试过的 …

问题

在 RStudio 中使用 rmarkdown 时，我的stargazer(glm())输出位于我想要的文本下方。它被放置在与实际不同的位置r chunk。

PDF 已完美创建，只是输出的位置stargazer有问题。

背景

我正在尝试创建一个包含大量文本和几个stargazer glm()段落之间的输出的 PDF。当我将多个stargazer()输出放入 rmarkdown 文件中，然后“编织”为 PDF 时，stargazer()输出会向下移动到文本下方。

我希望将stargazer output放置在我放置的位置r chunks。

ggplot2()以类似的方式使用插入输出时，我没有遇到同样的问题。

失败的尝试

我已经尝试了尽可能多的组合来定位我的r chunks论点。（万一）

我尝试过制表符与空格、段落/标题/r-chunks/等之前和之后的每种组合。（这是我曾经在 ggplot2 输出中遇到的问题）

我参考了以下 StackOverflow 问题：

• 使用fig.pos =“H”和fig.pos =“h”
• 这个非常相似的问题
• 谢益辉的例子
• Stargazer 和 RStudio
• 我尝试在块的末尾（以及块之间）使用“\”，如上面的一篇文章中提到的。

可重复的例子

我的工作问题的可重现示例：

---
title: "Untitled"
author: "Me"
output: pdf_document
---

```{r setup, echo = FALSE}
library(stargazer)

mtcars_glm <- glm(formula = vs ~ …