在R图中分割X轴标签

Question

我最近一直在与R进行广泛的合作，并且有一个挑剔的绘图问题。

我已附上我当前情节的图像作为参考。 如您所见，我添加了垂直线以分割数据输入的一部分。 我有200个“代理”，每个代理都来自不同的类别子集，这使得它们都有些不同。 因此，我的目标是将底轴保留为“ agents”向量的索引，但我想在底部的每个细分中添加一个标签，以使其更清楚地说明为什么要进行细分他们与垂直线。

有什么建议么？

http://i.imgur.com/YGNdBhg.png?1?1971

Answer 1

您只需要这样调用axis ：

x = sin(1:100) + rnorm(100, 0,.125)
breaks = c(10,33,85, 96)

plot(x)
sapply(breaks, function(x){abline(v=x, lty=2)})
axis(1, breaks, as.character(breaks))

如果您根本不想绘制默认刻度（即仅“ breaks”矢量中的刻度），则只需稍作修改即可：

plot(x, axes=F)
sapply(breaks, function(x){abline(v=x, lty=2)})
axis(1, breaks, as.character(breaks))
axis(2)
box()

Answer 2

您没有提供任何示例数据或代码，因此我发送的代码未经测试。 我打电话垂直线的矢量vertlines和标签的载体labels 。 我使用顶点和代理值的范围来定义每个类别的中点。 然后，使用mtext()函数将它们添加到绘图中。 试试看。

vertlines <- c(40, 80, 120, 140, 160, 180)
labels <- letters[1:7]

labelx <- diff(c(1, vertlines, 200))/2 + c(1, vertlines)
mtext(labels, at=labelx, side=1, line=4)