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

Question

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

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

проблема

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

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

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

1. Точка данных 1 = помечена в июне;
2. Точка данных 2 = с надписью июль;
3. Точка данных 3 = помечены август;
4. Точка данных 4 = маркированный Септебмер;
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

разброс точек

Данные:

    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))