my_df <- structure(list(Group = c(1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2,
2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 1, 1, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 1), Status = c("Before", "Before", "Before", "Before",
"Before", "Before", "Before", "Before", "Before", "Before", "Before",
"Before", "Before", "Before", "Before", "Before", "Before", "Before",
"Before", "Before", "Before", "Before", "Before", "Before", "Before",
"Before", "Before", "Before", "Before", "Before", "Before", "Before",
"Before", "Before", "Before", "Before", "Before", "Before", "Before",
"Before", "Before", "Before", "Before", "Before", "Before", "Before",
"Before", "Before", "Before", "Before", "Before", "After", "After",
"After", "After", "After", "After", "After", "Before", "After",
"Before", "Before", "Before", "After", "After", "After", "After",
"After", "After", "After", "After", "After", "After", "After",
"After", "After", "After", "After", "After", "After", "After",
"After", "After", "After", "After", "After", "After", "After",
"After", "After", "After", "After", "After", "After", "After",
"After", "After", "After", "After", "After", "After", "After",
"After", "After", "After", "After", "After", "After", "After",
"After", "After", "After", "After", "After", "After", "After",
"After", "After", "After", "After"), Result = c(2.39000010490417,
2.00999999046326, 2.26999998092651, 2.4300000667572, 4.19999980926514,
4.01999998092651, 4.26999998092651, 4.01999998092651, 4.1399998664856,
4.05000019073486, 4.30999994277954, 4.01999998092651, 4.01999998092651,
2.47000002861023, 2.25, 2.39000010490417, 4.28999996185303, 4.09000015258789,
4.1399998664856, 4, 4.23999977111816, 4.17000007629395, 4.21000003814697,
4.1399998664856, 4.57999992370605, 2.24000000953674, 2.44000005722046,
2.42000007629395, 3.83999991416931, 4.01000022888184, 3.75, 4.01000022888184,
3.78999996185303, 3.85999989509583, 3.94000005722046, 3.96000003814697,
4.17000007629395, 4, 4.32000017166138, 4.07999992370605, 2.46000003814697,
2.60999989509583, 2.23000001907349, 2.13000011444092, 4.46999979019165,
4.09000015258789, 4.1100001335144, 4.17000007629395, 3.86999988555908,
4.5, 3.9300000667572, 2.15000009536743, 2.35999989509583, 4.46999979019165,
4.48000001907349, 4.3600001335144, 4.19000005722046, 4.28000020980835,
4.82999992370605, 4.15000009536743, 4.42000007629395, 4.15000009536743,
4.19999980926514, 4.44000005722046, 4.21999979019165, 4.38000011444092,
3.94000005722046, 4.57000017166138, 2.32999992370605, 2.44000005722046,
2.09999990463257, 2.17000007629395, 2.17000007629395, 2.61999988555908,
4.09999990463257, 3.85999989509583, 4.15999984741211, 4.19000005722046,
4.09999990463257, 3.97000002861023, 4.19999980926514, 4.32999992370605,
4.07999992370605, 3.8199999332428, 4.01999998092651, 4.15999984741211,
3.9300000667572, 4.1399998664856, 3.77999997138977, 4.11999988555908,
4.53999996185303, 4.07000017166138, 2.54999995231628, 2.50999999046326,
2.4300000667572, 2.32999992370605, 3.85999989509583, 3.92000007629395,
4.3600001335144, 4.30000019073486, 4.34000015258789, 4.1399998664856,
4.25, 4.13000011444092, 4.03999996185303, 4.26999998092651, 4.32000017166138,
4.11999988555908, 4.05000019073486, 4.44000005722046, 4.1100001335144,
4.19000005722046, 4.28000020980835, 4.51999998092651, 4.07999992370605,
4.07000017166138, 4.05000019073486, 4.46000003814697, 4.05000019073486,
2.52999997138977)), class = "data.frame", row.names = c(NA, -120L
), .Names = c("Group", "Status", "Result"))

my_df %>%
  ggplot() +
  geom_density(aes(Result, fill=Status), alpha=.3)

my_df %>%
  filter(Group == 1) %>%
  ggplot() +
  geom_density(aes(Result, fill=Status), alpha=.3)

my_df %>%
  filter(Group == 2) %>%
  ggplot() +
  geom_density(aes(Result, fill=Status), alpha=.3)