小编Rod*_*hew的帖子

我想在文本框标签（例如下图中的 Journal H 文本框）和相应的数据点之间绘制连接线，但除了完成它之外，无法找出在 R 上执行此操作的方法在 PowerPoint/Illustrator 上。我的图像看起来像这样

我的输入数据如下所示：

Journal Year Impact_Factor
1  Journal A 2010          1.91
2  Journal B 2010          9.18
3  Journal C 2012          1.65
4  Journal D 2012          2.40
5  Journal E 2012          3.68
6  Journal B 2013          9.18
7  Journal F 2013          0.79
8  Journal G 2014          1.99
9  Journal H 2016         15.54
10 Journal I 2017          3.82
11 Journal H 2017         15.54
12 Journal B 2019          9.18
13 Journal J 2019          6.78
14 Journal K …

我的输入 csv 文件（“genus_counts.csv”）的前几行如下所示

Sample,Woeseia,Candidatus_Nitrosopumilus,Nitrospira,Nitrospina,Pseudahrensia,AqS1,Salinicola,Pir4_lineage,Subgroup_10,BD1-7_clade,Sva0996_marine_group,Anoxybacillus,Others,Unclassified
BW1,1.73959,0.474433,0,1.15973,0,0,3.32103,0,0,0,0,8.69794,27.464423,57.1429
BW2,0.424628,0.679406,0,0,0,0,9.95754,0,0.191083,0,1.18896,0,35.7749522,51.7834

我打算基于此制作一个堆积条形图。我尝试了下面的 R 代码，但图例上的名称仍然带有下划线。我引入了该行pcm %>% rename_all(~gsub("_", " ", .))，以便用空格替换所有下划线，但图例上没有任何更改（下划线保留在绘图上！）。任何帮助将不胜感激。

library(ggplot2)
library(reshape2)
pc = read.csv("genus_counts.csv", header = TRUE)
pcm = melt(pc, id = c("Sample"))
pcm$Sample <- factor(pcm$Sample,levels=unique(pcm$Sample))
pcm %>% rename_all(~gsub("_", " ", .))
mx = ggplot(pcm, aes(x = Sample, fill = variable, y = value)) + 
    geom_bar(stat = "identity", colour = "black") + 
    theme(axis.text.x = element_text(angle = 90, size = 14, colour = "black", vjust = 0.5, hjust = 1, face= "bold"), 
    axis.title.y = …