Ваши комментарии немного сложны для расшифровки, но я предполагаю, что, возможно, вы хотели получить коробку для каждого столбца S1G1 и т. Д. В этом случае я бы растаял ваши данные:
xx <- read.table(textConnection("R S1G1 S1G2 S2G1 S2G2
1 0.98 0.98 0.96 0.89
2 0.89 0.89 0.98 0.88
3 0.88 0.99 0.89 0.87"),header = TRUE, sep ="")
xx1 <- melt(xx, id.vars = "R")
и затем вы можете создавать боксовые бок о бок, используя любую из популярных графических идиом:
ggplot(xx1, aes(x = variable, y = value)) +
geom_boxplot()
Или вы можете использовать базовую графику или lattice
(графики опущены):
boxplot(value~variable, data = xx1)
bwplot(value~variable,data = xx1)