如何在ggplot2中仅旋转注释中的文本？

R 有 ggplot2，它是统计编程语言 R 的数据可视化包。在分析和绘制图形后，我们可以通过 annotate()函数在我们的图形中添加注释。

Syntax: annotate()

Parameters:

• geom : specify text
• x : x axis location
• y : y axis location
• label : custom textual content
• color : color of textual content
• size : size of text
• fontface : fontface of text
• angle : angle of text

方法

• 导入模块
• 创建数据框
• 绘制图形
• 使用带有必需参数的 annotate()函数

首先，让我们创建一个简单的线图。

程序：

R

# Import Package
library(ggplot2)
  
# df dataset
df <- data.frame(a=c(2,4,8),
                 b=c(5, 10, 15))
  
# Basic plot
plot = ggplot(df, aes(x = a, y = b)) + geom_point() + geom_line()
  
# angle=90
plot + annotate('text', x = 6, y = 10, 
                label = 'GeeksForGeeks',
                size = 10,
                angle='90')

输出：

我们可以通过角度参数旋转注释中的文本。要修改文本的角度，使用了“角度”参数。在下面的示例中，分配给文本“GeeksForGeeks”的角度是 180。

要更改文本的字体，请使用 fontface 参数并指定一种字体类型，如粗体、斜体等。这里，为文本指定了斜体字体。

程序 ：

电阻

# Import Package
library(ggplot2)
  
# df dataset
df <- data.frame(a=c(2,4,8),
                 b=c(5, 10, 15))
  
# Basic plot
plot = ggplot(df, aes(x = a, y = b)) + geom_point() + geom_line()
  
plot + annotate('text', x = 6, y = 7.5, 
                  label = 'GeeksForGeeks',
                  size = 10,
                  fontface='bold',
                  angle='180')

输出：

示例 2：

电阻

# Import Package
library(ggplot2)
  
# df dataset
df <- data.frame(a=c(2,4,8),
                 b=c(5, 10, 15))
   
# Basic plot
myplot = ggplot(df, aes(x = a, y = b)) + geom_point() + geom_line()
  
myplot + annotate('text', x = 6, y = 10, 
                  label = 'GeeksForGeeks',
                  size = 10,
                  angle='90')

输出：