To draw a bar chart with a standard deviation, in addition to barplot, you also need to use errbar in the hmisc package.
X = read. Table ("correlation_coefficient_inter-class ")
Y = read. Table ("correlation_coefficient_between-class ")
Inter = mean (X [, 1])
Between = mean (Y [, 1])
Y_mean = cbind (Inter,)
MP = barplot (y_mean, ylim = C (0, 1 ),
Col = C (RGB (216,179,101, maxcolorvalue = 255), RGB (90,180,172, maxcolorvalue = 255 )),
Beside = true, Space = C (0.1, 0.7), width = C (0.1, 0.1 ))
Library (hmisc)
CL = RGB (255, 10, maxcolorvalue =)
Errbar (MP, y_mean, y_mean + C (SD (X [, 1]), SD (Y [, 1]), y_mean-C (SD (X [, 1]), SD (Y [, 1]),
CAP = 0.035, errbar. Col = Cl, Col = Cl, LWD = 3, add = T)
P = Wilcox. Test (X [, 1], Y [, 1]) $ P. Value
Mtext (paste ("P =", P), Col = 1, font = 2, cex = 1.5)
Note: MP can specify the position and draw errbar on the column.