R - 调整 x 轴的 y 值

Question

我有一些数据想要以图形方式显示。它看起来像这样：

data<- c(0.119197746, 0.054207788, 0.895580411, 0.64861727, 0.143249592, 
0.284314897, 0.070027632, 0.297172433, 0.183569184, 0.713896071, 
1.942425326, 1)

使用此命令：

barplot(data, main="Ratio of Lipidated and Unlipidated LC3 I & II forms\nNormalized
to GAPDH", names.arg = c("PT250", "PT219", "PT165", "PT218", "PT244", "PT253", "PT279", "PT281",    
"PT240", "PT262", "PT264", "CCD"), ylab = "Fold LC3 II/LC3I/GAPDH")

我制作了这个图表：

我想将 X 轴定位在 1 处，以便所有小于 1 的值都将显示为下栏。我可以通过简单地从所有值中减去 1 并再次绘制来实现所需的效果，但这会导致 y 轴上的数字不准确。有没有办法让 R 将小于 1 的值绘制为下降条？

Answer 1

带有自定义轴的解决方案。

barplot(data - 1, main = "Ratio of Lipidated and Unlipidated LC3 I & II forms\nNormalized to GAPDH",
        names.arg = c("PT250", "PT219", "PT165", "PT218", "PT244", "PT253", "PT279", "PT281", "PT240", "PT262", "PT264", "CCD"),
        ylab = "Fold LC3 II/LC3I/GAPDH",
        axes = F,
        ylim = c(-1, 1))

my_labs <- seq(-1, 1, by = 0.5)
axis(side = 2, at = my_labs, labels = my_labs + 1)