LT17's questions

我有一个虚拟数据集：

tmp <- structure(list(order = c("John", "John", "John", "Ross", "Ross", 
"Ross", "John", "John", "John", "Ross", "Ross", "Ross"), value = c(39, 
40, 13, 19, 13, 15, -12, -3, 0, -4, -1, 0), Category = c("VU", 
"EN", "CR", "VU", "EN", "CR", "VU", "EN", "CR", "VU", "EN", "CR"
), perc = c(NA, NA, NA, NA, NA, NA, NA, "14%", NA, NA, "9.6%", 
NA)), row.names = c(1L, 2L, 3L, 4L, 5L, 6L, 25L, 26L, 27L, 28L, 
29L, 30L), class = "data.frame")

我想在每个条形图的顶部显示图表左侧的百分比（负值）。这是我的代码：

ggplot(tmp, 
             aes(fill = Category, y = value, x = reorder(order, value))) + 
  
  # add light grey vertical lines in correspondance of x axis thicks
  geom_hline(yintercept = c(seq(-20, 0, 5), seq(0, 100, 20)), colour = "grey92") + 
  
  # add stacked bars with grey contouring
  geom_bar(position = "stack", stat = "identity", alpha = .8, color = "grey50") + 
  
  # add zero vertical line
  geom_hline(yintercept = 0, colour = "grey50", linewidth = 1.5, linetype = "dashed") +  
  
  # add % for negative values
  geom_text(aes(label = perc), 
            hjust = 2,
            size = 10) + 
  
  # add y axis breaks and limits
  scale_y_continuous(breaks = c(seq(-20, 0, 10), seq(0, 100, 20)), 
                     limits = c(-36, 100),
                     expand = c(0, 0)) + 
  
  # add discrete colour scale
  scale_fill_manual(values = c("#E55C30FF","#FBB91FFF","#FCFFA4FF")) +
  
  # flip horizontally
  coord_flip() 

以下是最终的剧情：

由于有些条形比其他条形长，如果我尝试一下hjust，我可以同时移动所有标签。有没有办法让所有标签显示在条形的顶部（在本例中，在侧面，因为它是水平条形图）？

我想使用 生成水平分组条形图ggplot2。数据按 分组Name，每个分组Name有 1Color和 2 School，应使用不同的透明度 ( Alpha) 进行可视化。我已将所需的所有数据放入数据框 ( test) 中。

library(tidyverse)

test <- structure(list(Name = c("Jean", "Jean", "Mike", "Mike", "Ruth", 
                                "Ruth", "Elia", "Elia", "Jess", "Jess"), 
                       School = c("A", "B", "A", "B", "A", "B", "A", "B", "A", "B"), 
                       Value = c(11L, 8L, 15L, 16L, 27L, 22L, 0L, 4L, 0L, 3L), 
                       Color = c("#E55C30FF", "#E55C30FF","#FBB91FFF", "#FBB91FFF", "#FCFFA4FF", "#FCFFA4FF", "#C7E8AC", "#C7E8AC", "#228B22", "#228B22"),
                       Alpha = c(0.9, 0.4, 0.9, 0.4,0.9, 0.4, 0.9, 0.4, 0.9, 0.4)), 
                  row.names = c(NA, -10L), class = "data.frame")

test

   Name School Value     Color Alpha
1  Jean      A    11 #E55C30FF   0.9
2  Jean      B     8 #E55C30FF   0.4
3  Mike      A    15 #FBB91FFF   0.9
4  Mike      B    16 #FBB91FFF   0.4
5  Ruth      A    27 #FCFFA4FF   0.9
6  Ruth      B    22 #FCFFA4FF   0.4
7  Elia      A     0   #C7E8AC   0.9
8  Elia      B     4   #C7E8AC   0.4
9  Jess      A     0   #228B22   0.9
10 Jess      B     3   #228B22   0.4

我正在努力为每个组映射正确的颜色。这是我到目前为止的代码，它实现了分组、水平绘图、透明度和灰色轮廓。但我无法将每种颜色映射到每个组。

ggplot(test, 
       aes(y = Name, x = Value, fill = School, alpha = Alpha)) +
  geom_bar(stat = "identity", position = "dodge", color = "grey50") +
  scale_alpha_identity() 

fill = df$Color我尝试在里面添加geom_bar()，我也尝试将其更改为一个因子（fill = as.factor(df$Color)），但是条形图堆积起来而不是保持分组。我仍然难以理解ggplot2语法，我想我在这里忽略了一些简单的东西......

编辑：我想更改的是条形的填充，其中每个条形Name应该有自己的填充（根据其Name本身，如 中指定的df$Color），然后使用不同的透明度来区分School。