Question

我有一些xts数据，我想减小“主要”文本的大小，但保留其余文本的原始大小。因此，我尝试使用cex.main，但这不起作用。唯一有效的功能是cex，但这会更改我所有文本的大小，而不仅仅是主文本。

这是我当前的代码和数据：

pdf("52_week_ratio_of_technology_to_dispatch_weighted_moving_average_SA.pdf",onefile=TRUE)
plot(ratio_data_dated[, grep("Gas|Coal", names(ratio_data_dated))],
     legend(grep("Gas|Coal", names(ratio_data_dated))),
     cex=0.45,
     col = c("red", "blue"),
     main = "SA: 52 week moving average of ratio of technology to time weighted price",
     legend.loc = "topleft")
dev.off()

> head(ratio_data_dated)
           Battery Brown.Coal      Gas Liquid.Fuel Rooftop.PV Solar      Wind
2011-01-01       0  1.0301403 1.380166    9.023921          0     0 0.9038254
2011-01-08       0  0.9390685 1.214767    6.662844          0     0 0.7722963
2011-01-15       0  1.0262270 1.288217    6.116886          0     0 0.7821223
2011-01-22       0  1.0299489 1.292552    6.116968          0     0 0.7843045
2011-01-29       0  1.0752547 1.531712    7.580647          0     0 0.8201304
2011-02-05       0  0.8692285 1.286059    6.160726          0     0 0.6858254

> str(ratio_data_dated)
An ‘xts’ object on 2011-01-01/2018-12-29 containing:
  Data: num [1:418, 1:7] 0 0 0 0 0 0 0 0 0 0 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:7] "Battery" "Brown.Coal" "Gas" "Liquid.Fuel" ...
  Indexed by objects of class: [POSIXct,POSIXt] TZ: 
  xts Attributes:  
 NULL

谢谢您的任何帮助。

Answer 1

我总是恢复使用基准R绘图选项。给我我所需要的。在这种情况下，您可以执行以下操作。创建绘图时，我强制主标题为空，然后使用标题设置所有正确的选项。 plot.xts使用它自己的绘图设备，而不是使用基本R绘图选项。我倾向于否决这些规则，以便给予我更多控制权。

plot(ratio_data_dated[, grep("Gas|Coal", names(ratio_data_dated))],
     main = NULL)

addLegend("topleft", 
          on = 1,
          lty = 1
          )
title(main = "SA: 52 week moving average of ratio of technology to time weighted price", cex.main = 0.45)

您可能想研究一个名为rtsplot的小包装。这是xts对象的所有基本R功能，但在准确绘制所需数据（如您所拥有的内容）时，学习曲线很小。

绘制[xts]时将忽略cex.main

1 个答案: