エラーバー付きの 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」を使用します。
私が間違っていることを教えてください。おそらく、私が気付いていないエラーバーを作成するためのはるかに簡単な方法がありますか?
前もって感謝します！