如何在ggplot2中使用指定值缩放y轴

Question

我正在尝试缩放我的y轴，使其像这样工作：

因此，我尝试了以下操作：scale_y_continuous（breaks = c（0，0.9，0.99，0.999））

但是，结果是：

如何根据指定的数字缩放图形？ 更具体地说，我可以根据值数组缩放图形吗？ 例如c =（0，0.9，0.99，0.999）。

这是我到目前为止编写的代码：

library(ggplot2)
library(extrafont)
library(scales)

results = read.csv("results.csv")
breaks = c(0, 0.9, 0.99, 0.999)

ggplot(data=results, aes(x=t, y=Values, group=Algorithm, color = factor(Algorithm), shape = factor(Algorithm))) +
  geom_line(size = 1)+
  theme_bw() +
  theme(legend.position="top") + 
  labs(color="") +
  theme(axis.text=element_text(size=14),
        axis.title=element_text(size=16),
        legend.text=element_text(size=16)) +
  scale_y_log10(breaks=breaks, labels=breaks)

样本CSV数据：

t,Algorithm,Values
0,alg1,0.000000000000
0,alg2,0.000000000000
0,alg3,0.000000000000
0,alg4,0.000000000000
0,alg5,0.000000000000

100,alg1,0.950000000000
100,alg2,0.950000000000
100,alg3,0.950000000000
100,alg4,0.000000000147
100,alg5,0.000000000000

200,alg1,0.950000000005
200,alg2,0.950000000000
200,alg3,0.950000001250
200,alg4,0.004578701861
200,alg5,0.000000182645

250,alg1,0.950000259280
250,alg2,0.950000000000
250,alg3,0.950000400517
250,alg4,0.219429576450
250,alg5,0.000199361725

300,alg1,0.950314820965
300,alg2,0.950000000000
300,alg3,0.950037201876
300,alg4,0.824669958806
300,alg5,0.012390843342

400,alg1,0.992274938722
400,alg2,0.950000000000
400,alg3,0.959167637150
400,alg4,0.936487596777

400,alg5,0.603221722035
500,alg1,0.998314400000
500,alg2,0.998334835568
500,alg3,0.995747486022
500,alg4,0.978514678505
500,alg5,0.917973600000

600,alg1,0.998314400000
600,alg2,0.999100000000
600,alg3,0.999118983394
600,alg4,0.998040800000
600,alg5,0.917973600000

Answer 1

据我对数据的了解，您似乎想放大绘图以查看范围(0.9 - 0.99)是如何分布的。 在ggplot ，建议使用有助于突出显示数据中重要段的facets 。

您可以选择通过将数据分成感兴趣的多个段（在您的情况下为范围）来创建facets 。 如下所示会导致3个细分受众群超出您的范围。

   library(dplyr) 

   results = results %>% 
      mutate(grp = case_when(Values<0.9 ~ "0 - 0.9",
                             Values>=0.9 & Values<0.99 ~ "0.9 - 0.99",
                             Values>=0.99 ~ "0.99+"))

    results %>% 
      ggplot(aes(x = t, y = Values, group = Algorithm, color = Algorithm)) +
      geom_line(size = 1) + 
      facet_wrap(~grp, scales = "free") +
      theme(legend.position="top") + 
      labs(color="") +
      theme(axis.text=element_text(size=14),
            axis.title=element_text(size=16),
            legend.text=element_text(size=16))

或者，您可以选择在一张图表中显示整个数据，并使用所选的细分创建构面。 下面我仅显示一个可以放大的部分。

    plot_df = bind_rows(`All Data` = results, 
                        `Segment (0.9 - 0.99)` = results %>% filter(grp=="0.9 - 0.99"), 
                        .id = "Groups")

    plot_df %>% 
      ggplot(aes(x = t, y = Values, group = Algorithm, color = Algorithm)) +
      geom_line(size = 1) + 
      facet_wrap(~Groups, scales = "free") +
      theme(legend.position="top") + 
      labs(color="") +
      theme(axis.text=element_text(size=14),
            axis.title=element_text(size=16),
            legend.text=element_text(size=16))

在一个绘图中打破比例不是一个好主意，因为它可能导致用户错误的解释。

编辑：

使用以下用户定义的比例转换可以复制问题中的图形。

    library(scales)
    foo_trans = function() trans_new("foo", function(x) log(1/(1-x)), function(x) -1/exp(x) + 1)

    results %>% 
      ggplot(aes(x = t, y = Values, group = Algorithm, color = Algorithm)) +
      geom_line(size = 1) + 
      theme(legend.position="top") + 
      labs(color="") + ylab("Values (Tranformed Scale)") +
      theme(axis.text=element_text(size=14),
            axis.title=element_text(size=16),
            legend.text=element_text(size=16)) +
      scale_y_continuous(breaks = c(0,0.9,0.99,0.999), labels = c(0,0.9,0.99,0.999)) +
      coord_trans(y = "foo")

如您在玩具示例中所见，y轴是使用代码进行变换的，并且未应用任何数据变换。 通过计算可以做到，我，但我更喜欢第一种表示方法。 您可能需要在此处和此处参考其他答案以解决实际问题。

Answer 2

您正在寻找scale_y_log10

将scale_y_continuous(breaks=c(0, 0.9, 0.99, 0.999)) scale_y_log10(breaks=c(0, 0.9, 0.99, 0.999)) scale_y_continuous(breaks=c(0, 0.9, 0.99, 0.999))替换为scale_y_log10(breaks=c(0, 0.9, 0.99, 0.999))