Naughton Challenge 1

Code

library(tidyverse)
library(knitr)
library(readxl)
library(gtable)
library(dplyr)

knitr::opts_chunk$set(echo = TRUE, warning=FALSE, message=FALSE)

Challenge 1, Reading in Data and Creating a Post

Part 1: Railroads

Code

railroads <- read_csv("/Users/143660/Documents/GitHub/601_Fall_2022/posts/_data/railroad_2012_clean_county.csv")

Error: '/Users/143660/Documents/GitHub/601_Fall_2022/posts/_data/railroad_2012_clean_county.csv' does not exist.

Code

railroads

Error in eval(expr, envir, enclos): object 'railroads' not found

Describe the data - Railroads

This data has 3 columns and 2930 rows. The column names are STATE, COUNTY, and TOTAL EMPLOYEES. This data shows the number of railroad employees in each county and is organized by state. There were some abbreviations I did not recognize, so I did more research. AE and AP are Armed Forces Europe and Armed Forces Pacific. Texas had the largest number of employees with 19839 employees.

Code

as_tibble(railroads)

Error in as_tibble(railroads): object 'railroads' not found

Code

#groups the data by state in descending order of employees
railroads%>%
  group_by(state)%>%
  summarise(total=sum(total_employees))%>%
  arrange(desc(total)) %>%
slice(1:10)

Error in group_by(., state): object 'railroads' not found

Code

#groups the data by state name alphabetically
railroads %>%
  select(state)%>%
  group_by(state) %>%
  arrange(state)%>%
 slice(1)

Error in select(., state): object 'railroads' not found

Part 2: Birds Data

Code

birds <- read_csv("/Users/143660/Documents/GitHub/601_Fall_2022/posts/_data/birds.csv")

Error: '/Users/143660/Documents/GitHub/601_Fall_2022/posts/_data/birds.csv' does not exist.

Describe the Data - Birds

This dataset is a bit larger - there are 14 columns and 30977 rows. The columns are Domain.Code, Domain, Area.Code, Area, Element.Code, Element, item.code, item, year.code, year, unit, value, flag,flag.Description. The 5 item categories are chickens, Ducks, Geese and guinea fowls, turkeys, and pigeons and other birds. There are 248 areas and the data is tracked from 1961 to 2018. Flag description must be how the birds were counted. The data was organized into these categories: Aggregate, may include official, semi-official, estimated or calculated data, Data not available, FAO data based on imputation methodology FAO estimare, Official Data, and unofficial figure. Based on this information, this dataset counts the number of birds in the world from 1961 - 2018 using flagging techniques.

Code

head(birds)

Error in head(birds): object 'birds' not found

Code

table(select(birds, Item))

Error in select(birds, Item): object 'birds' not found

Code

table(select(birds, Year))

Error in select(birds, Year): object 'birds' not found

Code

table(select(birds, "Flag Description"))

Error in select(birds, "Flag Description"): object 'birds' not found