-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
103 lines (103 loc) · 5.44 KB
/
.Rhistory
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
library(readr)
Lab2_Candy_Bars <- read_csv("Lab2_Candy Bars.csv")
View(Lab2_Candy_Bars)
vars <- c(var1 ="Brand", var2 = "Name")
numCB <- Lab2_Candy_Bars %>% select(-vars)
install.packages('tidyverse')
numCB <- Lab2_Candy_Bars %>% select(-vars)
install.packages(c("broom", "cli", "desc", "diffobj", "farver", "isoband", "lubridate", "mime", "pillar", "pkgload", "ps", "rmarkdown", "rvest", "testthat", "tibble", "tidyr", "tinytex", "utf8", "waldo", "xfun"))
install.packages(c("broom", "cli", "desc", "diffobj", "farver", "isoband", "lubridate", "mime", "pillar", "pkgload", "ps", "rmarkdown", "rvest", "testthat", "tibble", "tidyr", "tinytex", "utf8", "waldo", "xfun"))
install.packages(c("broom", "cli", "desc", "diffobj", "farver", "isoband", "lubridate", "mime", "pillar", "pkgload", "ps", "rmarkdown", "rvest", "testthat", "tibble", "tidyr", "tinytex", "utf8", "waldo", "xfun"))
install.packages(c("broom", "cli", "desc", "diffobj", "farver", "isoband", "lubridate", "mime", "pillar", "pkgload", "ps", "rmarkdown", "rvest", "testthat", "tibble", "tidyr", "tinytex", "utf8", "waldo", "xfun"))
install.packages(c("broom", "cli", "desc", "diffobj", "farver", "isoband", "lubridate", "mime", "pillar", "pkgload", "ps", "rmarkdown", "rvest", "testthat", "tibble", "tidyr", "tinytex", "utf8", "waldo", "xfun"))
install.packages(c("broom", "cli", "desc", "diffobj", "farver", "isoband", "lubridate", "mime", "pillar", "pkgload", "ps", "rmarkdown", "rvest", "testthat", "tibble", "tidyr", "tinytex", "utf8", "waldo", "xfun"))
install.packages(c("broom", "cli", "desc", "diffobj", "farver", "isoband", "lubridate", "mime", "pillar", "pkgload", "ps", "rmarkdown", "rvest", "testthat", "tibble", "tidyr", "tinytex", "utf8", "waldo", "xfun"))
install.packages(c("broom", "cli", "desc", "diffobj", "farver", "isoband", "lubridate", "mime", "pillar", "pkgload", "ps", "rmarkdown", "rvest", "testthat", "tibble", "tidyr", "tinytex", "utf8", "waldo", "xfun"))
install.packages(c("broom", "cli", "desc", "diffobj", "farver", "isoband", "lubridate", "mime", "pillar", "pkgload", "ps", "rmarkdown", "rvest", "testthat", "tibble", "tidyr", "tinytex", "utf8", "waldo", "xfun"))
install.packages(c("broom", "cli", "desc", "diffobj", "farver", "isoband", "lubridate", "mime", "pillar", "pkgload", "ps", "rmarkdown", "rvest", "testthat", "tibble", "tidyr", "tinytex", "utf8", "waldo", "xfun"))
install.packages(c("broom", "cli", "desc", "diffobj", "farver", "isoband", "lubridate", "mime", "pillar", "pkgload", "ps", "rmarkdown", "rvest", "testthat", "tibble", "tidyr", "tinytex", "utf8", "waldo", "xfun"))
install.packages(c("broom", "cli", "desc", "diffobj", "farver", "isoband", "lubridate", "mime", "pillar", "pkgload", "ps", "rmarkdown", "rvest", "testthat", "tibble", "tidyr", "tinytex", "utf8", "waldo", "xfun"))
numCB <- Lab2_Candy_Bars %>% select(-vars)
installed.packages()
ggplot(data = mpg)
ggplot(data = "mpg")
remove.packages('tidyverse')
install.packages('tidyverse')
numCB <- Lab2_Candy_Bars %>% select(-vars)
remove.packages("tidyverse")
install.packages("tidyverse")
numCB <- Lab2_Candy_Bars %>% select(-vars)
installed.packages("tidyverse")
library(tidyverse)
remove.packages("tidyverse")
install.packages("tidyverse")
install.packages("tidyverse")
library(tidyverse)
numCB <- Lab2_Candy_Bars %>% select(-vars)
view(numCB)
meanCB <- map(numCB, mean, na.rm ="TRUE")
minCB <- map(numCB, min, na.rm ="TRUE" )
maxCB <- map(numCB, max, na.rm ="TRUE" )
sdCB <- map(numCB, sd, na.rm ="TRUE" )
length(na.omit(Lab2_Candy_Bars$`Iron %RDI`))
ggplot(data = "mpg")
df <- Lab2_Candy_Bars
view(df)
dfu <- unique(df)
df %>% distinct()
df <- df %>% distinct()
df <- Lab2_Candy_Bars
df <- df %>% distinct()
df <- df %>% distinct()
view(df)
df <- Lab2_Candy_Bars
df[duplicated(df),]
df <- df %>% distinct()
Lab2_Candy_Bars[duplicated(Lab2_Candy_Bars),]
dx <- Lab2_Candy_Bars[duplicated(Lab2_Candy_Bars),]
Lab2_Candy_Bars %>% recode(Brand = str_to_title(Brand))
Lab2_Candy_Bars$Brand <- str_to_title(Lab2_Candy_Bars$Brand)
dx <- Lab2_Candy_Bars[duplicated(Lab2_Candy_Bars),]
df <- Lab2_Candy_Bars
df <- Lab2_Candy_Bars
view(df)
df <- df %>% distinct()
view(df)
dx <- Lab2_Candy_Bars[duplicated(Lab2_Candy_Bars),]
dfu <- unique(df)
dx <- Lab2_Candy_Bars[duplicated(Lab2_Candy_Bars),]
df
df[duplicated(df),]
Lab2_Candy_Bars[duplicated(Lab2_Candy_Bars),]
dfq <- Lab2_Candy_Bars[duplicated(Lab2_Candy_Bars)]
dfq <- Lab2_Candy_Bars[duplicated(Lab2_Candy_Bars),]
view(dfq)
View(dfq)
Lab2_Candy_Bars[duplicated(Lab2_Candy_Bars),2]
Lab2_Candy_Bars[duplicated(Lab2_Candy_Bars),3]
Lab2_Candy_Bars$Brand <- str_to_title(Lab2_Candy_Bars$Brand)
unique(dfq)
ggplot(data = dfq, aes(x = Name, y ="")) + geom_bar(stat ="identity")
dx <- Lab2_Candy_Bars[duplicated(Lab2_Candy_Bars),]
ggplot(data = dfq, aes(x = Name, y = count(Name))) + geom_bar(stat ="identity")
ggplot(data = dfq, aes(x = Name) + geom_histogram()
ggplot(data = dfq, aes(x = Name) + geom_histogram()
ggplot(data = dfq, aes(x = Name)) + geom_histogram()
ggplot(data = dfq, aes(x = Name)) + geom_histogram(stat = "count")
ggplot(data = df, aes(x="", y=df$Calories)) + geom_boxplot()
ggplot(data = df, aes(x="", y=df$`Carbohydrate g`)) + geom_boxplot()
map(df, ~sum(is.na(.)))
map(Lab2_Candy_Bars, ~count(.), na.rm +"TRUE")
map(Lab2_Candy_Bars, ~sum(!is.na(.)))
naCB <- map(Lab2_Candy_Bars, ~sum(!is.na(.)))
nCB <- map(df, ~sum(is.na(.)))
naCB <- map(df, ~sum(is.na(.)))
nCB <- map(Lab2_Candy_Bars, ~sum(!is.na(.)))
View(nCB)
View(nCB)
View(naCB)
View(naCB)
nCB <- map(df, ~sum(!is.na(.)))
naCB <- map(df, ~sum(is.na(.)))
View(nCB)
View(nCB)