library(ggplot2)

df = data.frame(
  v1=c("A", "A", "B", "B", "C", "C"),
  v2=c(1000, 10, 500, 10, 10, 10),
  v3=c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE))

g = ggplot(df, aes(v1, v2, fill=v3)) +
  geom_bar(stat="identity") +
  scale_y_log10()
print(g)