在 R 中，如何通过 ggplot2 绘制不同比例但长度相等的散点图

Question

我的数据在下面。

X <- c(0.01, 0.02, 0.03, 0.04, 0.05, 0.1, 0.2, 0.3, 1, 2, 3) 
Y <- c(0.01, 0.02, 0.03, 0.04, 0.05, 0.1, 0.2, 0.3, 1, 2, 3)

我想通过 R 包 ggplot2 绘制 X 与 Y 的散点图。 X 轴应为 0.01, 0.02, 0.03, 0.04, ..., 0.09, 0.1, 0.2, 0.3, 0.4, ..., 0.9, 1, 2, 3, 4, 5。Y 轴也应为 0.01 , 0.02, 0.03, 0.04, ..., 0.09, 0.1, 0.2, 0.3, 0.4, ..., 0.9, 1, 2, 3, 4, 5. 我的问题是我怎样才能使任意两个之间的长度X轴（也是Y轴）上的相邻点相同吗？例如，0.01 到 0.02 之间的长度与 X 轴上 0.1 到 0.2 之间的长度相同。

Answer 1

d <- tibble(X= c(0.01, 0.02, 0.03, 0.04, 0.05, 0.1, 0.2, 0.3, 1, 2, 3) ,
            Y = c(0.01, 0.02, 0.03, 0.04, 0.05, 0.1, 0.2, 0.3, 1, 2, 3))

d %>% ggplot(aes(x=X, y=Y)) +
       geom_point() +
        scale_x_log10() +
        scale_y_log10()

这是你想要的吗？

Answer 2

这是一个更详尽的解决方案，您可以将数据分成小箱，按每个箱创建分面图，然后将分面重新粘贴在一起。

X <- c(0.01, 0.02, 0.03, 0.04, 0.05, 0.1, 0.2, 0.3, 1, 2, 3) 
Y <- c(0.01, 0.02, 0.03, 0.04, 0.05, 0.1, 0.2, 0.3, 1, 2, 3)

library( data.table )
library( ggplot2 )
plotdata <- data.table( x = X, y = Y )

#create bins to plot
limits <- data.table( from = c(0,0.01,0.1,1,10) )
limits[, to := shift( from, type="lead", fill = Inf ) ]
limits[, bin_name := paste(from, to, sep = "-") ]
#     from    to bin_name
# 1:  0.00  0.01   0-0.01
# 2:  0.01  0.10 0.01-0.1
# 3:  0.10  1.00    0.1-1
# 4:  1.00 10.00     1-10
# 5: 10.00   Inf   10-Inf

#bin plotdata for x and y values by joining
plotdata[ limits, bin_x := i.bin_name, on = .(x >= from, x < to ) ][]
plotdata[ limits, bin_y := i.bin_name, on = .(y >= from, y < to ) ][]

#get factorder right for ordering facets
plotdata[, bin_x.f := forcats::fct_rev( factor( bin_x ) ) ]

#almost what we want, but scales are not right
ggplot( data = plotdata ) +
  geom_point( aes(x = x, y = y ) ) +
  facet_grid( bin_x.f ~ bin_y )

#get facetscales-package from github
## devtools::install_github("zeehio/facetscales")  # <-- run once !
library(facetscales)

#build y scales
scales_y <- list(
  "0.01-0.1" = scale_y_continuous(expand = c(0,0), limits = c(0,0.1), breaks = seq(0,0.1,0.01), labels = c( seq(0,0.09,0.01), "" ) ),
  "0.1-1"    = scale_y_continuous(expand = c(0,0), limits = c(0.1,1), breaks = seq(0.1,1,0.1), labels = c( seq(0.1,0.9,0.1), "" ) ),
  "1-10"     = scale_y_continuous(expand = c(0,0), limits = c(1,10), breaks = seq(1,10,1), labels = c( seq(1,9,1), "" ) )
)
#build x scales
scales_x <- list(
  "0.01-0.1" = scale_x_continuous(expand = c(0,0), limits = c(0,0.1), breaks = seq(0,0.1,0.01), labels = c( seq(0,0.09,0.01), "" ) ),
  "0.1-1"    = scale_x_continuous(expand = c(0,0), limits = c(0.1,1), breaks = seq(0.1,1,0.1), labels = c( seq(0.1,0.9,0.1), "" ) ),
  "1-10"     = scale_x_continuous(expand = c(0,0), limits = c(1,10), breaks = seq(1,10,1), labels = c( seq(1,9,1), "" ) )
)

#now we get
ggplot( data = plotdata ) +
  geom_point( aes(x = x, y = y ) ) +
  facet_grid_sc( rows = vars(bin_x.f), cols = vars(bin_y), scales = list( x = scales_x, y = scales_y ) )+
  theme(
    #remove the facet descriptions completely
    strip.background = element_blank(),
    strip.text = element_blank(),
    #drop space bewteen panels
    panel.spacing = unit(0, "lines"),
    #rotate x_axis labels
    axis.text.x = element_text( angle = 90, hjust = 1, vjust = 0.5 ) 
  )

如您所见，这是可行的，但是在设置 x 和 y 轴时，由于 expand = c(0,0) 的原因，恰好位于 bin 的最小值/最大值的点会被截断。

Answer 3

对数变换可以是您正在查看的接近解决方案，但它不提供相同的距离：

df <- data.frame(X=X,Y=Y)
p = ggplot(df,aes(x=X,y=Y))+
  geom_line() + 
  geom_point(size=4) 

p+
  scale_x_continuous(trans = "log10") +
  scale_y_continuous(trans = "log10") 

请查看以下网站：来自 MASS 的 Animals 数据也是同样的问题： http://www.sthda.com/english/wiki/ggplot2-axis-scales-and-transformations