小编Mat*_*t D的帖子

问题:我想使用dplyr/tibble添加add_row.我想在我的示例中按A分组数据,然后是包含组名A的add_row,然后是B的值.

我面临的问题是尝试在A下的列中添加Group_by变量A.无论我尝试什么,它总是返回错误或NA作为该列中的值.

1. 可重复的例子:

   example <- data.frame(A = sample(letters[1:3],10,replace = TRUE), 
                 B = sample(letters[24:26],10,replace = TRUE),
                 C = sample(1:3,10,replace = TRUE))
   

   Run Code Online (Sandbox Code Playgroud)

2. 示例数据的输出:

         A B C
      1  c y 2
      2  b x 3
      3  c y 1
      4  b y 1
      5  c z 1
      6  a x 1
      7  b x 1
      8  c z 2
      9  a y 3
      10 c y 1
   

   Run Code Online (Sandbox Code Playgroud)

3. 代码我想运行.

   answer <- example %>%
     mutate(A = as.character(A),
            B = as.character(B)) %>%
     group_by(A) %>%
     do(add_row(., 
                B …

   Run Code Online (Sandbox Code Playgroud)

这是我的可重现代码：

这是我想要的实际身材的一个例子。

library(tidyverse)
p <- mtcars %>%
  mutate(cyl = factor(cyl)) %>%
  ggplot(aes(carb)) + 
  geom_bar(aes(fill = cyl)) +
  scale_fill_manual(values = c("Red","Green","Blue"))

结果图：

问题：

我要改变的是传说中的。直方图上描述条形颜色的框太大，我想缩小尺寸。

尝试过的解决方案：

我已经尝试过另一个stackoverflow 问题中的代码，但它不起作用：

p <- p + guides(fill = guide_legend(override.aes = list(width = .5)))

在参考 stackoverflow 问题中，另一位用户建议创建一个虚拟 geom_point 变量，然后使用该图例作为图例并删除填充图例。如果可能的话，我宁愿不必这样做。

感谢您的帮助。