{"id":936,"date":"2011-06-16T10:25:44","date_gmt":"2011-06-16T14:25:44","guid":{"rendered":"http:\/\/www.nomad.priv.at\/researchblog\/?p=936"},"modified":"2011-06-16T10:25:44","modified_gmt":"2011-06-16T14:25:44","slug":"fixed-unable-to-plot-a-decent-x-axis-in-a-time-series-plot-using-zoo","status":"publish","type":"post","link":"http:\/\/www.nomad.priv.at\/researchblog\/?p=936","title":{"rendered":"Fixed: Unable to plot a decent x-Axis in a time series plot using zoo"},"content":{"rendered":"

Here is the link<\/a> to the original problem. Briefly, I was unable to plot a custom x-axis showing abbreviated months in a time series plot of a zoo object.<\/p>\n

In the plot.zoo()<\/code> function set <\/p>\n

xaxt = "n"<\/pre>\n
 to suppress plotting of the x-axis<\/p>\n
Since I needed abbreviated months to be plotted as the x-axis, I loaded a csv file with the dates of the first of each month as follows and converted it to dates:<\/p>\n
“month”
\n2004-12-01
\n2005-01-01
\n2005-02-01
\n…<\/p>\n
(I included Dec 2004, because otherwise “Jan” would not be plotted)<\/p>\n
month < - read.csv("~\/R\/2005months.csv")<\/pre>\n
month$month < - as.Date(month$month, "%Y-%m-%d")<\/pre>\n
After the plot.zoo<\/code> command I added the following line – <\/p>\n
axis(1, month$month, format(month$month, "%b"))<\/pre>\n
The solution was inspired by a post from Gabor Grothendieck<\/a> on r-help. The original solution is still the only way to plot abbreviated months for time series plots of monthly averages.<\/p>\n","protected":false},"excerpt":{"rendered":"
Here is the link to the original problem. Briefly, I was unable to plot a custom x-axis showing abbreviated months in a time series plot of a zoo object. In the plot.zoo() function set xaxt = "n" to suppress plotting of the x-axis Since I needed abbreviated months to be plotted as the x-axis, I … Continue reading Fixed: Unable to plot a decent x-Axis in a time series plot using zoo<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6,4],"tags":[277,511,394],"class_list":["post-936","post","type-post","status-publish","format-standard","hentry","category-r","category-research","tag-plot","tag-r","tag-zoo"],"_links":{"self":[{"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=\/wp\/v2\/posts\/936","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=936"}],"version-history":[{"count":0,"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=\/wp\/v2\/posts\/936\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=936"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=936"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=936"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}