Homework 7

library(tidyverse)
data("iris")
class(iris)
print(iris)
glimpse(iris)
# 150 rows, 5 columns for the 5 variables

iris1 <- filter(iris, Species %in% c("virginica", "versicolor"), Sepal.Length > 6 , Sepal.Width > 2.5)
print(iris1)

iris2 <- select(iris1, Species, Sepal.Length, Sepal.Width)
print(iris2)
# 56 observations and 3 varaibles species, sepal length/width

iris3 <- arrange(iris2, by=desc(Sepal.Length))
head(iris3)

iris4 <- mutate(iris3, Sepal.Area = Sepal.Length*Sepal.Width)
print(iris4)
# 4 variables and 56 observations still

iris5 <- summarise(iris4, Mean.SL = mean(Sepal.Length), Mean.SW = mean(Sepal.Width))
print(iris5)
# 2 observations, width and length averages

iris6 <- summarise(iris4, Mean.SL = mean(Sepal.Length), Mean.SW = mean(Sepal.Width), TotalN = n())
print(iris6)

iris6 <- iris %>%
  filter(Species %in% c("virginica", "versicolor"), Sepal.Length > 6 , Sepal.Width > 2.5) %>%
  select(Species, Sepal.Length, Sepal.Width) %>%
  arrange(by=desc(Sepal.Length)) %>%
  mutate(Sepal.Area = Sepal.Length*Sepal.Width) %>%
  summarise(Mean.SL = mean(Sepal.Length), Mean.SW = mean(Sepal.Width), TotalN = n())
print(iris6)

longiris <- iris %>%
  pivot_longer(cols=1:4,
              names_to = "Measure",
              values_to = "Values",
              values_drop_na = T)
print(longiris)