N <- 6       # Cantidad de lados
n <- 1:N     # Vértices
r <- 1       # radio (tamaño del polígono)
theta <- 0   # Angulo de inclinación
centro <- 0  # Coordenadas del centro

x = r * cos(2*pi*n/N + theta) + centro
y = r * sin(2*pi*n/N + theta) + centro

plot(x, y, type="l")
polygon(x, y, col="blue")