ggplot中的間隙Y軸

Question

我有下面的ggplot圖，其中大多數Y值在0-200之間，一個值約為3000：

我想對大多數值進行“縮放”，但仍然顯示出較高的價值，我編寫了以下代碼：

Figure_2 <- ggplot(data = count_df, aes(x=count_df$`ng`, 
 y=count_df$`Number`)) + 
  geom_point(col = "darkmagenta") + ggtitle("start VS Number") + 
  xlab(expression(paste("start " , mu, "l"))) + ylab("Number") + 
   theme(plot.title = element_text(hjust = 0.5, color="orange", size=14, 
   face="bold.italic"),
    axis.title.x = element_text(color="#993333", size=10, face = "bold"),
    axis.title.y = element_text(color="#993333", size=10,face = "bold"))

有人知道如何實現嗎？

Answer 1

可以通過facet_grid找到可能的解決方案。 我沒有來自OP的確切數據，但是方法應該是考慮將y-axis范圍進行分組。 OP提到Number值大約為0 - 200和~3000兩個范圍。

因此，我們可以選擇將Number除以2000，以將其轉換為代表2組的因子。 這意味着factor(ceiling(Number/2000))將創建兩個因子。

讓我們采用與OP類似的數據並嘗試我們的方法：

# Data
count_df <- data.frame(ng = 1:30, Number = sample(200:220, 30, TRUE))
# Change one value high as 3000
count_df$Number[20] <- 3000

library(ggplot2)

ggplot(data = count_df, aes(x=ng, y=Number)) + 
            geom_point() + 
            facet_grid(factor(ceiling(Number/2000))~., scales = "free_y") +
            ggtitle("start VS Number") + 
            xlab(expression(paste("start " , mu, "l")))