如何替换轴上的行名数据

Question

在 R 编程中，我使用绘图函数来生成数据图。我正在努力弄清楚我是否使用正确的方法在可视化上显示平均值。

我想获取一个数字数据集（电子表格的列）并对其运行平均函数并将其放入变量中。

示例：mean_variable <- mean(table$

numericcolumn

)

然后我想获取该变量并将其打印到标签中。显然数据是数字，所以我想要一个标签来描述这个数字值是什么。

示例：标签（“数据平均值：”mean_variable）

我尝试过使用几种不同的标签选项。

自从使用绘图命令以来，我的第一个想法是，X 轴是数据轴，即数据的平均值，我会使用子标签。出于显示目的，假设存储在 Mean_variable 中的值等于 5。我对副标题尝试了以下操作：

sub =“数据平均值：”toString(mean_variable)) sub =“数据平均值：” print(mean_variable))

我期望上述结果中的任何一个是“数据平均值：5”

如果这更有意义或更容易操作，我愿意将其移到副标题之外。 我是 R 新手，所以我什至不确定我是否问了正确的问题。结果，从搜索中得到了错误的答案。我一直在尝试查找有关如何在标签中显示变量的信息。

Answer 1

有几种方法可以向绘图添加文本注释。这里有很好的教程：https://www.statmethods.net/advgraphs/axes.html

首先，您可能想使用

paste()

将标签文本与数字连接起来。它会将

numeric

强制转换为

character

给你。

您可以使用

mtext()

在图的边缘添加注释。有参数可以控制该文本的位置。

您可以使用

text()

将注释直接放入绘图区域。在那里，您需要提供标签的

x

和

y

位置，如果您想将其放置在特定点旁边而不是顶部，还可以使用参数来微调它。

mean_x <- mean(cars$speed)
mean_y <- mean(cars$dist)
plot(cars)
text(mean_x, mean_y, paste("Average of Data:", mean_x)) # goes in plot area
mtext(paste("Average of Data:", mean_x), side = 1) # goes on margin

^{创建于 2023-09-23，使用 reprex v2.0.2}