当前代码在不同位置输出堆叠的物种条形图。我希望记录y轴以提供更简洁的视图。并相应地调整y轴刻度标签，以便读取log10数字。
我已经尝试过 scale_y_log10 ，其中包括不同的中断和标签，但是成功有限
species<-read.table('species.txt',header=TRUE)
library(ggplot2)
ggplot(species, aes(x = site, y = number, fill = species)) +
geom_bar(stat = "identity")+
theme(legend.position="none")+
labs(y="Number of Individuals",x="Sites")