Plot sigmoid using R

R_plot_sigmoid.R

library(ggplot2)
library(dplyr)

sigmoid = function(x) {
  1 / (1 + exp(-x))
}

###

vals <- tibble(x = seq(-10, 10, 1), 
               sigmoid_x=sigmoid(seq(-10,10,1)))
p <- ggplot(vals, aes(x, sigmoid_x))
p <- p + geom_point(colour='#F1948A', size=4)
p <- p + theme_linedraw()
p + stat_function(fun = sigmoid, n = 1000)