添加刻度以不同格式绘制轴

编程问答 2022-06-03

问题描述

我有问题。

为了方便地绘制时间序列，我使用以下代码设置了日期

p.date<-as.Date(liquid_fund$time,format="d%/m%/Y%")
fix(p.date)

所以我不得不“保存”这个：

    structure(c(18535,18505,18474,18443,18413,18382,18352,18321,18292,18261,18230,18200,18169,18139,18108,18077,18047,18016,17986,17955,17927,17896,17865,17835,17804,17774,17743,17712,17682,17651,17621,17590,17562,17531,17500,17470,17439,17409,17378,17347,17317,17286,17256,17225,...),class = "Date")

这是我的数据结构：

>str(liquid_fund)
tibble [277 x 9] (S3: tbl_df/tbl/data.frame)
 $ time                                            : POSIXct[1:277],format: "2020-09-30" "2020-08-31" "2020-07-31" ...
 $ loans vis-a-vis euro area                       : num [1:277] 2247263 2186448 2163948 2131610 1987014 ...
 $ outstanding amounts at end of period            : num [1:277] NA NA NA 772998 NA ...
 $ banks' funding by central banks                 : num [1:277] 4.63 4.02 4.08 4.27 2.58 2.48 2.16 1.25 1.25 1.18 ...
 $ share of liquid assets in short term liabilities: num [1:277] 46.6 NA NA 45.1 NA ...
 $ loan-to-deposit ratio                           : chr [1:277] NA NA NA "83.640100000000004" ...
 $ liquid assets                                   : chr [1:277] NA NA NA "16.375" ...
 $ wholesale funding                               : chr [1:277] NA NA NA "44.570700000000002" ...
 $ secured wholesale funding                       : chr [1:277] NA NA NA "32.077399999999997" ...

然后我这样绘制数据：

windows(30,10)
plot(liquid_fund$`wholesale funding`~p.date,type="h",col=" dark green",xlab="time",ylab="wholesale 
     funding",xlim=c(16000,18500),ylim=c(35,55))

但是现在由于日期格式的原因，我无法添加新的刻度。仅出现2020年。唯一出现的是2020年，但我希望图表更加精确。当我写：

axis(1,at = seq(17000,18500,335),labels="y%-m%-d%")

它添加了类似“ 17335”的刻度，但格式与2020不同。

能请你帮忙吗？

PS：我尝试使用ggplot2并将结构更改为数字，但是，我得到的只是一条直线...

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

as.dateaxisformatplotrr