在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)