R在y轴上改变比例格式

Question

我有一个分别在y和x轴上有$ -amounts和日期的图。目前，美元金额从0-15百万美元不等。像这样：

x <- rnorm(20)^2 * 1000000
plot(x)

R会执行'1.0e+07'而非'10,000,000'之类的操作，并且还会垂直定向文本而不是水平定向文本。

我的问题是：

1）如何将缩放文本设置为水平方向？

2）如何让R使用10MM代替'10,000,000'或'1.0e+07'？

Answer 1

1）请参阅scipen中的?options选项，这是对使用科学记数法的惩罚。为了更好地控制，您需要手动绘制所需标签的轴。

2）请参阅las中的?par，它控制轴标签的粗略定位。

1）：

x <- rnorm(20)^2 * 10000000
layout(matrix(1:2, ncol = 2))
plot(x)
getOption("scipen")
opt <- options("scipen" = 20)
getOption("scipen")
plot(x)
options(opt)
layout(1)

给出了

要绘制自己的轴，请尝试

plot(x / 10000000, axes = FALSE)
axis(1)
pts <- pretty(x / 10000000)
axis(2, at = pts, labels = paste(pts, "MM", sep = ""))
box()

哪个给出了

我们使用pretty()为R选择漂亮的位置，就像R一样，然后添加自定义轴。注意我们如何在plot()调用中抑制轴绘制，然后通过调用axis()和box()添加回轴和绘图框。

2）与1）结合

opt <- options("scipen" = 20)
op <- par(mar = c(5,7,4,2) + 0.1) ## extra margin to accommodate tick labs
x <- rnorm(20)^2 * 10000000
plot(x, las = 1, ylab = "")       ## no y-axis label 
title(ylab = "label", line = 5.5) ## need to plot the axis label
par(op)
options(opt)

哪个给出了

注意我们如何在las调用中使用plot()，我们需要创建一些额外的边距空间来容纳刻度标签。我们还需要手工绘制标签，否则R会将其粘贴在刻度标签中。

对于自定义轴标签，请将las = 1添加到axis()来电：

op <- par(mar = c(5,5,4,2) + 0.1)
plot(x / 10000000, axes = FALSE, ylab = "")
axis(1)
pts <- pretty(x / 10000000)
axis(2, at = pts, labels = paste(pts, "MM", sep = ""), las = 1)
title(ylab = "my label", line = 4)
box()
par(op)

哪个产生

Answer 2

将axis与自定义标签一起使用。首先，将您的数据除以100万。然后使用paste（）

创建一个带有MM表示法的系列

y <-rnorm(20)^2 * 1000000 /1000000
x <-11:30

plot(x,y, yaxt="n")
my.axis <-paste(axTicks(2),"MM",sep="")
axis(2,at=axTicks(2), labels=my.axis)

文字现在是水平的。但如果遇到问题，请使用las = 1来强制标签处于水平状态。

axis(2,at=axTicks(2), labels=my.axis, las=1)