Answer the following using these data set. Duncan Greere has collected a database of 48 Soviet dogs who flew as test subjects in USSR's space program in the 1950s and 60s. [The original data can be found here](https://airtable.com/universe/expG3z2CFykG1dZsp/sovet-space-dogs).

For this assignment, you're going to forget all the wonderful CRAP design principles you just learned and try your hardest to **make the ugliest plot in the world**. Modify the color scale and change theme elements to make this plot truly hideous.

## Load and clean data

First we load and clean the data.

```{r} #| label: load-clean-data #| warning: false #| message: false

# You'll only need the tidyverse library for this exercise library(tidyverse)

space_dogs_raw <- read_csv("data/Dogs-Database.csv")

space_dogs <- space_dogs_raw |> # The Fate column seems to either say "Survived" or "Died ", so we make # a new binary version of the Fate column that is "Survived" if the dog # survived and "Died" otherwise mutate(Fate_binary = ifelse(Fate == "Survived", "Survived", "Died")) |> # The data lists the dates of each flight, separated by a comma. To convert # that to a number, we do a little trick: count the number of commas in the # cell and add 1 (if there were 2 flights, there would be 1 comma, etc.) mutate(Flights_num = str_count(Flights, ",") + 1) ```

There are actually some interesting trends here! Female dogs were far less likely to die and went on way more flights than their male counterparts, but that's in part because the USSR used almost only male dogs from 1951-1954, so those dogs faced the early prototypes of rockets and capsules.

```{r} #| label: summarize-data

# Summarize the data by fate and gender space_dogs_summarized <- space_dogs |> group_by(Fate_binary, Gender) |> summarize( total_dogs = n(), total_flights = sum(Flights_num) )

space_dogs_summarized ```

## Ugly plot

But the trends don't matter here. What matters is hideous plots. Change the colors, modify the theme, add labels, etc. and make this ugly. You can leave the `geom_pointrange()` as is, or you can mess with it too (or even change it to a bar chart or pie chart or heatmap or something if you feel up to it).

```{r} #| label: ugly-plot

ugly_plot <- ggplot( data = space_dogs_summarized, mapping = aes(x = Fate_binary, y = total_flights, color = Gender) ) + geom_pointrange(aes(ymin = 0, ymax = total_flights), size = 2, position = position_dodge(width = 0.5) )

ugly_plot ```

