g <- function(x) x^2
plot(g)

こんな感じで半径1の円を描きたいのです。
教えてください。