r - R中带有图例的多个彩色箱形图

Question

我有一个原始数据，如下所示: A B C D E F G H I J K L M N O P 1 15.0 20 23.3 26.5 28 29.0 31.8 32.0 32.0 33.8 36.0 38 40 46 47.0 55.0 2 10.0 13 16.0 20.0 10 19.5 14.0 15.0 31.0 15.0 24.6 29 31 46 26.7 38.2 3 18.0 25 29.5 45.0 47 36.5 41.0 38.0 34.5 63.0 43.0 41 42 55 55.0 78.0 4 32.5 60 108.7 88.0 83 65.9 84.9 125.1 62.6 83.0 71.6 53 55 72 88.3 123.8 5 22.0 36 65.0 63.0 60 43.8 53.0 74.0 44.3 71.0 50.3 44 46 62 63.5 96.0 6 10.0 NA NA NA 30 NA NA NA NA 20.0 NA NA NA NA NA NA 7 15.0 NA NA NA 25 NA NA NA NA NA NA NA NA NA NA 不适用 8 5.0 NA NA NA 40 NA NA NA NA 30.0 NA NA NA NA NA NA

这些实际上是 2.5、25、50、75 和 97.5 百分位值。我想用这些不同的颜色创建箱线图，然后在箱线图中用一个点标记中点。我尝试编写以下命令，但遇到了一个我无法理解的错误。

Boxplot <- read.csv(file="Boxplots.csv",head=TRUE,sep=",")
Boxplot
attach(Boxplot)
boxplot(Boxplot, las = 2, col = c("sienna","royalblue2","chartreuse3","chartreuse4","chocolate","chocolate1","chocolate2","chocolate3","chocolate4","coral","coral1","coral2","coral3","coral4","cornflowerblue"), 
        at = c(1,2,3,4,5, 6,7,8,9, 10,11,12,13,14,15), par(mar = c(0, 5, 4, 2) + 0.1), 
        names = c("","","","","","","","","","","","","","",""))

请帮忙。

Answer 1

我会(总是)避开attach。特别是在这里，因为您已经将 Boxplot 分配给您的数据，所以它已经“附加”了。您收到的错误可能是由于您的 col 参数的长度长于列数。

> dat <- read.table(header = TRUE, text = "A       B       C       D       E       F       G
  15.0    20.0    23.3    26.5    28.0    29.0    31.8
  10.0    13.0    16.0    20.0    10.0    19.5    14.0
  18.0    25.0    29.5    45.0    47.0    36.5    41.0
  32.5    60.0    108.7   88.0    83.0    65.9    84.9
  22.0    36.0    65.0    63.0    60.0    43.8    53.0")

> boxplot(dat, col = rainbow(7), medlwd = 0)
> points(sapply(dat, median), pch = 19)