R语言 如何用ggplot2在R中制作哑铃图

哑铃图显示了我们的数据集中两点之间的变化。它之所以被命名为哑铃图，是因为它是哑铃形状的。它可以帮助我们分类地理解数据的跨度。为了在R中使用ggplot2制作哑铃图，我们使用geom_dumbbell()函数。

语法： geom_dumbbell(data, aes(y, x, xend), size, color, size_x, size_xend, colour_x, color_xend)

参数 。

• data： 用于绘制数据的数据框
• size: 哑铃中条形的大小
• color : 哑铃中条形的颜色
• size_x: 绘图中第一个圆的大小
• color_x: 绘图中第一个圆的颜色
• size_xend: 绘图中第二个圆的大小
• color_xend: 图中第二个圆的颜色

在ggplot2中，哑铃图可以通过geom_dumbbell()函数来建立。至少有三个变量必须提供给aeS()，即y、x和xend。

创建基本的哑铃图

下面是一个使用ggplot2包的基本哑铃图。

# create data sets
ylabel <- c("first","second","third")
x1 <- c(1,2,3)
x2 <- c(4,3,5)
datamain <- data.frame(ylabel,x1,x2)
  
# import ggplot2, ggalt and tidyverse
library(ggplot2) 
library(ggalt)   
library(tidyverse)
  
# Draw dumbbell plot
ggplot() + geom_dumbbell(data = datamain, 
                         aes(y = ylabel,
                             x = x1, 
                             xend = x2),
                         size = 1.5)

输出

自定义哑铃图的大小

我们可以通过改变哑铃图中圆的半径或中间段的宽度来定制哑铃图。

# create data sets
ylabel <- c("first","second","third")
x1 <- c(1,2,3)
x2 <- c(4,3,5)
datamain <- data.frame(ylabel,x1,x2)
  
# import ggplot2, ggalt and tidyverse
library(ggplot2) 
library(ggalt)   
library(tidyverse)
  
# Draw dumbbell plot
ggplot() + geom_dumbbell(data = datamain,
                         aes(y = ylabel,
                             x = x1,
                             xend = x2),
                         size = 1.5,
                         size_x = 5, 
                         size_xend = 9)

输出

自定义哑铃图的颜色

我们可以通过使用color_x和color_xend属性来定制哑铃图的颜色。

# create data sets
ylabel <- c("first","second","third",
            "fourth","fifth","Sixth")
x1 <- c(1,2,4,5,3,2)
x2 <- c(4,3,6,7,5,4)
  
datamain <- data.frame(ylabel,x1,x2)
  
# import ggplot2, ggalt and tidyverse
library(ggplot2)  
library(ggalt)    
library(tidyverse)
  
# Draw dumbbell plot
ggplot() +
 geom_dumbbell(data = datamain, aes(y = ylabel,
                                    x = x1, 
                                    xend = x2),
               size = 1.5, color = "blue", size_x = 7,
               size_xend = 7, colour_x = "green",
               colour_xend = "yellow")

输出