重新排列条形图-R，ggplot，位置=“躲避”

丹4l10

我使用以下代码制作了一个数据框：

> p <- rep(c("5e-8", "0.05", "1"), 2)
> pgc1_rsq <- c(0.0037, 0.0726, 0.0847)
> meta_rsq <- c(0.0263, 0.1829, 0.1753)
> values <- c(pgc1_rsq, meta_rsq)
> Type <- c(rep("PGC1", 3), rep("PGC meta-analysis", 3))
> mydata <- data.frame(p, values)
> mydata$p <- factor(mydata$p, levels = c("5e-8", "0.05", "1"))

我使用以下代码创建了条形图：

> plot <-ggplot(mydata, aes(p, values))
> plot +geom_bar(stat = "identity", aes(fill = Type), position = "dodge") + xlab("P-value threshold") + ylab("Proportion of variance explained (Nagelkerke Rsq)")

产生此情节的原因：

我现在想对这些条进行重新排序-使“ PGC1”出现在每对中的“ PGC meta分析”之前。我尝试使“值”和“类型”因子以及订购级别都与PGC1一起出现，如下所示：

> mydata$value <- factor(mydata$value, levels = c("pgc1_rsq", "pgc_meta"))

但是，这给了我一个错误消息“类型”，并且没有产生带有“值”的预期结果。

输入和建议将不胜感激。谢谢。

埃德姆·阿卡斯（Erdem Akkas）

为什么不包括Type在您的dataframe：

p <- rep(c("5e-8", "0.05", "1"), 2)
pgc1_rsq <- c(0.0037, 0.0726, 0.0847)
meta_rsq <- c(0.0263, 0.1829, 0.1753)
values <- c(pgc1_rsq, meta_rsq)
Type <- c(rep("PGC1", 3), rep("PGC meta-analysis", 3))
mydata <- data.frame(p, values,Type)
mydata$Type <- factor(mydata$Type, levels = c("PGC1","PGC meta-analysis"))
mydata$p <- factor(mydata$p, levels = c("5e-8", "0.05", "1"))

plot <-ggplot(mydata, aes(p, values))
plot +geom_bar(stat = "identity", aes(fill = Type), position = "dodge") + xlab("P-value threshold") + ylab("Proportion of variance explained (Nagelkerke Rsq)")

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。