r - ggplot2 二进制数据的条形图

Question

我有一列数据集，例如： [1, 2, 1, 1, 1, 1, 2, 2, ...] 其中 1 是男性，2 是女性。

我想要的是创建一个像图片中那样的情节，但我做不到。

ggplot(aes(x=age)) + geom_density(fill="#69b3a2", color="#e9ecef", alpha=0.8)

我不知道如何代替男性的范围 [-0.5, 0.5] 表示男性，而 [0.5, 1.5] 女性。

谢谢你的帮助。

在此处输入图像描述

Answer 1

x 轴是一个数值，因为您传递的是一个数值向量。 将其转换为字符向量可能是最简单的方法。

library(ggplot2)
library(dplyr)

# Original data
df <- data.frame(gender = c(1, 2, 1, 1, 1, 1, 2, 2))

# Convert to character
df <- df %>% mutate(Gender = case_when(gender == 1 ~ "Male",
                                 gender == 2 ~ "Female"))
# Plot
ggplot(df, aes(x = gender)) +
  geom_bar() + 
  ggtitle("Gender")