У меня есть два R-dataframes, которые были созданы путем изменения формы исходного набора данных.Один из фреймов данных имеет значения для разных «Лечение» для разных «Месяц».Другой фрейм данных имеет «средства» для каждой подкатегории.
> head(gatheredDiameterAndTreatmentData)
Treatment Month Diameter
1 Aux_Drop Diameter(inches).Sep 2.2
2 Aux_Spray Diameter(inches).Sep 2.5
3 DMSO Diameter(inches).Sep 2.6
4 Water Diameter(inches).Sep 1.7
5 Aux_Drop Diameter(inches).Sep 1.5
6 Aux_Spray Diameter(inches).Sep 3
> head(subMeans)
Treatment Month Diameter
1 Aux_Drop Diameter(inches).Dec 3.292857
2 Aux_Spray Diameter(inches).Dec 2.515385
3 DMSO Diameter(inches).Dec 4.145455
4 Water Diameter(inches).Dec 4.383333
5 Aux_Drop Diameter(inches).Mar 4.600000
6 Aux_Spray Diameter(inches).Mar 4.587500
Я использовал код:
gatheredDiameterAndTreatmentData %>%
subset(Diameter != "NA") %>%
ggplot(aes(x = factor(Treatment), y = Diameter)) +
geom_point(aes(colour = Month), na.rm = TRUE, position = position_dodge(width = 0.2)) +
, чтобы построить графиквот так: 
Теперь я также хочу добавить вспомогательные средства для каждой группы.Но мои графики (для под-средств каждой категории) сильно отличались, когда я использовал этот код:
gatheredDiameterAndTreatmentData %>%
subset(Diameter != "NA") %>%
ggplot(aes(x = factor(Treatment), y = Diameter)) +
geom_point(aes(colour = Month), na.rm = TRUE, position = position_dodge(width = 0.2)) +
geom_point(data = subMeans, size = 4)
Wny средние значения так низки?Я не думаю, что масштабирование является здесь какой-либо проблемой.
Кроме того, я хочу нарисовать линию, чтобы связать средние значения для разных групп лечения для разных месяцев?
У меня есть файлы(кадры данных преобразуются в текстовый файл), передаваемые через Dropbox: https://www.dropbox.com/sh/968nfxd5aisizc5/AACsdybRv-QgigGTmMS_7fc9a?dl=0