如何标记我的 y 轴，并使简单的图形在 r 中看起来不错？答案

【问题标题】：How to do I label my y axis, and make a simple graph look good in r?如何标记我的 y 轴，并使简单的图形在 r 中看起来不错？
【发布时间】：2015-03-24 22:51:30
【问题描述】：

您好，我必须使用 r 制作一个简单的图表，但我想让它看起来不错，我在标记 y 轴时也遇到了一些问题，到目前为止我写的是这样的：

anim <- c(1.72,1.6,1.7,1.74,1.8)
mirr <- c(.80,.95,1.13,1.17,1.26)
g_range <- range(0.8, anim, mirr)
plot(anim, type="o", col="blue", ylim=g_range, axes=FALSE, ann=FALSE)
axis(1, at=1:5, lab=c(".5", ".6", ".7", ".8", ".9"))
axis(2, las=2, at=0:g_range[2])
axis(2)
box()
lines(mirr, type="o", pch=22, lty=2, col="red")
title(main="corr vs dprime", col.main="forestgreen", font.main=4)
title(xlab="Correlation", col.lab="black", font.main=4)
title(ylab="dprime", col.lab="black", font.main=4)
legend(1, g_range[2], c("anim", "mirr"), cex=0.8,
col=c("blue","red"), pch=21:22, lty=1:2);

给出了这个图表：

我不知道如何使图形区域足够大以舒适地放入图例，以及如何正确标记我的 y 轴，我不知道横向 1 是从哪里来的？ r 新手，所以任何帮助都会很棒！

【问题讨论】：

您可以使用ylim=g_range + c(0, .2) 代替您现在拥有的。有两个 y 轴，因为你在做 axis(2, ...) 两次
向下移动您的图例。见?legend。使用 x 和 y 参数。要更改轴刻度标签的方向，请阅读 ?par 的帮助页面（并找到“las”参数）。

标签： r plot axis

【解决方案1】：

如果您选择继续使用 R 中的 base 绘图功能，您可以解决您的每一个问题。以下回复只是为了回顾和说明此问题的先前 cmet，并包含其他与 SO 相关的材料以获得额外帮助。

首先，让我们解决 y 轴问题。正如原始 cmets 中所建议的，您当前相对于 y 轴调用了两次 axis 命令。通过尽早确定所需的 y 轴限制，可以使用 ylim 参数轻松应用它们。

df<-data.frame(anim=c(1.72,1.6,1.7,1.74,1.8),mirr=c(.80,.95,1.13,1.17,1.26))
gmin<-min(df) #<---- ESTABLISH MIN Y-AXIS VALUE
gmax<-max(df) #<---- ESTABLISH MAX Y-AXIS VALUE
plot(df$anim,type="o",col="blue",ylim=c(gmin,gmax),axes=FALSE,ann=FALSE)
box()
axis(1,at=1:5,lab=seq(0.5,0.9,0.1))
axis(2,seq(gmin,gmax,0.2),las=2)
lines(df$mirr,type="o",pch=22,lty=2,col="red")
title(main="corr vs dprime",col.main="forestgreen",font.main=4)
title(xlab="Correlation",col.lab="black",font.main=4)
title(ylab="dprime",col.lab="black",font.main=4)

其次，图例可以放置在绘图区域内或放置在外部。按照原始 cmets 中的建议，输入 ?legend 并查看 x, y 参数以定位您的图例。这可能是您最好的方法，因为您的 x 和 y 值范围很小，这将允许轻松放置图例。虽然不太具体，但您也可以使用关键字来指定图例的位置（详细信息下的?legend），例如“bottomright”、“bottom”、“bottomleft”、“left”、“topleft”、“top”、“topright” 、“右”和“中心”。例如：

legend('bottomright', c("anim", "mirr"), cex=0.8,col=c("blue","red"), pch=21:22, lty=1:2)

调整参数（例如x.intersp、y.intersp 和cex）将允许您更改图例的形状和相对大小。

此外，您可以使用ggplot2 在绘图区域之外创建图例，如上一个答案所示。在以下 SO 答案中推荐了几个选项：Plot a legend outside of the plotting area in base graphics?。最流行的方法利用par 中的xpd 参数，然后是legend 中的x, y 或inset 参数。

无需调整绘图区域的边距，您只需选择 x 和 y 参数，以便正确放置图例而不与其他项目重叠。例如：

par(xpd=TRUE)
legend(4.5,2.1,c('anim','mirr'),cex=0.8,col=c('blue','red'),pch=21:22,lty=1:2)

可以使用legend 中的bty 参数控制有关图例的框。

如果您希望您的图例更像上一个答案，则需要查看 par 中的 mai、mar 和 oma 参数，以便正确显示图例 (see here) .配置完成后，您可以使用 legend 中的 inset 参数指定图例在绘图区域之外的位置：

par(oma=c(0,0,0,1),mar=c(5.1,4.1, 4.1, 5.1),xpd=T)
plot(df$anim,type="o",col="blue",ylim=c(gmin,gmax),axes=FALSE,ann=FALSE)
box()
axis(1,at=1:5,lab=seq(0.5,0.9,0.1))
axis(2,seq(gmin,gmax,0.2),las=2)
lines(df$mirr,type="o",pch=22,lty=2,col="red")
title(main="corr vs dprime",col.main="forestgreen",font.main=4)
title(xlab="Correlation",col.lab="black",font.main=4)
title(ylab="dprime",col.lab="black",font.main=4)
legend('right',inset=c(-0.4,0),c('anim','mirr'),cex=0.8,col=c('blue','red'),pch=21:22,lty=1:2)

除了其他答案，我希望这篇小评论对您当前的情况有所帮助，并展示 R 使用 base 和其他绘图功能的灵活性。归功于以前的用户和他们的 cmets 以及其他 SO 答案。

【讨论】：

【解决方案2】：

我会使用ggplot2:

anim <- c(1.72,1.6,1.7,1.74,1.8)
mirr <- c(.80,.95,1.13,1.17,1.26)

df <- data.frame(
dprime = c(anim, mirr),
correlation = rep(seq(.5,.9,.1), 2),
group = rep(c("anim", "mirr"), each=5)
)
# Uncomment if you don't have ggplot2 installed
# install.packages("ggplot2")

library(ggplot2)

g <- ggplot(df, aes(correlation, dprime, color=group)) + 
  geom_line() +
  geom_point() +
  ggtitle("Corr vs. Dprime")
g

【讨论】：