You could be more specific about your question. How exactly would you like to display your data? Anyway, here are a few possibilities. Hopefully you can use one of them for your purposes.
# load packages
pkgs2load <- c("data.table", "ggplot2", "data.table")
sapply(pkgs2load, require, character.only=TRUE)
# generate sample data
N <- 1e4
dt <- data.table(balance = runif(N, 0, 1e6),
status = sample(c("married", "unmarried", "divorced"), N, replace=TRUE))
# plots
ggplot(dt, aes(status, balance)) + stat_summary(fun.data = "mean_cl_boot")
ggplot(dt, aes(status, balance)) + geom_jitter()
ggplot(dt, aes(factor(0), balance, color=status)) + geom_jitter() +
scale_x_discrete(name="", breaks=NULL)