问题

我试图制作一个缩放后的图表，使用geom_point()和geom_smooth()图表的 x 轴。我可以很容易地获得我想要的图表，只需输入：

facet_zoom(xlim = c(0.05, 0.2))

但我也想有可能定义缩放图表的 ylim，保持相同的配置。问题是，如果我也添加 ylim()，我会在 y 轴上得到缩放后的图表，而不再是在 x 轴上。我阅读了一些在线教程和指南，但我无法在 y 轴图表上获得简单的 ylim 定义。

是否有任何选项可以实现这一点？我向您报告代码和我获得的图表，以及我进行的两次不成功的尝试。

以下是运行的代码：

# 数据集创建和名称分配
Dati <- data.frame(V1 = c(0.2, 0.3, 0.4, 0.5, 0.1, 0.05, 0.1, 0),
                   V2 = c(11.25, 7.15, 5.5, 2.5, 30.75, 55.5, 34.5, 97))
colnames(Dati) <- c("cat", "vix")

# 包加载
library(ggplot2)
attach(Dati)

library(ggforce)
library(tidyverse)

# 创建图表
Graph1 <- ggplot(data=Dati, aes(x=cat, y=vix)) + geom_point(aes(color = "red"), shape = 1, size = 3.0, stroke = 1.5) + 
scale_color_manual(values=c('#f92410', '#644196')) + geom_smooth(aes(level=0.95, span = 0.8))  + 
theme(legend.position = "null") + 
geom_vline(xintercept = 0.2,  linetype="dashed", color = "red") +
facet_zoom(xlim = c(0.05, 0.2))

#facet_zoom(ylim = c(0, 80), xlim = c(0.05, 0.2), split = TRUE) #它会创建一个分割成4个图表的图
#facet_zoom(ylim = c(0, 80), xlim = c(0.05, 0.2)) #它会将缩放转移到y轴

Graph1

输出的图表:

我想要通过定义 y 轴限制来获得的图表:

#DATASET CREATION AND NAMES ASSIGNATION
Dati <- data.frame(V1 = c(0.2, 0.3, 0.4, 0.5, 0.1, 0.05, 0.1, 0),
                   V2 = c(11.25, 7.15, 5.5, 2.5, 30.75, 55.5, 34.5, 97))
colnames(Dati) <- c("cat", "vix")


#PACKAGES LOADING
library(ggplot2)
attach(Dati)

library(ggforce)
library(tidyverse)


#GRAPH CREATION
Graph1 <- ggplot(data=Dati, aes(x=`cat`, y=`vix`)) + geom_point(aes(color = "red"), shape = 1, size = 3.0, stroke = 1.5) + 
scale_color_manual(values=c('#f92410', '#644196')) + geom_smooth(aes(level=0.95, span = 0.8))  + 
theme(legend.position = "null") + 
geom_vline(xintercept = 0.2,  linetype="dashed", color = "red") +
facet_zoom(xlim = c(0.05, 0.2))

#facet_zoom(ylim = c(0, 80), xlim = c(0.05, 0.2), split = TRUE) #it creates a split with 4 graphs
#facet_zoom(ylim = c(0, 80), xlim = c(0.05, 0.2)) #it transfers on the y-axis the zoom

Graph1

答案1

得分: 1

你可以通过设置ylim，同时将horizontal = FALSE来将缩放区域放在图形下方，并最后（如果需要的话）添加theme(zoom.y = element_rect(fill = NA))来消除y轴上的缩放填充效果：

library(ggplot2)
library(ggforce)

ggplot(data = Dati, aes(x = `cat`, y = `vix`)) +
  geom_point(aes(color = "red"), shape = 1, size = 3.0, stroke = 1.5) +
  scale_color_manual(values = c("#f92410", "#644196")) +
  geom_smooth(level = 0.95, span = 0.8) +
  theme(legend.position = "null") +
  geom_vline(xintercept = 0.2, linetype = "dashed", color = "red") +
  facet_zoom(xlim = c(0.05, 0.2), ylim = c(0, 80), horizontal = FALSE) +
  theme(zoom.y = element_rect(fill = NA))

[![enter image description here][1]][1]

<details>
<summary>英文:</summary>

You could achieve your desires result by setting the `ylim` but also `horizontal = FALSE` to put the zoom area below the plot and finally (if desired) by adding `theme(zoom.y = element_rect(fill = NA))` to get rid of the fill indicating the zoom on the y axis:

library(ggplot2)
library(ggforce)

ggplot(data = Dati, aes(x = cat, y = vix)) +
geom_point(aes(color = "red"), shape = 1, size = 3.0, stroke = 1.5) +
scale_color_manual(values = c("#f92410", "#644196")) +
geom_smooth(level = 0.95, span = 0.8) +
theme(legend.position = "null") +
geom_vline(xintercept = 0.2, linetype = "dashed", color = "red") +
facet_zoom(xlim = c(0.05, 0.2), ylim = c(0, 80), horizontal = FALSE) +
theme(zoom.y = element_rect(fill = NA))

[![enter image description here][1]][1]


  [1]: https://i.stack.imgur.com/scl3u.png

</details>