如何在 R 中仅显示 Plot 中的值?
在本文中,我们将讨论如何在 R 编程语言中只显示 Plot 中的值。
在图中仅显示值的两种不同方法如下:
- 在 Plot 中使用 text()函数仅显示值。
- 在 Plot 中使用 ggplot2 包中的 geom_text()函数仅显示值。
方法 1 :在 Plot 中使用 text()函数仅显示值。
在这个函数,用户只需要在 R 语言中调用 plot()函数后,调用带有指定参数的 text()函数,这个过程将导致用户提供的点与图中的值一起绘制.
text()函数:该函数用于在 r 语言中在 x 和 y 给定的坐标处绘制向量标签中给定的字符串。
Syntax: text (x, y = NULL, labels = seq_along(x$x), adj = NULL,pos = NULL, offset = 0.5, vfont = NULL,cex = 1, col = NULL, font = NULL, …)
Parameters:
- x, y:-numeric vectors of coordinates where the text labels should be written. If the length of x and y differs, the shorter one is recycled.
- labels:-a character vector or expression specifying the text to be written
示例:在此示例中,我们将取五个点并使用 R 语言中的 text()函数在图上显示 y 坐标值。
R
gfg_data <- data.frame(x =c(1,2,3,4,5),
y = c(4,9,5,2,3))
plot(x = gfg_data$x,y = gfg_data$y,type = "n")
text(x = gfg_data$x,y = gfg_data$y,labels = gfg_data$y)
R
library("ggplot2")
gfg_data <- data.frame(x =c(1,2,3,4,5),
y = c(4,9,5,2,3))
ggplot(gfg_data, aes(gfg_data$x, gfg_data$y,
label = gfg_data$y))+geom_text()
输出:
方法 2:在 Plot 中使用 ggplot2 包中的 geom_text()函数仅显示值。
与前一种方法相比,这种只显示值的方法是最简单的方法,因为在这种方法中,用户只需使用 R 语言 ggplot 库中的 ggplot() 函数调用 geom_text()函数,并指定参数,该函数将返回仅显示值的图。
geom_text()函数:该函数用于 r 语言的文本注释。
Syntax: geom_text(mapping = NULL, data = NULL, stat = “identity”,position = “identity”, parse = FALSE, …)
Parameters:
- parse:-If TRUE, the labels will be parsed into expressions and displayed as described in ?plotmath.
- mapping:-The aesthetic mapping, usually constructed with aes or aes_string.
- data:-A layer-specific dataset – only needed if you want to override the plot defaults.
- stat:-The statistical transformation to use on the data for this layer.
- position:-The position adjustment to use for overlapping points on this layer
- …:-other arguments passed on to layer. This can include aesthetics whose values you want to set, not map.
在这个例子中,我们将取五个点(与之前使用的相同)并使用 geom_text()函数和 ggplot2 包在 r 语言中显示图上的 y 坐标值。
下面是实现:
电阻
library("ggplot2")
gfg_data <- data.frame(x =c(1,2,3,4,5),
y = c(4,9,5,2,3))
ggplot(gfg_data, aes(gfg_data$x, gfg_data$y,
label = gfg_data$y))+geom_text()
输出: