作者Retangle ()
看板R_Language
标题[问题] plot时间关系图的时间轴间距
时间Sat Dec 15 23:01:05 2018
[问题类型]:
程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来)
[软体熟悉度]:
入门(写过其他程式，只是对语法不熟悉)
[问题叙述]:
我在画一笔资料和时间的关系，但是资料的时间尺度是5天
所以横座标的间隔被自动换成星期表示 (时间轴使用lubridate包产生)
想请教如何才能让他用日期表示
已经试过 yaxt="n" 然後用 axis()重设
但时间轴会变成lubridate转换时间的numeric 如1542528000、1542614400
[程式范例]:
library(readxl)
library(lubridate)
library(plotrix)
#data = read_excel("C:/Users/User/Desktop/observe.xlsx",na="NA") 原本的资料
data2=list(51,43,39,16,18,22,21,33,43,17,25,29,29,31,32) #其中一项资料
x2=seq(from=ymd_hm("2018-11-16-08-00"),to=ymd_hm("2018-11-20-20-00"),by=6*60*60)
x3=c(x2[1],x2[2],x2[3],x2[5],x2[6],x2[7],x2[9],x2[10],x2[11],x2[13],x2[14],x2[15],x2[17],x2[18],x2[19])
plot(x3,data2,type="b",xlab="时间:11/16~11/20每日0800、1400、2000",
ylab="pm10 (μg/m^3)",yaxs="i",yaxt="n",ylim=c(15,55),col="blue")
axis(2,at=seq(15,55,5))
[环境叙述]:
R version 3.5.1 (2018-07-02)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)
Matrix products: default
locale:
[1] LC_COLLATE=Japanese_Japan.932 LC_CTYPE=Japanese_Japan.932
LC_MONETARY=Japanese_Japan.932 LC_NUMERIC=C
[5] LC_TIME=Japanese_Japan.932
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] lubridate_1.7.4 readxl_1.1.0
loaded via a namespace (and not attached):
[1] compiler_3.5.1 magrittr_1.5 tools_3.5.1 pillar_1.3.0
tibble_1.4.2 crayon_1.3.4 Rcpp_1.0.0
[8] cellranger_1.1.0 stringi_1.1.7 stringr_1.3.1 rlang_0.2.2
[关键字]:
lubridate plot 时间轴间隔 星期改回日期
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.115.217.19
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1544886070.A.0CF.html
2F：→ andrew43: 先提供一小段原始资料，特别是日期被记录的方式。 12/16 16:57
3F：→ cywhale: 不太确定你使用的函数和程式码不好给建议，但若重给axis 12/16 17:14
4F：→ cywhale: 比如原本时间太长以至於时间轴时间被自动改掉 你可以自给 12/16 17:15
5F：→ cywhale: tx=seq.Date(ymd('2018-01-01'),ymd('2018-12-31'),by= 12/16 17:16
6F：→ cywhale: "month"); axis(1,at=tx,labels=tx) 类似这样重新给label 12/16 17:17
已在原文附上附上程式码
※ 编辑: Retangle (140.115.217.19), 12/17/2018 10:18:37
7F：→ andrew43: 强制 axis.POSIXct(1, x = x3, format = "%F") 12/17 11:33
8F：→ andrew43: 记得plot()中加xaxt="n"使x-axis先不画刻度 12/17 11:34
9F：→ andrew43: format的用法请看 ?strptime 12/17 11:35
10F：→ andrew43: 如果刻度位置有正负偏，可注意时区。 12/17 11:37