R ggplot2: usando stat_summary (media) y escala logarítmica

Tengo un montón de mediciones a lo largo del tiempo y quiero trazarlas en R. Aquí hay una muestra de mis datos. Tengo 6 medidas para cada uno de los 4 puntos de tiempo:

values <- c (1012.0, 1644.9, 837.0, 1200.9, 1652.0, 981.5, 
    2236.9, 1697.5, 2087.7, 1500.8,
    2789.3, 1502.9, 2051.3, 3070.7, 3105.4, 
    2692.5, 1488.5, 1978.1, 1925.4, 1524.3,
    2772.0, 1355.3, 2632.4, 2600.1)
time <- factor (rep (c(0, 12, 24, 72), c(6, 6, 6, 6)))

La escala de estos datos es arbitraria, y de hecho la voy a normalizar para que el promedio de t = 0 sea 1.

norm <- values / mean (values[time == 0])

Hasta aquí todo bien. Utilizandoggplot, Trazo tanto los puntos individuales como una línea que pasa por el promedio en cada punto de tiempo:

require (ggplot2)
p <- ggplot(data = data.frame(time, norm), mapping = aes (x = time, y = norm)) +
    stat_summary (fun.y = mean, geom="line", mapping = aes (group = 1)) +
    geom_point()

Sin embargo, ahora quiero aplicar una escala logarítmica, y aquí es donde comienza mi problema. Cuando lo hago:

q <- ggplot(data = data.frame(time, norm), mapping = aes (x = time, y = norm)) +
    stat_summary (fun.y = mean, geom="line", mapping = aes (group = 1)) +
    geom_point() + 
    scale_y_log2()

La línea NO pasa por 0 en t = 0, como era de esperar porque log (1) == 0. En cambio, la línea cruza el eje y ligeramente por debajo de 0. Aparentemente,ggplot aplica la mediadespués transformación de registro, que da un resultado diferente. Quiero que tome la mediaantes de transformación de registro.

Cómo puedo decirggplot aplicar la media primero? ¿Hay una mejor manera de crear este gráfico?