在几何条ggplot中覆盖Geom_text的alpha值

如何解决在几何条ggplot中覆盖Geom_text的alpha值

这是我的代码；除了ggplot中的alpha向下滴流到geom文本标签之外，其他都可以正常工作。相反，我尝试通过再次指定alpha覆盖它-不起作用。有解决方法吗？

p <- 
  labdata_N %>%
  ggplot(aes(x = reorder(type,measure),weight = measure,fill = type,alpha = Tobacco.Constituent)) +
  scale_alpha_manual(values = c(0.4,0.6,0.8,1)) +
  geom_bar(position = "dodge",width = 0.75) +
  geom_text(aes(label=Tobacco.Constituent,y = measure),position=position_dodge(width=0.75),vjust=-0.25,size = 3) +
  scale_y_log10() +
  labs(x = "SLT type",y = "Nitrosamine level") +
scale_fill_manual(values=mycols,labels=c(type)) +
theme(legend.position = "bottom",legend.title = element_blank(),axis.text = element_text(size=12),axis.title = element_text(size=14),plot.title = element_text(size=14),legend.text = element_text(size=9),panel.background = element_rect()) +
annotation_logticks(side = "l") +
  guides(fill = FALSE)
print(p)

这是我的数据的一部分（请告知我是否要使用其他格式）；谢谢，加油！

1
NAB
HGT
60.56
2
NAB
HKH
375.01
3
NAB
HMH
3267.94
NAT
HGT
355.00
14
NAT
HKH
954.00
15
NAT
HMH
21062.00
NNK
HGT
229.62
26
NNK
HKH
249.87
27
NNK
HMH
10448.00
NNN
HGT
1303.00
38
NNN
HKH
3357.00
39
NNN
HMH
35603.00

解决方法

只需将alpha美学贴图移动到真正需要的几何体即可。喜欢

geom_bar(aes(alpha = Tobacco.Constituent))

“滴落”是故意的，让美学被继承只是在下一步中覆盖它没有多大意义。

,

使用position = position_dodge2代替position = position_dodge解决了最后一个问题。这是有效的代码-希望几年后有人可以使用它：

p <- 
  labdata_N %>%
Tobacco.Constituent)) +
  ggplot(aes(x = reorder(type,measure),weight = measure)) +
  geom_col(aes(alpha = Tobacco.Constituent,y = measure,fill = type),position = pos) +
  geom_text(aes(label=Tobacco.Constituent,y = measure),size = 3,position = position_dodge2(width = 0.75)) +
  scale_y_log10() +
  labs(x = "SLT type",y = "Nitrosamine level") +
scale_fill_manual(values=mycols,labels=c(type)) +
theme(legend.position = "bottom",legend.title = element_blank(),axis.text = element_text(size=10),axis.title = element_text(size=10),plot.title = element_text(size=10),legend.text = element_text(size=10),panel.background = element_rect()) +
annotation_logticks(side = "l") +
  guides(fill = FALSE)
print(p)

输出以pic形式发布； 谢谢@liborm;