自定义轴间隔

Question

我有连续的x和y值的数据.在特定的x间隔内,我想使得刻度增量更小,例如从50到60,中断之间的距离应该是1(50,51,52,53 ...... 59,60).对于轴的其余部分,将刻度值增加10是可以的.我想要的x轴将在以下位置处中断:

10,20,30,40,50,51,52,53,54,55,56,57,58,58,60,70,80,90,..190,200

我尝试过的:

x <- seq(1:200)
y <- seq(51, 250, by = 1)
df <- data.frame(x = x, y = y)

ggplot(data = df, aes(x, y)) +
  geom_line(size=1.6)+ 
  scale_x_continuous(breaks = c(10, 20, 30, 40, seq(50, 60, by = 2), seq(70, 200, 10)),
                     minor_breaks = seq(50, 60, by = 2)) +
theme(axis.text.x = element_text(size = 16),
      axis.text.y = element_text(size = 16),
      axis.title.x = element_text(size = 16),
      axis.title.y = element_text(size = 16),
      axis.ticks.x = element_line(size = 1),
      axis.ticks.length = unit(0.8, "cm")) + 
xlab("Time") + ylab("value")+

如您所见,标签重叠.我怎样才能更清楚地实现这一目标？

Answer 1

挤压标签比每10个标签看起来非常紧.因此,您可以尝试通过标记这四个位置来标记52到58的标签. ""

ggplot(data = df, aes(x = x, y = y)) +
  geom_line() + 
  scale_x_continuous(breaks = c(seq(from = 10, to = 200, by = 10),
                                seq(from = 52, to = 58, by = 2)),
                     labels = c(seq(from = 10, to = 200, by = 10), rep("", 4)))

或者,您可以使用放大相关的x范围coord_cartesian.基础数据没有变化,我们只是放大原始数据的一小部分.然后可以将放大的绘图作为子图添加到原始绘图中.有许多方法可以安排子图.这是一个例子:

# The original plot on full range of x
g1 <- ggplot(data = df, aes(x = x, y = y)) +
  geom_line() 

# zoom in to the relevant section of x 
g2 <- ggplot(data = df, aes(x = x, y = y)) +
  geom_line() +
  coord_cartesian(xlim = c(49, 61)) +
  scale_x_continuous(breaks = seq(from = 50, to = 60, by = 2))

# print g1, and then add g2 on top using viewport from package grid
g1
print(g2, vp = viewport(x = 0.75, y = 0.3, width = 0.35, height = 0.35))