-
Notifications
You must be signed in to change notification settings - Fork 0
/
DataCleaning.rmd
58 lines (42 loc) · 1.81 KB
/
DataCleaning.rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
---
output:
word_document: default
html_document: default
---
```{r}
library(tidyverse)
Telecom <- read_csv("Telecom.csv")
```
```{r}
Telecom$MonthlyCharges
is.na(Telecom$MonthlyCharges)
summarize(Telecom, count = sum(is.na(MonthlyCharges)))
mutate(Telecom, MonthlyCharges = replace(MonthlyCharges, is.na(MonthlyCharges),
median(MonthlyCharges, na.rm = TRUE)))
Telecom
```
```{r}
Telecom <- mutate(Telecom, MonthlyCharges = replace(MonthlyCharges, is.na(MonthlyCharges),median(MonthlyCharges, na.rm = TRUE)))
Telecom
Telecom <- mutate(Telecom, TotalCharges = replace(TotalCharges, TotalCharges == "na", NA))
Telecom
Telecom <- mutate(Telecom, TotalCharges = replace(TotalCharges, TotalCharges == "N/A", NA))
Telecom
Telecom$TotalCharges <- as.numeric(Telecom$TotalCharges)
Telecom <- mutate(Telecom, TotalCharges = replace(TotalCharges, is.na(TotalCharges),mean(TotalCharges, na.rm = TRUE)))
Telecom
Telecom <- mutate(Telecom, PaymentMethod = replace(PaymentMethod, PaymentMethod == "--", NA))
Telecom
Telecom <- mutate(Telecom,PaymentMethod = replace(PaymentMethod, is.na(PaymentMethod), "unavailable"))
Telecom
```
```{r}
Telecom$TotalCharges <- as.numeric(Telecom$TotalCharges)
Telecom <- Telecom %>%
mutate(MonthlyCharges = replace(MonthlyCharges, is.na(MonthlyCharges),median(MonthlyCharges, na.rm = TRUE))) %>%
mutate(TotalCharges = replace(TotalCharges, TotalCharges == "na", NA)) %>%
mutate(TotalCharges = replace(TotalCharges, TotalCharges == "N/A", NA)) %>%
mutate(TotalCharges = replace(TotalCharges, is.na(TotalCharges),mean(TotalCharges, na.rm = TRUE))) %>%
mutate(PaymentMethod = replace(PaymentMethod, PaymentMethod == "--", NA)) %>%
mutate(PaymentMethod = replace(PaymentMethod, is.na(PaymentMethod), "unavailable"))
```