Dibujando un primer círculo

Este trabajo fue originalmente llevado a cabo por Antonio Sánchez Chinchón, a quien pueden buscar online y ver su interesante trabajo de gráficos con ggplot2, paquete que tendremos que tener cargado en nuestro entorno para poder llevar a cabo estos ejercicios.

t <- seq(0, 2*pi, length.out = 50)
x <- sin(t)
y <- cos(t)
df <- data.frame(t, x, y)

ggplot(df, aes(t,x))+
        geom_point()

ggplot(df, aes(t,y))+
        geom_point()

Ahora veamos qué pasa al graficar seno contra el coseno:

p <- ggplot(df, aes(x, y))
p + geom_point()

Chinchón ha optado por llamar “flores” a sus figuras, por lo que las seguiremos llamando así. La primera flor va a ser una margarita que ha sido víctima de un interrogatorio por parte de alguien con inseguridades afectivas, una margarita sin pétalos. Es el gráfico anterior.

Se ha formado el círculo unitario. Ahora agregaremos más condiciones y más puntos

# Creamos el número de puntos y un multiplicador para el ángulo
puntos <- 500
angulo <- 1

t <- (1:puntos) * angulo
x <- sin(t)
y <-cos(t)
df <- data.frame(t, x, y)


# Make a scatter plot of points in a spiral
p <- ggplot(df, aes(sqrt(x), y*t, col=t, size=-t))
p + geom_point(alpha=0.8)+
        geom_point(aes(x,y*t), alpha=0.8)
## Warning in sqrt(x): NaNs produced

## Warning in sqrt(x): NaNs produced
## Warning: Removed 250 rows containing missing values (geom_point).

Including Plots

p <- ggplot(df, aes(log(t)*x^2, y^2*log(t), size=-t, col=log(y)))
p + geom_point(alpha=0.8)
## Warning in log(y): NaNs produced

## Warning in log(y): NaNs produced