Mutate demo example#1

mutate1.Rmd

---
title: "Mutate demo example#1"
author: "Abhinav Agrawal"
date: "January 11, 2016"
output: html_document
---



```{r}
library(dplyr)

# create a dummy dataframe for demostration purpose
mydata = data.frame(x=c("99.15%", "98.75%", "99.52%"),y=c("96.25%", "91.55%", NA), z=c("90.10%", NA, "87.50%"))

# look at the data
str(mydata)


# we want the variable not to be factor 
mydata$x = as.character(mydata$x)
mydata$y = as.character(mydata$y)
mydata$z = as.character(mydata$z)

# look at the data
str(mydata)


# remove the percentage sign from the variables x, y and z
mydata$x=as.numeric(gsub("%", " ", mydata$x))
mydata$y=as.numeric(gsub("%", " ", mydata$y))
mydata$z=as.numeric(gsub("%", " ", mydata$z))

# look at the data
str(mydata)


# applying mutate function
mydata1 = mydata %>% rowwise() %>% mutate(Average = mean(c(x, y, z), na.rm=TRUE))



# look at the resultant data
str(mydata1)

```