Как вставить текстовые метки в точки данных (не в данных), используя panel.text () в решетчатом графике

Question

Я создал диаграмму рассеяния из данных (см. Код и данные ниже). ось y показывает среднюю скорость сока , измеренную по ксилеме на деревьях во время транспирации, а x-ось показывает среднюю температуру окружающей среды .

На диаграмме рассеяния показаны 5 точек .Каждая точка показывает, как средние температуры влияют на средние скорости потока сока за период 5 месяцев (т.е. июнь-октябрь) .

Задача

Первый столбец во фрейме данных (см. Ниже) называется «Дата» и состоит из 5 строк с именами «Июнь», «Июль»."," Август "," Сентябрь "и" Октябрь ".

Моя общая цель состоит в том, чтобы обозначить пять точек данных (т.е. помеченных слева направо - от точки данных 1 до точки данных 5) на графике решетки (показано ниже) текстовыми метками, обозначающими эти 5 месяцев (т.е. найденыв столбце 1 во фрейме данных, представленном ниже), но не допускать совпадения текста с линией тренда, чтобы ее было легко прочитать (см. график решетки ниже): -

Например (см. решеткуграфик ниже):

1. Точка данных 1 = помечено в июне;
2. Точка данных 2 = помечена в июле;
3. Точка данных 3 = помечена как август;
4. Точка данных 4 = с меткой Septebmer;
5. Точка данных 5 = с меткой октябрь;

В ответ я создал вектор с именем Data_labels и я попытался пометить точки на графике решетки с помощью panel.text (), чтобы вставить текстовые метки в точки данных.

Однако я продолжаю получать сообщения об ошибках такого типа при использовании panel.text () в различных комбинациях.

Кто-нибудь сможет помочь?Если это так, я был бы глубоко признателен

Rcode

 ##Produce the date labels for the plot
      Date_labels<-c("June", "July", 
                     "August", "September", 
                     "October")

##Produce lattice plot
xyplot(Mean_Sapflow~Mean_Temperature, 
               data=Summarised_new_mean_sapflow, 
               col="red",
               pch=19,
               xlab="Temperature (°C)",
               ylab=expression(paste("Sapflow Litres day"^{-1})),
               type=c('p', 'smooth'),                  col.line='blue',
               panel.text(0,0, labels=Data_labels))

Сообщения об ошибках:

       Error in grob(label = label, x = x, y = y, just = just, hjust = 
       hjust,  : 
       object 'Data_labels' not found

Scatterplot

Данные:

    structure(list(Date = structure(c(3L, 2L, 1L, 5L, 4L), .Label = c("August", 
"July", "June", "October", "September"), class 
    = "factor"), Mean_Humidity = c(17.6073333333333, 
    21.8006451612903, 18.3896774193548, 14.822, 11.3486666666667), 
        Mean_Radiation = c(263.673333333333, 270.906451612903, 178.98064516129, 
        152.233333333333, 93.6), Mean_Temperature = c(70.5613333333333, 
        61.3306451612903, 71.7335483870968, 72.2136666666667, 81.743
        ), Mean_Sapflow = c(16.067, 23.3567741935484, 22.9416129032258, 
        19.3093333333333, 6.70066666666667)), class = "data.frame", row.names = c(NA, 
    -5L))