我正在寻找一种在ggplot2的图形中获取真实减号的方法。
产生资料:
score <- c(rnorm(8, 20, 3), rnorm(8, 35, 5))
gene <- factor((rep(c(1,2), each = 8)))
df <- data.frame(gene, score)
现在,使用包含减号的名称重命名factor
require(plyr)
df$gene <- mapvalues(df$gene, from = c(1,2), to = c("Gene -", "Gene +"))
现在在ggplot2中绘制数据框
cellMeansDF <- aggregate(score ~ gene, df, mean)
require(ggplot2)
plot1 <- ggplot(cellMeansDF, aes(gene, score)) +
geom_bar(stat = "identity", position = "dodge", size = 0.1) +
xlab("") +
theme(axis.text.x = element_text(face = "plain", color = "black", size = 15))
plot1
现在注意减号不够宽。这确实是一个破折号。如何使ggplot2显示真实的负号?即使是破折号也可以。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句