I have a simple dataframe

```
name <- c("Mercury", "Venus", "Earth", "Mars", "Jupiter", "Saturn", "Uranus", "Neptune")
type <- c("Terrestrial planet", "Terrestrial planet", "Terrestrial planet", 
      "Terrestrial planet", "Gas giant", "Gas giant", "Gas giant", "Gas giant")
diameter <- c(0.382, 0.949, 1, 0.532, 11.209, 9.449, 4.007, 3.883)
rotation <- c(58.64, -243.02, 1, 1.03, 0.41, 0.43, -0.72, 0.67)
rings <- c(FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE)

df_space <- data.frame(name, type, diameter, rotation, rings)

```

How to filter planets, which have a bigger diameter than Earth.

I tried 

```
df_space %>% filter(diameter > df_space[df_space$name == "Earth"])

```

but it does not work. Any elegant solution for tidyverse?