Plot 在ggplot的對數軸上為負

Question

我遵循了這個示例，它對我的數據非常有用（ https://r-graphics.org/recipe-axes-axis-log ）。 除了我還嘗試添加標准偏差，對於其中一個變量，標准偏差大於平均值。 該圖只繪制了頂部誤差條，而不是底部。 如何為示例 5 添加錯誤欄？

 Sample <- c(1, 2, 3, 4, 5)
 Fe <- c(418, 592, 228, 351, 23880)
 sd <- c(269, 538, 187, 236, 36577)

 df <- data.frame(Sample, Fe, sd)
 df

 (plot <- ggplot(df, aes(x = Sample, y = Fe, ymin = Fe - sd, ymax = Fe + sd)) + theme_bw() +
  geom_point(size=3, stat = "identity") + 
 geom_errorbar(aes(width = 0.1), stat = "identity") +
 scale_y_continuous(trans = log10_trans(),
                   breaks = trans_breaks("log10", function(x) 10^x),
                   labels = trans_format("log10", math_format(10^.x))) +
  annotation_logticks(sides = "l"))

Answer 1

你可以pmax(0, .)它：

library(ggplot2)
library(scales)

ggplot(df, aes(x = Sample, y = Fe, ymin = pmax(0, Fe - sd), ymax = Fe + sd)) +
  theme_bw() +
  geom_point(size=3, stat = "identity") + 
  geom_errorbar(aes(width = 0.1), stat = "identity") +
  scale_y_continuous(trans = log10_trans(),
                     breaks = trans_breaks("log10", function(x) 10^x),
                     labels = trans_format("log10", math_format(10^.x))) +
  annotation_logticks(sides = "l")

或者您可以使用較小的數字並查看該錯誤欄的下端，盡管這可能表明當前值不是...

ggplot(df, aes(x = Sample, y = Fe, ymin = pmax(1, Fe - sd), ymax = Fe + sd)) +
  theme_bw() +
  geom_point(size=3, stat = "identity") + 
  geom_errorbar(aes(width = 0.1), stat = "identity") +
  scale_y_continuous(trans = log10_trans(),
                     breaks = trans_breaks("log10", function(x) 10^x),
                     labels = trans_format("log10", math_format(10^.x))) +
  annotation_logticks(sides = "l")

當 y 軸試圖調整時，使用更小的值將繼續壓縮其他誤差。