Day     Sample  Measurement
3   A   0.648
3   A   0.661
3   A   0.65
3   A   0.594
3   A   0.548
3   A   0.653
3   A   0.648
3   A   0.672
3   A   0.661
3   A   0.66
3   A   0.647
3   A   0.629
3   A   0.691
3   A   0.534
3   A   0.567
3   A   0.634
3   A   0.579
3   B   0.689
3   B   0.598
3   B   0.658
3   B   0.662
3   B   0.599
3   B   0.678
3   B   0.65
3   B   0.617
3   B   0.673
3   B   0.67
3   B   0.666
3   B   0.595
3   B   0.604
3   B   0.59
3   B   0.569
3   B   0.614
3   C   0.624
3   C   0.623
3   C   0.606
3   C   0.66
3   C   0.623
3   C   0.669
3   C   0.642
3   C   0.658
3   C   0.645
3   C   0.653
3   C   0.501
3   C   0.552
3   C   0.663
3   C   0.589
3   C   0.602
5   A   0.811
5   A   0.822
5   A   0.811
5   A   0.824
5   A   0.773
5   A   0.823
5   A   0.815
5   A   0.819
5   A   0.754
5   A   0.81
5   A   0.796
5   A   0.818
5   A   0.797
5   A   0.811
5   A   0.812
5   A   0.817
5   A   0.821
5   B   0.827
5   B   0.798
5   B   0.819
5   B   0.81
5   B   0.826
5   B   0.821
5   B   0.805
5   B   0.821
5   B   0.825
5   B   0.821
5   B   0.816
5   B   0.814
5   B   0.823
5   B   0.81
5   B   0.823
5   B   0.762
5   B   0.825
5   B   0.821
5   B   0.825
5   B   0.812

p2 <- ggplot(data=data1, aes(x=Day, y=Fv.Fm..XE..Mean)) +
  geom_point(aes(colour= Sample),
  position = position_jitterdodge(dodge.width=0.75 , jitter.width=0.250)) +
  # geom_line(aes(colour=Sample),
  # position = position_jitterdodge(dodge.width=0.75)) +
  scale_x_discrete(labels=c(3, 5, 7, 10, 14)) +
  scale_y_continuous(limits=c(0.3 , 1.0))
p2
ggsave("p2.jpg")