调整绘图右侧第二个Y轴的标签
问题描述：
我已绘制下图，但无法调整秒Y轴的标签。有人知道这有可能吗？调整绘图右侧第二个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"))
答
其实是“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）”，因为那些具有许多零的长数很难读取（我不得不把它们放在它们上面并计数零，你不希望你的读者必须这样做）。
我不明白你想要做什么与标签。他们看起来很好。你可以解释吗？右边的轴被限制在顶部，因为第二个绘图适合第一个绘图的“窗口”。发布你的代码，它会让你更容易帮助你。 – 2014-12-03 11:07:33
@什么，当我把它放在那里时，右边的轴（y）标签不存在。将更新代码 – UserYmY 2014-12-03 11:54:20