программирования r: как совместить стек с линии диаграммы с помощью ggplot


У меня есть следующий набор данных:

yr  v1  v2  v31   18  17  342   23  36  313   29  34  304   37  16  255   31  22  19

год= год/временной переменной. Я хочу, чтобы построить три линейных диаграмм (для v1,v2 и V3). Затем ввести три горизонтальные полосы на участок, чтобы показать высокий/средний низкий на основе этого диапазона:

 >= 20 : LOW <20 and >= 30 : Medium >30: High

Я использовал ggplot, чтобы продолжить такой:

сначала я поставил все значения в одном столбце и создал "идентификатор" колонки "переменная1",переменная2", "var3", чтобы получить три линейных диаграмм:

тест1:

yr  values  id1   18  var12   23  var13   29  var14   37  var15   31  var11   17  var22   36  var23   34  var24   16  var25   22  var21   34  var32   31  var33   30  var34   25  var35   19  var3ggplot(data = test1, aes(x = year, y = values, color = id)) + geom_line(aes(group = id)) + geom_point()

Далее: я создал наборный сюжет для серии.

Я присваивается значение 40 на "высокий" в сочетании всех 3-х значений в диапазоне (20,30,40). Затем я добавил новый столбец "имя", показывая высокий/средний/низкий.

условие_2:

yr  values  name1   20  low2   20  low3   20  low4   20  low5   20  low1   30  med2   30  med3   30  med4   30  med5   30  med1   40  high2   40  high3   40  high4   40  high5   40  highggplot(data = test2, aes(x = year, y = values, fill = name)) + geom_area(position = 'stack')

Хотя эти два ggplots прекрасно работают по отдельности, я не знаю, если это возможно, чтобы объединить их в один участок, чтобы получить:три линии с тремя горизонтальными полосами на фоне.

Спасибо большое заранее.