R中的X-Y轴格式

Question

我正在尝试绘制图表并格式化 y 轴，使数字具有适当的间距（相距 5,000）并格式化为逗号（例如 350,000）。此外，我试图让 x 轴（日期）显示更多细化，以便我在 x 轴上有更多日期供查看者查看。每次我绘制图表时，我都会在 x 轴上得到数字，而不是日期。

这是我目前所拥有的

plot(date,sales,type="s",ylab="Sales",yaxt="n")
axis(1, at = seq(min(date), max(date), length.out = 1)
axis(2, at = seq(min(sales), max(sales), length.out = 20), labels = formatC(seq(min(revenue), max(revenue), length.out = 20),small.mark = " ", format = "d"), las = 2)

这是我正在使用的数据：

sales <- c(76103, 57300, 49875, 52113, 47891, 43531, 50909, 54182, 55884, 
63780, 57165, 59841, 65952, 67602, 70693, 76375, 83365, 82051, 
88568, 100717, 99344, 88980, 99034, 99593, 110497, 87223, 98350, 
102337, 116642, 116854, 138072, 137737, 84696, 64028, 74457, 
82260, 89841, 90251, 92486, 95298, 105186, 114004, 125486, 125330, 
121609, 124053, 127363, 115706, 115173, 108807, 106469, 112372, 
110860, 106773, 111647, 107490, 86029, 67618, 74113, 67344)

date <- structure(c(11292, 11382, 11474, 11566, 11657, 11747, 11839, 
11931, 12022, 12112, 12204, 12296, 12387, 12478, 12570, 12662, 
12753, 12843, 12935, 13027, 13118, 13208, 13300, 13392, 13483, 
13573, 13665, 13757, 13848, 13939, 14031, 14123, 14214, 14304, 
14396, 14488, 14579, 14669, 14761, 14853, 14944, 15034, 15126, 
15218, 15309, 15400, 15492, 15584, 15675, 15765, 15857, 15949, 
16040, 16130, 16222, 16314, 16405, 16495, 16587, 16679), class = "Date")

Answer 1

除非您的情节非常庞大（比您的屏幕大得多），否则您要求的标签数量将无法读取，因为它们会相互重叠。遵循您所要求的精神（每 5000 个 y 标记，y 标签中的逗号，更多有意义的 x 标签）：

# enlarge left margin to accommodate transposed labels
par(mar = c(5.1, 6.1, 2.1, 2.1))

# a sequence for tick marks
y_seq <- seq((min(sales) %/% 5000) * 5000, 
            (max(sales) %/% 5000 + 1) * 5000,
            by = 5000)

# a sequence for labels
y_labs <- prettyNum(y_seq, big.mark = ',')
y_labs[seq(1, length(y_labs), 2)] <- NA

plot(date, sales, type="s", ylab=NA, xaxt = 'n', yaxt = 'n')

# `axis.Date` makes sequencing and formatting easy; adapt as you like
axis.Date(1, date, at = seq.Date(min(date), max(date), by = 'year'), format = '%Y')
axis(2, at = y_seq, labels = y_labs, las = 2)

# add y label in a readable location
title(ylab = 'Sales', mgp = c(4.5, 1, 0))

产生

如果您想要更多标签，该方法可以从这里进行自定义。

最后一点：虽然您始终可以与基础 R 图形进行战斗，直到它们按照您的意愿行事，但有时当 ggplot2 具有更好的默认值时，战斗并不值得。

只有两行：

library(ggplot2)
qplot(date, sales, geom = 'step')

制作