0

我正在尝试修改在这篇文章中创建的图中的构面标签。

重复代码:

library(ggplot2)

mymatrix1 <- matrix(data = 0, nrow = 105, ncol =2)
mymatrix2 <- matrix(data = 0, nrow = 108, ncol =2)
mymatrix3 <- matrix(data = 0, nrow = 112, ncol =2)

mymatrix1[,1] <- sample(0:1, 105, replace= TRUE)
mymatrix1[,2] <- rnorm(105, 52, 2)
mymatrix2[,1] <- sample(0:1, 108, replace= TRUE)
mymatrix2[,2] <- rnorm(108, 60, 2)
mymatrix3[,1] <- sample(0:1, 112, replace= TRUE)
mymatrix3[,2] <- rnorm(112, 70, 2)

mydata <- list(mymatrix1, mymatrix2,mymatrix3)

for(i in 1:3){
    mydata[[i]] <- cbind(mydata[[i]], i)
    colnames(mydata[[i]]) <- c("class", "readcount", "group")
}  

mydata <- as.data.frame(do.call(rbind, mydata))

## fixed scales
p <- qplot(class, readcount, data = mydata, geom="boxplot", fill = factor(class)) +
  geom_jitter(position=position_jitter(w=0.1,h=0.1)) +
  scale_x_continuous(breaks=c(0,1), labels=c("0", "1")) +
  facet_wrap(~ group)

## free scales
p + facet_wrap(~ group, scales = "free")

在这个情节中,我的目标是将分面标签 1、2 和 3 更改为“a”、“b”或“c”。我认为只需在 for 循环中将数据框列“组”更改为字母而不是数字:

for(i in 1:3){
    mydata[[i]] <- cbind(mydata[[i]], letters[i])
    colnames(mydata[[i]]) <- c("class", "readcount", "group")
}

会工作,但我得到这个错误:

Error: Discrete value supplied to continuous scale.

有什么建议么?我查看了其他帖子以更改构面标签,但它们似乎不适用于这种类型的情节(至少对我而言)。

非常感谢。

4

1 回答 1

0

你在寻找这样的东西吗?

mydata$group <- as.factor(mydata$group)
levels(mydata$group) <- c("A","B","C")
于 2014-10-30T20:55:11.280 回答