调整绘图右侧第二个Y轴的标签

Question

我已绘制下图，但无法调整秒Y轴的标签。有人知道这有可能吗？

另外我的右手Y轴的限制从1到14 * 10^8，但是当我设置它时，它只会从零到1.4。找不到原因！

这里是我用来做剧情

fdic <- data.frame(matrix(scan(text ="1 16.70833333 1329877000 
2 17.20370370 1118256000 
3 16.61111111 1047726000 
4 19.05555556 972202000 
5 15.50925926 269648386 
6 0.07407407 248606000 
7 3.00925926 220576899 
8 5.83796296 188132575"), 8, 3, byrow = T)) 
colnames(fdic) <- c("id", "botnets_per_wk", "Deposits") 

plot <- plot(fdic$id, fdic$botnets_per_wk, pch=16, axes=FALSE, ylim=c(0,25), xlab="", ylab="", 
type="l",col="dark blue") 
axis(2, col="black",las=1) 
mtext("Average # of botnets attacking banks per week",side=2,line=2.5) 
box() 
par(new=TRUE) 
plot(fdic$id, fdic$Deposits, pch=15, xlab="", ylab="", ylim=c(1,1400000000), 
axes=FALSE, type="l", col="red") 
mtext("Deposits (USD, logged)",side=4,col="red",line=4) 
axis(4, ylim=c(1,1400000000), col="black",col.axis="black",las=1) 
axis(1,at = seq(1, 50, by = 1)) 
mtext("bank",side=1,col="black",line=2.5) 
legend("topleft",legend=c("Average # of botnets attacking banks per week","Deposits"), 
text.col=c("black","red"),pch=c(16,15),col=c("black","red")) 

Answer 1

其实是“1.4”你看到的是1.4e+09，1.4十亿科学记数法的代码。使用options(scipen=999)关闭科学记数法在R（此复位的R重启后），然后用par(mai=c(...))为长数字调整左边距是完全可见：

fdic <- data.frame(matrix(scan(text ="1 16.70833333 1329877000 
2 17.20370370 1118256000 
3 16.61111111 1047726000 
4 19.05555556 972202000 
5 15.50925926 269648386 
6 0.07407407 248606000 
7 3.00925926 220576899 
8 5.83796296 188132575"), 8, 3, byrow = T)) 
colnames(fdic) <- c("id", "botnets_per_wk", "Deposits") 

options(scipen=999) 

par(mai = c(1, 1, 1, 2)) 
plot <- plot(fdic$id, fdic$botnets_per_wk, pch=16, axes=FALSE, ylim=c(0,25), xlab="", ylab="", type="l",col="dark blue") 
axis(2, col="black",las=1) 
mtext("Average # of botnets attacking banks per week",side=2,line=2.5) 
box() 
par(new=TRUE) 
plot(fdic$id, fdic$Deposits, pch=15, xlab="", ylab="", ylim=c(1,1400000000), axes=FALSE, type="l", col="red") 
mtext("Deposits (USD, logged)",side=4,col="red",line=4) 
axis(4, ylim=c(1,1400000000), col="black",col.axis="black",las=1) 
axis(1,at = seq(1, 50, by = 1)) 
mtext("bank",side=1,col="black",line=2.5) 
legend("topleft",legend=c("Average # of botnets attacking banks per week","Deposits"), text.col=c("black","red"),pch=c(16,15),col=c("black","red")) 

但实际上，我想离开1.4 -scale并将该轴标记为“存款（in billion US Dollar，logged）”，因为那些具有许多零的长数很难读取（我不得不把它们放在它们上面并计数零，你不希望你的读者必须这样做）。