1

我正在尝试创建一个带有记录 y 轴的堆叠条形图。我不想转换我的整个数据集，只转换 y 轴，以便我可以展开一些较小的条形。我正在尝试使用 coord_trans。每当我尝试对数转换时，我都会收到一条错误消息，显示每个单独的条形图，上面写着“转换在 y 轴上引入了无限值”。如果我使用相同的代码进行 sqrt 转换，一切正常。所以它必须与对数转换有关。你以前遇到过这个问题吗？我在下面包含了我正在使用的情节的代码。

library(ggplot2)    
dput(Bef_bio)
structure(list(Treat = structure(c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 
2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Label = c("Con", 
"N", "P"), class = "factor"), Functional_Group = structure(c(5L, 
5L, 5L, 4L, 4L, 4L, 1L, 1L, 1L, 7L, 7L, 7L, 6L, 6L, 6L, 3L, 3L, 
3L, 2L, 2L, 2L), .Label = c("One", "Two", "Three", "Four", "Five", 
"Six", "Seven"), class = "factor"), BV_mm3L = c(0.284504136, 
0.414444186666667, 3.75290346275, 0, 0, 0, 0.118510033666667, 
0.0218816683333333, 17.942747818875, 0, 0, 0, 0.668984741333333, 
0.436479357333333, 1.310577009625, 3.16931740733333, 1.5116585285, 
2.07553807775, 0.188271552, 0.165778386333333, 10.2304435985)), row.names = 
c(NA, 
-21L), class = "data.frame")

plot<-ggplot()+geom_bar(aes(y=BV_mm3L, x=Treat, fill=Functional_Group), colour="black", data=Bef_bio, stat="identity"))
plot
plot<-plot+coord_trans(y="log10")
plot

抱歉，我不知道如何在这里制作可重现的数据集。这对我来说都是全新的，感谢您的耐心。任何建议或替代路线都将不胜感激！

4

0 回答 0