r - 扩展刻度/轴的顶部以包含文本

Question

我试图在图表的每个方面注释最高值。

我无法弄清楚如何在不剪切最高值上方的文本的情况下删除 y 轴底部的额外空间。

A) 是否存在非对称版本的 scale_y_continuous(expand=c(0,0)) ?

B)或者，有没有办法让 ggplot 将文本作为图形范围的一部分？

# a simple dataset
count <- 40
data <- data.frame(
  category = sample(LETTERS[1:3], count, TRUE),
  x = rnorm(count),
  y = abs(rnorm(count))
)

# find the highest value in each category
require(plyr)
data <- data[order(-data$y),]
topValues <- ddply(data, .(category), head, 1)

require(ggplot2)
ggplot(data) +
  geom_line(aes(x=x, y=y)) +
  geom_text(data=topValues, aes(x=x, y=y, label=y)) + # label the highest y value
  # add vjust=-1 to put text above point if possible
  facet_grid(category ~ ., scale="free") +
  scale_x_continuous(expand=c(0,0)) +
  scale_y_continuous(expand=c(0,0))

Answer 1

答案来自 baptiste .

只需将此调用添加到绘图中即可在文本顶部创建一个空白点:

geom_blank(data=topValues, aes(x=x, y=y*1.1, label=y))