Here is an example:
library(tidyverse)
data_date <- data.frame(
iid = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
gender = c(0, 0, 0, 0, 0, 1, 1, 1, 1, 1),
date = c(1, 2, 1, 1, 1, 1, 2, 2, 2, 2)
)
data_date %>%
mutate(date = factor(date, labels = c("sev/wk", "never")),
gender = factor(gender, labels = c("Female", "Male"))) %>%
ggplot(aes(y = date, fill = gender)) +
geom_bar(color = "white") +
labs(title = "Dating Frequency",
x = "Dating Frequency",
y = "Count",
fill = "Gender")
Created on 2021-05-14 by the reprex package (v2.0.0)
Note: Next time please provide a proper REPRoducible EXample (reprex) illustrating your issue.