1
我想用自定義的X軸來繪製堆積區域圖表圖表。具體來說,我想用cex.axis = 0.8來標記x軸上的刻度標記(使它適合所有值),我想用紅色來突出顯示一些x值(例如,週末日期與平日相反)。如何使用自定義X軸標籤來繪製堆積區域圖表
plotrix軟件包中的stackpoly可以很好地創建繪圖。但我無法控制cex.axis或抑制x軸繪圖。
這裏是我的兩次嘗試完成這個工作:
## dates in winter of 2014 (these are the labels for my X-axis)
date.labels=paste(c(rep(1,2), rep(2,21)), c(30, 31, 1:21), sep = "/")
> date.labels
[1] "1/30" "1/31" "2/1" "2/2" "2/3" "2/4" "2/5" "2/6" "2/7" "2/8" "2/9" "2/10" "2/11"
[14] "2/12" "2/13" "2/14" "2/15" "2/16" "2/17" "2/18" "2/19" "2/20" "2/21"
weekend=c(FALSE, FALSE, TRUE, TRUE, rep(FALSE, 5), TRUE, TRUE, rep(FALSE, 5), TRUE, TRUE, rep(FALSE, 5))
set.seed(10)
#This is the data I want to plot
fake.data=data.frame(abs(rnorm(23)), abs(rnorm(23)), abs(rnorm(23)))
library("plotrix")
#First attempt: use cex.axis in stackpoly to control font size.
#overplot the weekend dates with red via axis()
stackpoly(fake.data, stack=TRUE, xat=1:23, xaxlab=date.labels, cex.axis=0.8,
xlab="dates in 2014", sub="weekend dates are marked red")
#stackpoly ignores cex.axis=0.8
axis(1, (1:23)[weekend], labels= date.labels[ weekend], col.axis="red", cex.axis=0.8)
#but axis does not ignore cex.axis=0.8
## Another attempt: suppress x axis altogether in stackpoly
stackpoly(fake.data, stack=TRUE, xlim=c(1,23), xaxt="n",
xlab="dates in 2014", sub="weekend dates are marked red")
#stackpoly ignores xaxt="n"
axis(1, (1:23)[weekend], labels= date.labels[ weekend], col.axis="red", cex.axis=0.8)
axis(1, (1:23)[!weekend], labels= date.labels [ !weekend], col.axis="black", cex.axis=0.8)
#but axis does not ignore cex.axis=0.8