我希望将我的条形图上的x轴缩放到时间,以便准确地表示何时进行测量。
我有这些数据框:
> Botcv
Date Average SE
1 2014-09-01 4.0 1.711307
2 2014-10-02 5.5 1.500000
> Botc1
Date Average SE
1 2014-10-15 2.125 0.7180703
2 2014-11-12 1.000 0.4629100
3 2014-12-11 0.500 0.2672612
> Botc2
Date Average SE
1 2014-10-15 3.375 1.3354708
2 2014-11-12 1.750 0.4531635
3 2014-12-11 0.625 0.1829813
我使用此代码生成分组条形图:
covaverage <- c(Botcv$Average,NA,NA,NA)
c1average <- c(NA,NA, Botc1$Average)
c2average <- c(NA,NA, Botc2$Average)
date <- c(Botcv$Date, Botc1$Date)
averagematrix <- matrix(c(covaverage,c1average, c2average), nrow=3, ncol=5, byrow=TRUE)
barplot(averagematrix,date, xlab="Date", ylab="Average", axis.lty=1, space=NULL,width=3,beside=T, ylim=c(0.00,6.00))
默认情况下,R将条形图等距离分开,我一直在尝试为此找到解决方法。我已经看到了其他一些利用ggplot2的解决方案,但我正在为我的硕士论文制作情节,并希望我的条形图的外观与我使用基础R图形创建的其他图形保持一致。我还想在绘图中添加误差条。如果有人能提供解决方案,那么我将非常感激!谢谢!
答案 0 :(得分:0)
如果您想获得的只是与基本主题相匹配的主题,则+ theme_bw()
中的ggplot2
将实现此目的:
data(mtcars)
require(ggplot2)
ggplot(mtcars, aes(factor(cyl), mpg)) +
geom_boxplot() +
theme_bw()
<强> 结果 强>
<强> 替代 强>
boxplot(mpg~cyl,data=mtcars)
正如你所说,如果你想要实现的唯一目标是类似的外观,并且使用ggplot2
在theme_bw()
中有工作情节应该产生的图表与派生的图表无法区分通过标准的绘图机制。如果您有这种倾向,可以调整一些细节,如字体大小,图形边框的厚度或异常值的可视化。