日期直方图的轴颜色以R为单位

问题描述

| 我已经使用日期字段成功创建了直方图。

hist(df.sat$created_at,breaks=\"hours\",freq=T,xlab=\"Time\",main=\"Sat  Volume\")

我的问题是，当我只想使用条形图时，当尝试使用ѭ1填充条形图时，两个条形图和x / y轴都变为红色。什么是最好的方式只填写酒吧？ 以下是一些数据：

    > dput(df.sat$created_at[sample(c(1:9000),50)])
structure(list(sec = c(41,3,13,11,49,55,19,21,6,15,54,45,39,50,27,35,25,22,42,31,29,1,8,47,38,2,34,41,12,26,5),min = c(46L,38L,4L,35L,26L,56L,9L,52L,51L,15L,49L,3L,41L,59L,30L,53L,25L,23L,43L,33L,36L,0L,21L,27L,22L,31L,37L,2L,12L,45L,13L,10L,11L,7L,5L,20L),hour = c(14L,16L,18L,14L,17L,19L,20L,17L),mday = c(9L,9L),mon = c(3L,3L),year = c(111L,111L,111L),wday = c(6L,6L,6L),yday = c(98L,98L,98L),isdst = c(1L,1L,1L)),.Names = c(\"sec\",\"min\",\"hour\",\"mday\",\"mon\",\"year\",\"wday\",\"yday\",\"isdst\"),class = c(\"POSIXlt\",\"POSIXt\"),tzone = c(\"America/New_York\",\"EST\",\"EDT\"))

    

解决方法

您必须先绘制直方图，然后再绘制轴，以解决该问题：

hist(Data,breaks=\"hours\",freq=T,xlab=\"Time\",col=\"red\",main=\"Sat  Volume\",axes=F)
Axis(Data,col=\"black\",side=1)
axis(2,col=\"black\")

使用通用

Axis()

的原因是，它考虑到您的变量是TimeDate类。默认值“ 5”没有。 编辑： 仅供参考，只有在X轴上使用“ 6”类的直方图才能看到此行为。当对条使用填充颜色时，默认的“ 7”功能不会更改轴的颜色。     ,绘制没有轴的直方图，然后在以后添加它们：

hist(dat,freq=TRUE,col = \"red\",axes = FALSE)
axis.POSIXct(side = 1,dat)
axis(2)