創建一個箱線圖ggplot2

Question

我有以下數據集：

depth <- data.frame(Sample = c("AD_001", "AD_009", "AD_017", "AD_025", 
                           "AD_033", "AD_041", "AD_049", "AD_057", 
                           "AD_065", "AD_073", "AD_081", "AD_089"), 
                median = c(12, 13, 11, 12, 12, 12, 13, 13, 14, 15, 15, 13), 
                granular_first_quartile = c(5, 6, 5, 6, 5, 6, 6, 6, 7, 7, 7, 6), 
                granular_third_quartile = c(23, 25, 21, 22, 23, 23, 24, 25, 27, 28, 28, 24))

並想創建一個箱線圖，但是，我正在生成的圖形沒有相等分隔的x字段。

ggplot(depth, aes(as.factor(Sample))) + geom_boxplot(aes(middle = median, lower = granular_first_quartile, upper = granular_third_quartile, ymin = granular_first_quartile, ymax = granular_third_quartile), stat = 'identity') + coord_flip()

謝謝您的幫助！

Answer 1

您已經擁有所有（中位數，Q1和Q3），並且只需要分配lower ， upper ， middle ， ymin和ymax

（僅供參考， https ：//en.wikipedia.org/wiki/Box_plot#/media/File： Boxplot_vs_PDF.svg ）

ggplot(depth, aes(Sample, median)) +
geom_boxplot(aes(lower = granular_first_quartile, upper = granular_third_quartile, 
middle = median, 
ymin = granular_first_quartile - 1.5*(granular_third_quartile-granular_first_quartile), 
ymax = granular_third_quartile+1.5*(granular_third_quartile-granular_first_quartile)),
stat="identity")+ coord_flip()