如何在一张图中绘制多个不同颜色的箱线图？ [关闭]

Question

您可以在此 github gist 上查看我的数据结构（在 .txt 文件中）：https://gist.github.com/anonymous/b61a2f0fce0c079be31d

我有来自相同测量的三个级别。重复 10 次。

我想用不同颜色在一个图中绘制所有箱形图（1 级是一种颜色，2 级是另一种颜色，3 级是另一种颜色） 我研究了其他问题和答案，但找不到解决方案。

我使用的代码如下：

headers <- read.table("C:/Users/Desktop/example.txt",sep="\t",nrows=2,stringsAsFactors=FALSE)
data <- read.table("C:/Users/Desktop/example.txt",sep="\t",dec=",",skip=2)
names(data) <- paste(headers[1,],headers[2,],sep="/")
plot.data <- melt(data)
plot.data$level <- as.factor(gsub("(L|l)evel *([1-3])/[A-Z]*","\\2",plot.data$variable,))
plot.data$name <- as.factor(gsub("(L|l)evel *[1-3]/([A-Z]*)","\\2",plot.data$variable,))

library(ggplot2)
ggplot(plot.data,aes(x=name,y=value,fill=level)) + geom_boxplot()+
  scale_fill_discrete(labels=2008:2010)+labs(fill="Year")

Answer 1

与 R 中的大多数操作一样，当颜色向量短于要着色的事物的数量时，颜色会被回收。试试这个：

df = data.frame(foo=rnorm(10),
                foo2=rnorm(10),
                bar=rnorm(10),
                bat2=rnorm(10))
boxplot(df,col = c('red','blue'))

详情请参阅?boxplot。

Answer 2

这是使用您的数据的ggplot2 解决方案。挑战在于将数据转换为合适的格式，具体实现如下：

library(reshape2)
headers <- read.table("example.txt",sep="\t",nrows=2,stringsAsFactors=FALSE)
data <- read.table("example.txt",sep="\t",dec=",",skip=2)
names(data) <- paste(headers[1,],headers[2,],sep="/")
plot.data <- melt(data)
plot.data$level <- as.factor(gsub("(L|l)evel *([1-3])/[A-Z ]*","\\2",plot.data$variable))
plot.data$name <- as.factor(gsub("(L|l)evel *[1-3]/([A-Z ]*)","\\2",plot.data$variable))

代码以分别读取标题和数字开始。然后通过将 Level 和大写字母中的“单词”（我后来称之为name）组合来标记这些列。然后使用melt 命令（来自reshape2 包）将数据转换为长格式，这是ggplot 所需要的。最后，我创建了一个level 和name 变量。

现在数据已经准备好了，绘图很快就完成了：

library(ggplot2)
ggplot(plot.data,aes(x=name,y=value,fill=level)) + geom_boxplot() +
    scale_fill_discrete(labels=2000:2002) + labs(fill="Year")

最后一行设置图例中使用的标签和图例标题。结果图是：