У меня есть график с парами точек, которые слегка смещены. Каждой паре точек соответствуют планки погрешностей. Я указал, что символ первой точки в паре отличается от символа второй (замкнутый круг против открытого круга). Я бы хотел, чтобы полосы ошибок не отображались через открытый символ.
Вот фиктивный набор данных:
x = runif(4,-2,2)
x_1 = runif(4,-1,3)
dfr <- data.frame(
x = c(x, x_1),
y = rep(c("A","B","C","D"), 2),
upper = c(x+2, x_1+1),
lower = c(x-2, x_1-2),
type = rep(c("alpha", "beta"), each = 4))
И вот график:
dodge=position_dodge(width=0.5)
ggplot(dfr,aes(x=y,y=x,colour=type)) +
geom_point(size=8,aes(shape=type),position=dodge) +
geom_errorbar(aes(ymax=upper,ymin=lower),position = dodge) +
scale_colour_manual(values = c('gray','black')) +
scale_shape_manual(values = c(19,21)) +
coord_flip() +
opts(legend.position="none")
Спасибо за любую помощь, которую вы можете предоставить!