用ggplot 2绘制对数刻度的负值

Question

我需要使用x对数刻度在R图中用ggplot2包绘制一些负值。

例如，我想使用x对数刻度

绘制这些点

x <- c(-1,-10,-100)
y <- c(1,2,3)

我知道R中负值的对数代表NA值，但我需要这样的结果：click to view the picture

是否可以使用ggplot2？

Answer 1

要解决两个问题 - 从负值计算日志，然后结合对数刻度和反向刻度。

要结合日志和反向比例，您可以使用this SO question上的@Briand Diggs提供的解决方案。

library(scales)
reverselog_trans <- function(base = exp(1)) {
    trans <- function(x) -log(x, base)
    inv <- function(x) base^(-x)
    trans_new(paste0("reverselog-", format(base)), trans, inv, 
              log_breaks(base = base), 
              domain = c(1e-100, Inf))
}

要使其与负值一起使用，请在x调用中将-x值设为ggplot()，然后在labels=内使用scale_x_continuous()的其他转换来获取回到负值。

df<-data.frame(x=c(-1,-10,-100),y= c(1,2,3))
ggplot(df,aes(-x,y))+geom_point()+
  scale_x_continuous(trans=reverselog_trans(base=10),
                     labels=trans_format("identity", function(x) -x))

Answer 2

为此，我从pseudolog10_trans package找到了ggallin转换 很有帮助，因为它可以在对数刻度上同时包含正数和负数的情况。例如

library(ggplot2)
library(ggallin)

x <- c(-1,-10,-100, 1, 10, 100)
y <- c(1,2,3, 1,2,3)

df = data.frame(x = x, y = y)

My_Plot = ggplot(
    df, 
    aes(x=x, y=y)) + 
    geom_point() + 
    scale_x_continuous(trans = pseudolog10_trans)

My_Plot