Project 3 Software

knitr::opts_chunk$set(echo = TRUE)

library(tidyr)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(readr)
library(stringr)
library(ggplot2)

urlfile="https://raw.githubusercontent.com/Nhodgkinson/Data607_Project_3/main/Copy%20of%20Data%20Science%20Career%20Terms%20-%20ds%20software.csv"

sfdf<-read_csv(url(urlfile))

## Rows: 42 Columns: 12

## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (8): Keyword, LinkedIn %, Indeed %, SimplyHired %, Monster %, Avg %, Gla...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

sfdf<-sfdf[,c(1:5)] #remove columns right of column 5

sfdf<-sfdf[-c(38:42),] #Remove bottom 5 columns

total <- rowSums(sfdf[,c(2:5)]) #sums row values starting from column 2. Gives us total number hits for each keyword by site

sfdf$total<-total #makes total value a column