ggplot2の連続軸に沿ったボックスプロット

Question

私は以下を持っていますdataset。

ggplot2を使用してプロットしたいが、ボックスプロットを連続的にプロットする。

しかし、私はそれを行う方法を見つけることができませんでした。これは私が得ることができる最も遠い：

ggplot(t, aes(x=treatment, y=loss)) + 
    scale_fill_manual(values=cbPalette)+ 
    geom_boxplot(fill="white") + 
    geom_point(col="blue")+ 
    scale_x_discrete(labels=c("35.9°C\nmedian\nPBT","40.8°C\n95perc \nPBT","42.6°C\n median\nVMT"))+ 
    ylab("weight lost(g)")+ 
    xlab("")+ 
    theme(panel.background = element_rect(fill='transparent', colour='black'), 
     panel.grid.major = element_blank(), 
     panel.grid.minor = element_blank(), 
     axis.title.x = element_text(colour="black", size=14), 
     axis.text.x = element_text(angle=0, vjust=0.5,colour="black", size=14), 
     axis.title.y = element_text(colour="black", size=14), 
     axis.text.y = element_text(angle=0, vjust=0.5,colour="black", size=14) 
     )+ 
    theme(legend.position="none")+ 
    annotate("text", size=5, x = 0.5,y= 25, label = "A") 

Answer 1

列lossは、データセットから欠落している：私はそれが（データセット内キロで表現されている）前と後の重量差であると推定します。私はまた、「連続的なスケール」とは、治療がx軸上の因子ではなく実数で表されることを意味します。その場合は、groupステートメントを追加すれば十分です。

## add loss (in gr) 
t <- t %>% mutate(loss=-1e3*(post.weight-pre.weight)) 

p <- ggplot(t, aes(x=treatment, y=loss, group=treatment)) + 
    scale_fill_manual(values=cbPalette)+ 
    geom_boxplot(fill="white") + 
    geom_point(col="blue")+ 
    ylab("weight lost(g)")+ 
    xlab("")+ 
    theme(panel.background = element_rect(fill='transparent', colour='black'), 
     panel.grid.major = element_blank(), 
     panel.grid.minor = element_blank(), 
     axis.title.x = element_text(colour="black", size=14), 
     axis.text.x = element_text(angle=0, vjust=0.5,colour="black", size=14), 
     axis.title.y = element_text(colour="black", size=14), 
     axis.text.y = element_text(angle=0, vjust=0.5,colour="black", size=14) 
     )+ 
    theme(legend.position="none")