Modifiqué el eje, para que en lugar de los conteos me muestre los porcentajes.
library(dplyr)
library(ggplot2)
library(scales)
library(gridExtra)
uno = c(3337,998)
calif = c("paso","no paso")
df = data.frame(calif,uno)
p1 <- ggplot(df, aes(x = calif, y=..count../sum(..count..), fill = calif)) +
guides(fill=FALSE, color=FALSE) +
ggtitle("Distribución de notas para estudiantes que tomaron Precálculo la primera vez") +
theme(plot.title = element_text(hjust = 0.5)) + scale_x_discrete("Nota") +
geom_bar()+scale_y_continuous(labels=percent, limits = c(0,.95),("Porcentaje")) +
geom_text(stat='count', aes(label=..count..), vjust=-1)
Sin embargo, solo me salen dos barras iguales.