r语言绘制双向水平条形图

以下是使用R语言中的ggplot2包绘制双向水平条形图的代码和示例：

# 加载ggplot2包
library(ggplot2)

# 创建数据框
df <- data.frame(
  group = c("A", "B", "C", "D", "E"),
  value = c(10, 20, 30, 40, 50),
  value2 = c(-10, -20, -30, -40, -50)
)

# 绘制双向水平条形图
ggplot(df, aes(x = value, xend = 0, y = group)) +
  geom_segment(aes(yend = group), color = "blue", size = 3) +
  geom_segment(aes(x = 0, xend = value2, y = group), color = "red", size = 3) +
  scale_x_continuous(limits = c(-60, 60), expand = c(0, 0)) +
  theme_minimal() +
  theme(
    panel.grid.major.x = element_blank(),
    panel.grid.minor.x = element_blank(),
    panel.grid.major.y = element_blank(),
    panel.grid.minor.y = element_blank(),
    axis.text.y = element_text(size = 15),
    axis.text.x = element_text(size = 15),
    axis.title.y = element_blank(),
    axis.title.x = element_text(size = 15),
    plot.title = element_text(size = 20, hjust = 0.5)
  ) +
  labs(title = "双向水平条形图示例")

上述代码中，我们首先创建了一个数据框，其中包含了需要绘制的两组数据。然后使用ggplot函数创建一个绘图对象，并使用geom_segment函数绘制两组水平条形图。其中，第一组条形图的颜色为蓝色，第二组条形图的颜色为红色。我们使用scale_x_continuous函数设置x轴的范围和展开程度，使用theme函数设置绘图的主题和样式，使用labs函数添加标题。

示例图如下所示：