Попробуйте что-то вроде
curve(f, from=0, to=1.1, n=1001, ylim=c(-4,0), xlim=c(0,1))
чтобы получить кривую как

В правом верхнем углу to=1.1
расширяет кривую, но xlim=c(0,1)
усекает ее
В левом нижнем углу n=1001
расширяет кривую вниз в направлении x = 0 и y = -infinity, добавляя больше конечных точек, но ylim=c(-4,0)
усекает ее