Więc mam te dane

   Time  Average    Test n    se
1    20  5.80000     Exp 9 0.120
2    40  6.10000     Exp 9 0.145
3    60  6.40000     Exp 9 0.188
4    80  6.70000     Exp 9 0.990
5   100  7.00000     Exp 9 0.440
6   120  7.70000     Exp 9 0.320
7    20  8.47000 Control 9 0.500
8    40  9.31700 Control 9 0.880
9    60 10.24870 Control 9 0.900
10   80 11.27357 Control 9 0.330
11  100 12.40093 Control 9 0.456

I użyłem następującego kodu, aby go spisać

ggplot(data, aes(x=Time, y=Average, colour=Test)) + 
    geom_errorbar(aes(ymin=Average-se, ymax=Average+se), width=0.2) +
    geom_line() +
    geom_point()

Chcę zaciemnić poszczególne sekcje na tym wykresie. Na przykład chcę przyciemnić fragment od 20 do 30 sekund. Czy to możliwe, aby to zrobićggplot2?