Conecte os pontos médios das barras de erro

Em ggplot2 estou tentando uma coisa simples que não consigo obter por algum motivo. Eu ajustei os meios e SE em um quadro de dados e quero traçar os meios, barras de erro e, em seguida, conecte as médias com pontos. Aqui está o código e o erro (ele faz tudo, exceto conectar os meios comgeom_line (trabalhando comRCookbook:

library(ggplot2)
#data set
data1 <- structure(list(group = structure(1:3, .Label = c("1", "2", "3"
), class = "factor"), estimate = c(55.7466654122763, 65.0480954172939, 
61.9552391704298), SE = c(2.33944612149257, 2.33243565412438, 
2.33754952927041), t.ratio = c(23.8290016171476, 27.8884844271143, 
26.5043535525714)), .Names = c("group", "estimate", "SE", "t.ratio"
), row.names = c(NA, 3L), class = "data.frame")

#the attempted plot
pd <- position_dodge(.1)
ggplot(data1, aes(x=group, y=estimate, group=group)) + 
    geom_errorbar(aes(ymin=estimate-SE, ymax=estimate+SE), 
        colour="black", width=.1, position=pd) +
    geom_line(data=data1, aes(x=group, y=estimate)) + 
    geom_point(position=pd, size=4)

o erro:

ymax not defined: adjusting position using y instead
geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic?

questionAnswers(3)

yourAnswerToTheQuestion