Adding May 2021 report

lisasheridan · Jun 29, 2021 · 2ef9881 · 2ef9881
1 parent eb222c7
commit 2ef9881
Show file tree

Hide file tree

Showing 11 changed files with 32,159 additions and 232 deletions.
diff --git a/Links.Rmd b/Links.Rmd
@@ -1,6 +1,6 @@
 ---
 title: "Content Use Highlights"
-date: "Last updated: 5/15/2021"
+date: "Last updated: 6/29/2021"
 output: 
   html_document:
     toc: true
@@ -18,12 +18,21 @@ h1 {
 
 # May 2021
 
-**Zoe Nicholson**, for Greenville News, [reports](https://climatecentral.cmail19.com/t/y-l-oyucdl-tumitljkk-jj/) on the many climate change impacts that South Carolinians already face today.  
-In an ‘Impact Earth’ segment, **Amber Sullins** (KNXV/ABC, AZ) [explains](https://www.iqmediacorp.com/ClipPlayer/?ClipID=caa41d5e-298d-4a07-9b14-c69a83fff546&ps=2) how climate change is causing drought to last longer in the western United States.
+Meteorologists **Kyle Kiel**, **Brandon Libby**, and **Joie Bettenhausen**, for KWWL, [illustrate](https://climatecentral.createsend1.com/t/y-l-ojrttn-l-jd/) how new climate normals have changed in Iowa City. 
+
+**Tom Davis**, for The Patch, [updates](https://climatecentral.createsend1.com/t/y-l-ojrttn-l-jh/) New Jerseyans on the Brood X cicadas, and how climate change can affect the timing of their emergence.
+For the Cape May County Herald, **Shay Roddy** uses Climate Central’s Risk Finder tool to [illustrate](https://climatecentral.createsend1.com/t/y-l-ojtldtk-l-v/) how sea level rise is expected to impact Cape May’s coastal communities.
+
+For Grist, **Shannon Osaka** [explains](https://climatecentral.createsend1.com/t/y-l-ojtldtk-l-e/) why warming temperatures due to climate change may be causing cicadas to emerge earlier.
+
+**Bobby Deskins** (WTSP/CBS, FL) [shows](https://www.iqmediacorp.com/ClipPlayer/?ClipID=396d4cc4-340d-44ed-9997-dda9c021bb06&ps=2) how the new climate normals illustrate a warming trend across the country and in Tampa.
+
+From the beach, **Elisa Raffa** [reports](https://www.iqmediacorp.com/ClipPlayer/?ClipID=a8f4a2ab-2c19-4390-b831-bff052d714e2&ps=2) on the impact of warming ocean temperatures.
 
 # April 2021
 
-**Zoe Nicholson**, for Greenville News, [reports](https://climatecentral.cmail19.com/t/y-l-oyucdl-tumitljkk-jj/) on the many climate change impacts that South Carolinians already face today.  
+**Zoe Nicholson**, for Greenville News, [reports](https://climatecentral.cmail19.com/t/y-l-oyucdl-tumitljkk-jj/) on the many climate change impacts that South Carolinians already face today.
+
 In an ‘Impact Earth’ segment, **Amber Sullins** (KNXV/ABC, AZ) [explains](https://www.iqmediacorp.com/ClipPlayer/?ClipID=caa41d5e-298d-4a07-9b14-c69a83fff546&ps=2) how climate change is causing drought to last longer in the western United States.
 
 **Justin Ballard**, for WREX in Illinois, [explains](https://climatecentral.cmail19.com/t/y-l-oyucdl-tumitljkk-jt/) how a warming climate can affect the emergence of cicadas.

diff --git a/May2021TrackingData.csv b/May2021TrackingData.csv
diff --git a/YearToDate.Rmd b/YearToDate.Rmd
@@ -1,7 +1,7 @@
 ---
 title: "Year-To-Date"
 output: html_document
-date: "Last updated: 5/14/2021"
+date: "Last updated: 6/29/2021"
 ---
 
 ```{css, echo=FALSE}
@@ -12,19 +12,19 @@ h1 {
 
 ```{r setup, include=FALSE}
 knitr::opts_knit$set(echo=FALSE, warning=FALSE, message=FALSE)
-data <- read.csv('April2021TrackingData.csv')
+data <- read.csv('May2021TrackingData.csv')
 #load pre-written evaluation functions
 source("monthlyreport_functions.R")
 dataReformatted <- reformat_googlesheet(data)
 ```
 
-# Year-to-Date: April 2021
+# Year-to-Date: May 2021
 
 ```{r YTD Hit Type, echo=FALSE, warning=FALSE, message=FALSE}
 ## Hit Type
 library('openair')
-YTDdata2020 <- dataReformatted[which(dataReformatted$month %in% c("January", "February", "March", "April") & dataReformatted$year=="2020"),]
-YTDdata2021 <- dataReformatted[which(dataReformatted$month %in% c("January", "February", "March", "April") & dataReformatted$year=="2021"),]
+YTDdata2020 <- dataReformatted[which(dataReformatted$month %in% c("January", "February", "March", "April", "May") & dataReformatted$year=="2020"),]
+YTDdata2021 <- dataReformatted[which(dataReformatted$month %in% c("January", "February", "March", "April", "May") & dataReformatted$year=="2021"),]
 
 previousYear(YTDdata2021, YTDdata2020)
 ```
@@ -80,7 +80,7 @@ tvgoalschart <- ggplot(melted.tvgoalsandhits, aes(Month, value, group=variable,
     scale_linetype_manual(values=c("dashed", "solid")) +
 labs(y="TV Airings", x="") +
 theme(legend.title = element_blank())+
-    geom_text(data=melted.tvgoalsandhits %>% filter(variable=="Airings" & Month=="April"), aes(label = value), nudge_x = 0.4, nudge_y = 50, color="black") +
+    geom_text(data=melted.tvgoalsandhits %>% filter(variable=="Airings" & Month=="May"), aes(label = 2089), nudge_x = 0.4, nudge_y = 50, color="black") +
     scale_x_discrete(limits = month.name)
 tvgoalschart
 ```
@@ -130,7 +130,7 @@ tvgoalschart
     scale_linetype_manual(values=c("dashed", "solid")) +
 labs(y="Articles", x="") +
 theme(legend.title = element_blank()) +
-    geom_text(data=melted.articlesgoalsandhits %>% filter(variable=="Articles" & Month=="April"), aes(label = value), nudge_x = 0.5, nudge_y = 50, color="black") +
+    geom_text(data=melted.articlesgoalsandhits %>% filter(variable=="Articles" & Month=="May"), aes(label = value), nudge_x = 0.5, nudge_y = 50, color="black") +
     scale_x_discrete(limits = month.name)
   articlesgoalschart
 ```

diff --git a/docs/Links.html b/docs/Links.html
@@ -380,7 +380,7 @@
 
 
 <h1 class="title toc-ignore">Content Use Highlights</h1>
-<h4 class="date">Last updated: 5/15/2021</h4>
+<h4 class="date">Last updated: 6/29/2021</h4>
 
 </div>
 
@@ -392,13 +392,16 @@ <h4 class="date">Last updated: 5/15/2021</h4>
 </style>
 <div id="may-2021" class="section level1">
 <h1>May 2021</h1>
-<p><strong>Zoe Nicholson</strong>, for Greenville News, <a href="https://climatecentral.cmail19.com/t/y-l-oyucdl-tumitljkk-jj/">reports</a> on the many climate change impacts that South Carolinians already face today.<br />
-In an ‘Impact Earth’ segment, <strong>Amber Sullins</strong> (KNXV/ABC, AZ) <a href="https://www.iqmediacorp.com/ClipPlayer/?ClipID=caa41d5e-298d-4a07-9b14-c69a83fff546&amp;ps=2">explains</a> how climate change is causing drought to last longer in the western United States.</p>
+<p>Meteorologists <strong>Kyle Kiel</strong>, <strong>Brandon Libby</strong>, and <strong>Joie Bettenhausen</strong>, for KWWL, <a href="https://climatecentral.createsend1.com/t/y-l-ojrttn-l-jd/">illustrate</a> how new climate normals have changed in Iowa City.</p>
+<p><strong>Tom Davis</strong>, for The Patch, <a href="https://climatecentral.createsend1.com/t/y-l-ojrttn-l-jh/">updates</a> New Jerseyans on the Brood X cicadas, and how climate change can affect the timing of their emergence. For the Cape May County Herald, <strong>Shay Roddy</strong> uses Climate Central’s Risk Finder tool to <a href="https://climatecentral.createsend1.com/t/y-l-ojtldtk-l-v/">illustrate</a> how sea level rise is expected to impact Cape May’s coastal communities.</p>
+<p>For Grist, <strong>Shannon Osaka</strong> <a href="https://climatecentral.createsend1.com/t/y-l-ojtldtk-l-e/">explains</a> why warming temperatures due to climate change may be causing cicadas to emerge earlier.</p>
+<p><strong>Bobby Deskins</strong> (WTSP/CBS, FL) <a href="https://www.iqmediacorp.com/ClipPlayer/?ClipID=396d4cc4-340d-44ed-9997-dda9c021bb06&amp;ps=2">shows</a> how the new climate normals illustrate a warming trend across the country and in Tampa.</p>
+<p>From the beach, <strong>Elisa Raffa</strong> <a href="https://www.iqmediacorp.com/ClipPlayer/?ClipID=a8f4a2ab-2c19-4390-b831-bff052d714e2&amp;ps=2">reports</a> on the impact of warming ocean temperatures.</p>
 </div>
 <div id="april-2021" class="section level1">
 <h1>April 2021</h1>
-<p><strong>Zoe Nicholson</strong>, for Greenville News, <a href="https://climatecentral.cmail19.com/t/y-l-oyucdl-tumitljkk-jj/">reports</a> on the many climate change impacts that South Carolinians already face today.<br />
-In an ‘Impact Earth’ segment, <strong>Amber Sullins</strong> (KNXV/ABC, AZ) <a href="https://www.iqmediacorp.com/ClipPlayer/?ClipID=caa41d5e-298d-4a07-9b14-c69a83fff546&amp;ps=2">explains</a> how climate change is causing drought to last longer in the western United States.</p>
+<p><strong>Zoe Nicholson</strong>, for Greenville News, <a href="https://climatecentral.cmail19.com/t/y-l-oyucdl-tumitljkk-jj/">reports</a> on the many climate change impacts that South Carolinians already face today.</p>
+<p>In an ‘Impact Earth’ segment, <strong>Amber Sullins</strong> (KNXV/ABC, AZ) <a href="https://www.iqmediacorp.com/ClipPlayer/?ClipID=caa41d5e-298d-4a07-9b14-c69a83fff546&amp;ps=2">explains</a> how climate change is causing drought to last longer in the western United States.</p>
 <p><strong>Justin Ballard</strong>, for WREX in Illinois, <a href="https://climatecentral.cmail19.com/t/y-l-oyucdl-tumitljkk-jt/">explains</a> how a warming climate can affect the emergence of cicadas.</p>
 <p><strong>Janice Huff</strong> <a href="https://www.iqmediacorp.com/ClipPlayer/?ClipID=b4e51cd1-78cd-439c-9130-783e3d3549eb&amp;ps=2">informs</a> her audience about the impending emergence of Brood X cicadas, and why warmer temperatures leads to earlier emergence.</p>
 <p>For the Chesapeake Bay Magazine, <strong>Emma Johnson</strong> <a href="https://climatecentral.cmail19.com/t/y-l-oydhutd-tumitljkk-ji/">reports</a> on earlier spring temperatures and the impact on the life cycle of the local Baltimore oriole species.</p>