在ggplot2中的兩個面之間繪制線條

Question

如何在兩個方面之間繪制幾條線？

我通過在頂部圖形的最小值處繪制點來嘗試這一點，但它們不在兩個方面之間。 見下圖。

到目前為止這是我的代碼：

t <- seq(1:1000)
y1 <- rexp(1000)
y2 <- cumsum(y1)
z <- rep(NA, length(t))
z[100:200] <- 1

df <- data.frame(t=t, values=c(y2,y1), type=rep(c("Bytes","Changes"), each=1000))
points <- data.frame(x=c(10:200,300:350), y=min(y2), type=rep("Bytes",242))
vline.data <- data.frame(type = c("Bytes","Bytes","Changes","Changes"), vl=c(1,5,20,5))

g <- ggplot(data=df, aes(x=t, y=values)) +
  geom_line(colour=I("black")) +
  facet_grid(type ~ ., scales="free") +
  scale_y_continuous(trans="log10") +
  ylab("Log values") +
  theme(axis.text.x = element_text(angle = 90, hjust = 1), panel.margin = unit(0, "lines"))+
  geom_point(data=points, aes(x = x, y = y), colour="green")

g

Answer 1

為了實現這一點，您必須將圖中的邊距設置為零。 你可以使用expand=c(0,0)來做到這一點。 我對您的代碼所做的更改：

• 使用scale_y_continuous ，可以在該部件內定義軸標簽，而不需要單獨的ylab 。
• 在geom_line colour=I("black")更改為colour="black" 。
• expand=c(0,0)到scale_x_continuous和scale_y_continuous 。

完整的代碼：

ggplot(data=df, aes(x=t, y=values)) +
  geom_line(colour="black") +
  geom_point(data=points, aes(x = x, y = y), colour="green") +
  facet_grid(type ~ ., scales="free") +
  scale_x_continuous("t", expand=c(0,0)) +
  scale_y_continuous("Log values", trans="log10", expand=c(0,0)) +
  theme(axis.text.x=element_text(angle=90, vjust=0.5), panel.margin=unit(0, "lines"))

這使：

---

使用geom_segment也可以添加行。 通常，線條（線段）將出現在兩個方面中。 如果您希望它們出現在兩個方面之間，則必須在data參數中對其進行限制：

ggplot(data=df, aes(x=t, y=values)) +
  geom_line(colour="black") +
  geom_segment(data=df[df$type=="Bytes",], aes(x=10, y=0, xend=200, yend=0), colour="green", size=2) +
  geom_segment(data=df[df$type=="Bytes",], aes(x=300, y=0, xend=350, yend=0), colour="green", size=1) +
  facet_grid(type ~ ., scales="free") +
  scale_x_continuous("t", expand=c(0,0)) +
  scale_y_continuous("Log values", trans="log10", expand=c(0,0)) +
  theme(axis.text.x=element_text(angle=90, vjust=0.5), panel.margin=unit(0, "lines"))

這使：