Quilt comparison r scipt

require(tidyverse)
require(viridis)
require(scales)

df <- read.csv("Camping Quilts.csv")


df %>%
  subset(tquq=="tq") %>%
  ggplot(aes(temp,
             weight,
             group=interaction(fp,model),
             color=fp,
             label=model))+
  geom_line()+
  geom_point()+
  geom_label(size=2)+
  ggsave("T_W_FP.png",
         device="png")

df %>%
  subset(tquq=="tq") %>%
  subset(temp >= 0) %>%
  subset(manu != "Superior") %>%
  subset(temp < 50) %>%
  ggplot(aes(weight,
             (70-temp)/weight,
             group=interaction(fp,model),
             color=cost,
             label=model))+
  geom_line()+
  scale_color_viridis()+
  geom_label(size=2)+
  labs(title="Top Quilt Comparisons",
       x="Weight (oz)",
       y="Insulation Weight Efficiency (Degrees/Oz)",
       subtitle="Insulation Weight Efficiency is (70-Temperature rating)/Oz")+
  ggsave("W_IWE_C.png",
         device="png")

df %>%
  subset(tquq=="tq") %>%
  subset(temp >= 0) %>%
  subset(manu != "Superior") %>%
  subset(temp < 50) %>%
  ggplot(aes(weight,
             (70-temp)/cost,
             group=interaction(fp,model),
             color=temp,
             label=model))+
  geom_line()+
  scale_color_viridis()+
  geom_label(size=2)+
  labs(title="Top Quilt Comparisons",
       x="Weight (oz)",
       y="Insulation Cost Efficiency (Degrees/$)",
       subtitle="Insulation Cost Efficiency is (70-Temperature rating)/$")+
  ggsave("W_ICE_T.png",
         device="png")

df %>%
  subset(tquq=="tq") %>%
  subset(temp >= 0) %>%
  subset(manu != "Superior") %>%
  subset(temp < 50) %>%
  ggplot(aes(temp,
             cost,
             group=interaction(fp,model),
             color=weight,
             label=model))+
    geom_line()+
    scale_color_viridis()+
    geom_label(size=2)+
  labs(title="Top Quilt Comparisons",
       x="Temperature Rating (Degree)",
       y="Cost ($)")+
  ggsave("T_C_W.png",
         device="png")

df %>%
  subset(tquq=="tq") %>%
  subset(temp >= 0) %>%
  subset(manu != "Superior") %>%
  subset(temp < 50) %>%
  ggplot(aes(temp,
             weight,
             group=interaction(fp,model),
             color=cost,
             label=model))+
  geom_line()+
  scale_color_viridis()+
  geom_label(size=2)+
  labs(title="Top Quilt Comparisons",
       x="Temperature Rating (Degree)",
       y="Weight (oz)")+
  ggsave("T_W_C.png",
         device="png")

df %>%
  subset(tquq=="tq") %>%
  subset(temp >= 0) %>%
  subset(manu != "Superior") %>%
  subset(temp < 50) %>%
  ggplot(aes(temp,
             (70-temp)/cost,
             group=interaction(fp,model),
             color=weight,
             label=model))+
  geom_line()+
  scale_color_viridis()+
  geom_label(size=2)+
  labs(title="Top Quilt Comparisons",
       x="Temperature Rating (Degree)",
       y="Insulation Cost Efficiency (Degrees/$)",
       subtitle="Insulation Cost Efficiency is (70-Temperature rating)/$")+
  ggsave("T_ICE_W.png",
         device="png")

df %>%
  subset(tquq=="tq") %>%
  subset(temp >= 0) %>%
  subset(manu != "Superior") %>%
  subset(temp < 50) %>%
  ggplot(aes(temp,
             (70-temp)/weight,
             group=interaction(fp,model),
             color=cost,
             label=model))+
  geom_line()+
  scale_color_viridis()+
  geom_label(size=2)+
  labs(title="Top Quilt Comparisons",
       x="Temperature Rating (Degree)",
       y="Insulation Weight Efficiency (Degrees/Oz)",
       subtitle="Insulation Weight Efficiency is (70-Temperature rating)/Oz")+
  ggsave("T_IWE_C.png",
         device="png")


df %>%
  subset(tquq=="tq") %>%
  subset(temp >= 0) %>%
  subset(manu != "Superior") %>%
  subset(temp < 50) %>%
  ggplot(aes(fp,
             (70-temp)/weight,
             group=interaction(fp,model),
             color=temp,
             label=model))+
  geom_line()+
  scale_color_viridis()+
  geom_label(size=2)+
  labs(title="Top Quilt Comparisons",
       x="Insulation Fill Power",
       y="Insulation Weight Efficiency (Degrees/Oz)",
       subtitle="Insulation Weight Efficiency is (70-Temperature rating)/Oz")+
  ggsave("FP_IWE_T.png",
         device="png")


df %>%
  subset(tquq=="tq") %>%
  subset(temp >= 0) %>%
  subset(manu != "Superior") %>%
  subset(temp < 50) %>%
  ggplot(aes(fp,
             (70-temp)/cost,
             group=interaction(fp,model),
             color=temp,
             label=model))+
  geom_line()+
  scale_color_viridis()+
  geom_label(size=2)+
  labs(title="Top Quilt Comparisons",
       x="Insulation Fill Power",
       y="Insulation Cost Efficiency (Degrees/$)",
       subtitle="Insulation Cost Efficiency is (70-Temperature rating)/$")+
  ggsave("FP_ICE_T.png",
         device="png")

df %>%
  subset(tquq=="tq") %>%
  subset(temp >= 0) %>%
  subset(manu != "Superior") %>%
  subset(temp < 50) %>%
  ggplot(aes(cost,
             (70-temp)/weight,
             group=interaction(fp,model),
             color=weight,
             label=model))+
  geom_line()+
  scale_color_viridis()+
  geom_label(size=2)+
  labs(title="Top Quilt Comparisons",
       x="Cost",
       y="Insulation Weight Efficiency (Degrees/oz)",
       subtitle="Insulation Cost Efficiency is (70-Temperature rating)/$")+
  ggsave("C_IWE_W.png",
         device="png")