```{r} #| label: save-plot

# Save the plot as a PNG with ggsave()

Name (Latin)	Name (English)	Name (Cyrillic)	Gender	Flights	Fate	Notes
Dezik	Dezik		Male	1951-07-22,1951-07-29	Died 1951-07-29
Tsygan	Gypsy		Male	7/22/1951	Survived	Adopted as a pet by Soviet physicist Anatoli Blagonravov
Lisa	Fox		Female	7/29/1951	Died 1951-07-29
Chizhik	Siskin		Male	1951-08-15,1951-08-28	Died 1951-08-28
Mishka	Little Bear		Male	1951-08-15,1951-08-28	Died 1951-08-28
Ryzhik	Ginger		Male	8/19/1951	Survived
Smeliy	Courageous		Male	8/19/1951	Survived
Neputeviy	Scamp		Male	9/3/1951	Survived
ZIB	Substitute for Missing Bobik		Male	9/3/1951	Survived	An untrained street dog found running around the barracks, captured after Bobik ran away days before his flight.
Lisa-2	Fox		Female	1951-06-26,1954-07-26,1955-02-05	Died 1955-02-05
Ryzhik-2	Ginger		Male	1951-06-26,1954-07-07	Died 1954-07-07
Damka	Little Lady		Female	1954-07-02,1954-07-07	Survived
Mishka-2	Little Bear		Male	7/2/1954	Died 1954-07-02
Ryzhik-3	Ginger		Male	7/26/1954	Survived
Rita	Rita		Female	1/25/1955	Died 1955-01-25 or 1955-06-25
Linda	Linda		Female	1955-01-25,1956-05-31	Survived
Bulba	Bulba		Female	2/5/1955	Died 1955-02-05
Knopka	Button		Female	1955-11-04,1958-10-31	Died 1958-10-31
Malyshka	Little One		Female	1955-11-04,1956-05-31	Survived
Albina	Whitey		Female	1956-05-14,1956-06-07,1956-06-14	Survived
Kozyavka	Little Gnat		Female	1956-05-14,1956-06-07,1956-06-14,1958-09-19	Survived
Damka-2	Little Lady		Female	1957-05-16,1957-08-31,1958-09-19	Survived
Dzhoyna	Dzhoyna		Female	5/24/1957	Died 1957-05-24
Ryzhaya	Redhead		Female	1957-05-16,1957-05-24	Died 1957-05-24
Belka	Squirrel		Female	1957-08-25,1957-08-31,1957-09-06,1960-08-19	Survived
Modnitsa	Fashionable		Female	1957-08-25,1957-09-06	Survived
Laika	Barker		Female	11/3/1957	Died 1957-11-03	Also known as Kudryavka (Little Curly) and Limonchik (Little Lemon) and Zhuchka (Little Beetle) and also Muttnik
Palma	Palm		Female	2/21/1958	Died 1958-02-21
Pushok	Fluffy		Male	2/21/1958	Died 1958-02-21
Kusachka / Otvazhnaya	Biter / Brave One		Female	1959-07-02,1959-07-10,1960-06-15,1960-06-24,1960-09-22,1958-08-13,1958-08-02	Survived	Made the most flights of any space dog.
Palma-2	Palm		Female	1958-08-02,1958-08-13,1960-09-16	Survived
Belyanka	Little Whitey		Female	8/27/1958	Survived
Pestraya	Spotted		Female	8/27/1958	Survived
Zhulba	Zhulba		Female	########	Died 1958-10-31
Snezhinka / Zhemchuzhnaya	Snowflake / Pearly	/	Female	1959-07-02,1959-07-10,1960-06-24	Survived
Malyok	Small Fry		Male	1960-06-15,1960-09-16	Survived
Lisichka	Little Fox		Female	7/28/1960	Died 1960-07-28
Bars / Chaika	Panther / Seagull	/	Female	7/28/1960	Died 1960-07-28
Strelka	Little Arrow		Female	8/19/1960	Survived	Went on to have six puppies with a male dog named Pushok who participated in many ground-based space experiments, but never made it into space. One of the pups was named Pushinka (, "Fluffy") and was presented to President John F. Kennedy by Nikita Khrushchev in 1961. A Cold War romance bloomed between Pushinka and a Kennedy dog named Charlie, resulting in the birth of four pups that JFK referred to jokingly as pupniks. Two of their pups, Butterfly and Streaker were given away to children in the Midwest. The other two puppies, White Tips and Blackie, stayed at the Kennedy home on Squaw Island but were eventually given away to family friends.
Neva	Neva		Female	9/22/1960	Survived
Mushka	Little Fly		Female	12/1/1960	Died 1960-12-01
Pchyolka	Little Bee		Female	12/1/1960	Died 1960-12-01
Shutka	Joke		Female	########	Survived	Also known as Damka (Little Lady) and Zhemchuzhina (Pearl). Adopted by Oleg Gazenko, a leading Soviet space scientist. She went on to have puppies and continued living with Gazenko and his family until her death 14 years later.
Chernuskha	Blackie		Female	3/9/1961	Survived
Kometka	Comet		Female	########	Survived	Also known as Krasavka (Cheater) and Zhulka (Beauty) and Zhemchuzhnaya (Pearly) and Snezchinka (Snowflake)
Zvezdochka	Little Star		Female	3/25/1961	Survived
Ugolyok / Snezhok	Little Piece of Coal / Snowball	/	Male	2/22/1966	Survived
Veterok / Bzdunok	Little Wind / Little Fart	/	Male	2/22/1966	Survived