Looks like a grouped bar chart, as Tal mentioned. You can easily plot this with the sjPlot-package. See some examples here.
sjPlot makes it easy to produce ggplot figures - however, it requires the "raw" data, where the count (y-pos) is computed within the function. An example:
library(sjPlot)
library(sjmisc)
data(efc)
sjp.setTheme("539")
sjp.grpfrq(efc$e42dep, efc$c172code)
which gives following figure:

You can easily change the plot type to dot plots or similar:
sjp.grpfrq(efc$e42dep, efc$c172code,
geom.colors = "Set1", type = "dots",
coord.flip = T, showValueLabels = F)

In the upper cases, each group has some observations, and the count for each group is computed before plotting. However, in your case, you don't want to map y to the count of values, but to the value itself. In this case, you may have to create your own plot, which could be done like this:
help_3D <- structure(list("one"=c(10,9,8,7), "two"=c(8,7,6,5), "three"=c(8.9,8.7,8.5,8.4), treatment=c("A", "B", "C", "D")), .Name = c("one", "two", "three", "treatment"), row.names=c(NA, 4L), class="data.frame")
library(ggplot2)
library(tidyr)
library(sjPlot) # just for the theme
sjp.setTheme("scatter") # just for the theme
help_3d_long <- tidyr::gather(help_3D, "grp", "ypos", 1:3)
ggplot(help_3d_long, aes(x = treatment, y = ypos, colour = grp)) +
geom_point(position = position_jitter(.2)) +
coord_flip()

Finally, to add error bars, you need to have the standard error in your data set. The following plot adds error bars, but uses position_dodge
instead of position_jitter
, to have control of the position of both dots and error bars:
help_3D <- structure(list("one"=c(10,9,8,7), "two"=c(8,7,6,5),
"three"=c(8.9,8.7,8.5,8.4),
treatment=c("A", "B", "C", "D")),
.Name = c("one", "two", "three", "treatment"),
row.names=c(NA, 4L), class="data.frame")
library(ggplot2)
library(tidyr)
library(sjPlot) # just for theme
sjp.setTheme("scatter") # just for theme
help_3d_long <- tidyr::gather(help_3D, "grp","ypos", 1:3)
help_3d_long$se <- runif(n = 4, min = 0.2, max = .8)
ggplot(help_3d_long, aes(x = treatment, y = ypos, colour = grp)) +
geom_point(position = position_dodge(.2)) +
geom_errorbar(aes(ymin = ypos - se, ymax = ypos + se, colour = grp),
width = 0,
position = position_dodge(.2)) +
coord_flip()

You also might want to look at either gghtemr or ggthemes to find some "sexy" themes, as you requested. ;-)