r - ggplot2 - 如何限制面板和轴？

Question

我想知道这个剧情怎么转:

进入这个情节:

如您所见，第二个图上的面板和轴仅限于数据范围。我使用设计软件制作了第二张图，但想知道代码。

我已经使用限制了 x 和 y 轴

xlim 和ylim 但没有区别。

请看下面我的代码，抱歉太乱了，第一次使用 r studio。谢谢!

ggplot() +
  geom_errorbar(data = U1483_Coiling_B_M_Removed_R, mapping = aes(x = `Age (Ma) Linear Age Model`, ymin = `Lower interval*100`, ymax = `Upper interval*100`), width = 0.025, colour = 'grey') +
  geom_line(data = U1483_Coiling_B_M_Removed_R, aes(x = `Age (Ma) Linear Age Model`, y = `Percent Dextral`)) +
  geom_point(data = U1483_Coiling_B_M_Removed_R, aes(x = `Age (Ma) Linear Age Model`, y = `Percent Dextral`), colour = 'red') +
  geom_point(data = U1483_Coiling_B_M_Removed_R, aes(x = `Age (Ma) Linear Age Model`, y = `Lab?`)) +
  theme(axis.text.x=element_text(angle=90, size=10, vjust=0.5)) +
  theme(axis.text.y=element_text(angle=90, size=10, vjust=0.5)) +
  theme_classic() +
  theme(panel.background = element_rect(colour = 'black', size = 1)) +
  xlim(0, 2.85) +
  ylim(0, 100)

Answer 1

您可以在指定轴比例时使用expand，如下所示:

# Load library
library(ggplot2)

# Set RNG
set.seed(0)

# Create dummy data
df <- data.frame(x = seq(0, 3, by = 0.1))
df$y <- 100 - abs(rnorm(nrow(df), 0, 10))

# Plot results
# Original
ggplot(df, aes(x, y)) + 
  geom_line() +
  geom_point(colour = "#FF3300", size = 5) 

# With expand
ggplot(df, aes(x, y)) + 
  geom_line() +
  geom_point(colour = "#FF3300", size = 5) +
  scale_y_continuous(expand = c(0, 0))