g <- ggplot(data_set, aes(x-variable, y-variable) 

g + geom_point()