Вам нужно использовать функцию coord_cartesian
, чтобы ограничить свои графики, но при этом держать линии нарисованными ...
df2 <- expand.grid(
lineend = c('round', 'butt', 'square'),
linejoin = c('round', 'mitre', 'bevel'),
stringsAsFactors = FALSE
)
df2 <- data.frame(df2, y = 1:9)
ggplot(df2, aes(x = 1, y = y, xend = 2, yend = y, label = paste(lineend, linejoin))) +
geom_segment(
lineend = df2$lineend, linejoin = df2$linejoin,
size = 3, arrow = arrow(length = unit(0.3, "inches"))
) +
geom_text(hjust = 'outside', nudge_x = -0.2) +
# scale_x_continuous(limits=c(0.5,1.5)) +
coord_cartesian(xlim=c(0.5,1.5))
Поэтому удалите #
из scale_x_continuous
, чтобы увидеть разницу.