Question

我想将geom_area（）的起始y级别从零开始移位。在以下示例中，第一个函数调用是可以的，但是如何纠正第二个调用的情节：

library(ggplot2)

set.seed(123)

myplot <- function (split.value) {
  year <- (2000:2017)
  index <- rnorm(18, split.value,5)
  interp <- approx(year, index, n=1000)
  df <- data.frame(year = interp$x,
                   index = interp$y,
                   valence = ifelse(interp$y <= split.value, "pos", "neg"),
                   stringsAsFactors = FALSE)
  ggplot(df, aes(x = year, y = index)) +
    geom_area(aes(fill = valence), alpha = 0.5) +
    geom_line() +
    geom_hline(yintercept = split.value) +
    scale_fill_manual(values=c("green", "red"), guide=FALSE) +
    scale_x_continuous(expand=c(0, 0))
} # cf. R Graphics Cookbook

myplot(0) # o.k. (with more interpolation points)
# but the following does not work:

myplot(2) # .. would like to shift green-area-MIN-y-value to 2
# and red-area-MAX-y to 2

Answer 1

geom_ribbon是ymin的特殊情况，可将geom_ribbon(aes(ymin=split.value, ymax=index, fill = valence), alpha = 0.5) +修复为零。所以以下工作而不是你的geom_area

ion-content

为geom_area（）

1 个答案: