我正在尝试用错误栏创建一个ggvis图。我决定将平均值绘制为点，将误差条绘制为矩形。这是我的数据集：
mivector<-c(1.5,2,2.5,2,2.5,3,2.5,3,3.5)
treats<-c("A","A","A","B","B","B","C","C","C")
library(ggvis)
library(dplyr)
plotdf<-data.frame(mivector,treats)
plotdf<- plotdf %>% group_by(treats) %>%
summarise(mimean=mean(mivector),misd=sd(mivector)) %>%
mutate(milow=mimean-misd,mihigh=mimean+misd,mileft=as.numeric(treats)-0.005,miright=as.numeric(treats)+0.005,treatsno=as.numeric(treats)) %>%
select(-misd)
这是我想要制作的密谋代码：
plotdf %>% ggvis() %>% layer_points(~treatsno,~mimean) %>%
layer_rects(prop("x",~mileft),prop("y",~milow),prop("x2",~miright),prop("y2",~mihigh),fillOpacity:=1) %>%
scale_numeric("y", domain = c(0, 5)) %>%
add_axis("y",grid=F) %>%
add_axis("x",ticks=length(plotdf$treats),grid=F,properties=axis_props(labels=list(text=c("a","b","c"))))
我遇到了无法正确分配轴标签的问题。我没有相应的文本“a”，“b”和“c”的3个刻度，而是每个刻度都有“a，b，c”。
请你说明我做错了什么？也许通常有一种更简单的方法来制作我不知道的错误栏？
提前谢谢！