R绘图以与geom_text创建的注释交互

编程问答 2022-06-03

问题描述

我在下面的图上创建了图。我想单击每个类别，以使堆叠的条形图显示或消失。我也使用geom_text在每个条形图中添加注释。在当前设置下，它几乎可以完成我打算做的所有事情，但是，即使图形消失了，使用geom_text创建的注释也仍然保留在那里。 问）是否有任何方法可以使条形图消失？我的代码在下面

projection2
projection2 <- ddply(projection2,.(Year),transform,pos = cumsum(Percentage) - (0.5 * Percentage))

p <- ggplot(data = projection2,aes(x = Year,y = Percentage)) +
  geom_col(aes(fill = Country),width = 0.7)+
  geom_text(data=projection2,y = pos,label = paste0(Percentage,"%")),size=4)+
  labs(x="Year",y="Grwoth Percentage",title="GDP Growth Projection for US and China")

ggplotly(p)

添加图像以进一步阐明我的意思是geom_text注释保持不变。

enter image description here

enter image description here

 使用的数据帧（projection2）

   Country Year Percentage   pos
1      U.S 2020       1.87 0.935
2    China 2020       6.12 4.930
3      U.S 2021       1.77 0.885
4    China 2021       6.00 4.770
5      U.S 2022       1.64 0.820
6    China 2022       5.80 4.540
7      U.S 2023       1.62 0.810
8    China 2023       5.60 4.420
9      U.S 2024       1.57 0.785
10   China 2024       5.50 4.320

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

geom-textggplot2ggplotlyplotlyrr