291 lines
9.6 KiB
R
291 lines
9.6 KiB
R
install.packages("tidyverse")
|
|
install.packages("qcc")
|
|
install.packages("skimr")
|
|
install.packages("rmarkdown")
|
|
x=seq(1,10)
|
|
y=seq(sapply(1:10,random(1,1)))
|
|
?Random
|
|
install.packages(DT)
|
|
install.packages("DT")
|
|
if (!require("DT")) install.packages('DT')
|
|
library(DT)
|
|
?DT
|
|
class(datatable(iris))
|
|
?htmlwidget
|
|
??htmlwidget
|
|
install.packages("palletteer")
|
|
install.packages("paletteer")
|
|
install.packages("gapminder")
|
|
install.packages("ggthemes")
|
|
install.packages("collapsebleTree")
|
|
devtools::install_github("AdeelK93/collapsibleTree")
|
|
install.packages("devtools")
|
|
devtools::install_github("AdeelK93/collapsibleTree")
|
|
install.packages("ggthemes")
|
|
names(iris)
|
|
?theme_tufte()
|
|
names(iris)
|
|
library(gapminder)
|
|
attach(gapminder)
|
|
gapminder<-gapminder %>%
|
|
filter(year) %>%
|
|
arrange(-pop) %>%
|
|
slice(1:50) %>%
|
|
mutate(GDP=gdpPercap*Pop)
|
|
library(dplyr)
|
|
gapminder<-gapminder %>%
|
|
filter(year) %>%
|
|
arrange(-pop) %>%
|
|
slice(1:50) %>%
|
|
mutate(GDP=gdpPercap*Pop)
|
|
rlang::last_error
|
|
rlang::last_error()
|
|
names(gapminder)
|
|
table(gapminder$year)
|
|
class(gapminder$year)
|
|
library(usethis)
|
|
library(ggplot2)
|
|
install.packages(c("bit", "boot", "brew", "broom", "bslib", "cachem", "callr", "class", "cli", "cluster", "codetools", "colorspace", "commonmark", "cpp11", "crayon", "curl", "data.table", "dbplyr", "devtools", "digest", "dplyr", "DT", "dtplyr", "evaluate", "fansi", "fastmap", "flexdashboard", "fontawesome", "forcats", "foreign", "fs", "gapminder", "gargle", "gert", "ggplot2", "gh", "gtable", "haven", "highr", "hms", "htmltools", "htmlwidgets", "httpuv", "httr", "isoband", "jsonlite", "knitr", "lifecycle", "lubridate", "markdown", "MASS", "Matrix", "mgcv", "modelr", "nlme", "nnet", "openssl", "paletteer", "pillar", "pkgbuild", "pkgdown", "pkgload", "processx", "ps", "purrr", "ragg", "Rcpp", "readr", "readxl", "repr", "reprex", "rlang", "rmarkdown", "roxygen2", "rpart", "rstudioapi", "rvest", "sass", "scales", "shiny", "skimr", "sourcetools", "spatial", "stringi", "stringr", "survival", "sys", "testthat", "tibble", "tidyr", "tidyselect", "tidyverse", "tinytex", "utf8", "vctrs", "viridisLite", "vroom", "whisker", "xfun", "yaml", "zip"))
|
|
install.packages(c("bit", "boot", "brew", "broom", "bslib", "cachem", "callr", "class", "cli", "cluster", "codetools", "colorspace", "commonmark", "cpp11", "crayon", "curl", "data.table", "dbplyr", "devtools", "digest", "dplyr", "DT", "dtplyr", "evaluate", "fansi", "fastmap", "flexdashboard", "fontawesome", "forcats", "foreign", "fs", "gapminder", "gargle", "gert", "ggplot2", "gh", "gtable", "haven", "highr", "hms", "htmltools", "htmlwidgets", "httpuv", "httr", "isoband", "jsonlite", "knitr", "lifecycle", "lubridate", "markdown", "MASS", "Matrix", "mgcv", "modelr", "nlme", "nnet", "openssl", "paletteer", "pillar", "pkgbuild", "pkgdown", "pkgload", "processx", "ps", "purrr", "ragg", "Rcpp", "readr", "readxl", "repr", "reprex", "rlang", "rmarkdown", "roxygen2", "rpart", "rstudioapi", "rvest", "sass", "scales", "shiny", "skimr", "sourcetools", "spatial", "stringi", "stringr", "survival", "sys", "testthat", "tibble", "tidyr", "tidyselect", "tidyverse", "tinytex", "utf8", "vctrs", "viridisLite", "vroom", "whisker", "xfun", "yaml", "zip"))
|
|
install.packages(c("bit", "boot", "brew", "broom", "bslib", "cachem", "callr", "class", "cli", "cluster", "codetools", "colorspace", "commonmark", "cpp11", "crayon", "curl", "data.table", "dbplyr", "devtools", "digest", "dplyr", "DT", "dtplyr", "evaluate", "fansi", "fastmap", "flexdashboard", "fontawesome", "forcats", "foreign", "fs", "gapminder", "gargle", "gert", "ggplot2", "gh", "gtable", "haven", "highr", "hms", "htmltools", "htmlwidgets", "httpuv", "httr", "isoband", "jsonlite", "knitr", "lifecycle", "lubridate", "markdown", "MASS", "Matrix", "mgcv", "modelr", "nlme", "nnet", "openssl", "paletteer", "pillar", "pkgbuild", "pkgdown", "pkgload", "processx", "ps", "purrr", "ragg", "Rcpp", "readr", "readxl", "repr", "reprex", "rlang", "rmarkdown", "roxygen2", "rpart", "rstudioapi", "rvest", "sass", "scales", "shiny", "skimr", "sourcetools", "spatial", "stringi", "stringr", "survival", "sys", "testthat", "tibble", "tidyr", "tidyselect", "tidyverse", "tinytex", "utf8", "vctrs", "viridisLite", "vroom", "whisker", "xfun", "yaml", "zip"))
|
|
yes
|
|
library(ggplot2)
|
|
install.packages("usethis")
|
|
usethis:edit_r_profile()
|
|
library(usethis)
|
|
usethis:edit_r_profile()
|
|
usethis::edit_r_profile()
|
|
options(
|
|
usethis.description = list(
|
|
`Authors@R` = 'person("jack", "leene", email = "jack@leene.dev", role = c("aut", "cre"))',
|
|
License = "MIT + file LICENSE",
|
|
Version = "0.0.0.9000"
|
|
),
|
|
usethis.full_name = "First Last",
|
|
usethis.protocol = "https",
|
|
vsc.rstudioapi = TRUE,
|
|
warnPartialMatchArgs = TRUE,
|
|
warnPartialMatchDollar = TRUE,
|
|
warnPartialMatchAttr = TRUE
|
|
)
|
|
if (interactive()) {
|
|
suppressMessages(require(devtools))
|
|
suppressMessages(require(usethis))
|
|
}
|
|
p<-ggplot(iris,aes(Sepal.Length,Sepal.Width))+geom_line()
|
|
p<-ggplot(iris,aes(Sepal.Length,Sepal.Width))+geom_line()
|
|
p<-ggplot(iris,aes(Sepal.Length,Sepal.Width))+geom_line()
|
|
library(ggplot2)
|
|
library(DT)
|
|
library(ggthemes)
|
|
library(gapminder)
|
|
p<-ggplot(iris,aes(Sepal.Length,Sepal.Width))+geom_line()
|
|
q<-ggplot(iris,aes(Sepel.Width,Sepal.Length))+geom_line()+theme_tufte()
|
|
(p)
|
|
theme_tufte()
|
|
data(gapminder)
|
|
q
|
|
theme_tufte()
|
|
#gapminder<-gapminder %>%
|
|
# filter(year) %>%
|
|
# arrange(-pop) %>%
|
|
# slice(1:50) %>%
|
|
# mutate(GDP=gdpPercap*Pop)
|
|
#Column {data-width=450}
|
|
p=datatable((iris))
|
|
print(p)
|
|
library(ggplot2)
|
|
library(DT)
|
|
library(ggthemes)
|
|
library(gapminder)
|
|
p<-ggplot(iris,aes(Sepal.Length,Sepal.Width))+geom_line()
|
|
q<-ggplot(iris,aes(Sepel.Width,Sepal.Length))+geom_line()+theme_tufte()
|
|
p=datatable((iris))
|
|
print(p)
|
|
(p)
|
|
theme_tufte()
|
|
#gapminder<-gapminder %>%
|
|
# filter(year) %>%
|
|
# arrange(-pop) %>%
|
|
# slice(1:50) %>%
|
|
# mutate(GDP=gdpPercap*Pop)
|
|
#Column {data-width=450}
|
|
theme_tufte()
|
|
library(ggplot2)
|
|
library(DT)
|
|
library(ggthemes)
|
|
library(gapminder)
|
|
p<-ggplot(iris,aes(Sepal.Length,Sepal.Width))+geom_line()
|
|
q<-ggplot(iris,aes(Sepel.Width,Sepal.Length))+geom_line()+theme_tufte()
|
|
p=datatable((iris))
|
|
print(p)
|
|
(p)
|
|
#theme_tufte()
|
|
#gapminder<-gapminder %>%
|
|
# filter(year) %>%
|
|
# arrange(-pop) %>%
|
|
# slice(1:50) %>%
|
|
# mutate(GDP=gdpPercap*Pop)
|
|
#Column {data-width=450}
|
|
table(iris$Species)
|
|
usethis::edit_rstudio_snippets("r")
|
|
usethis::edit_rstudio_prefs()
|
|
usethis::edit_r_profile()
|
|
install.packages(c("class", "KernSmooth", "MASS", "nnet"))
|
|
mtcars
|
|
a<-mtcars
|
|
a
|
|
nrow(mtcars)
|
|
floor(12/4-2)
|
|
floor(2:32/4-2)
|
|
floor(2:32/4-1)
|
|
floor((1:32)/4-1)
|
|
floor((1:32)/4)
|
|
floor((1:32-1)/4)
|
|
a$group=floor((1:32-1)/4)
|
|
a
|
|
a$group1=mod((1:32-1),4)
|
|
((1:32-1)//4)
|
|
((1:32-1)\\4)
|
|
1\\4
|
|
1//4
|
|
mod(1,4()
|
|
mod(1,4
|
|
mod(1,4)
|
|
mod(1 %%4)
|
|
(1 %% 4)
|
|
a$group1=(1:32 %% 4)
|
|
a
|
|
a$group1=(1:32 %% 4)+1
|
|
a$group1=(0:31 %% 4)+1
|
|
a$group1=(0:31 %% 4)
|
|
a$group1=(1:32 %% 4)
|
|
a<-mtcars
|
|
floor(12/4-2)
|
|
a$group=floor((1:32-1)/4)
|
|
a
|
|
a$group=floor((1:32-1) %% 4)
|
|
a$group=floor((1:32-1)/4)
|
|
a$group=floor((1:32-1)/4)
|
|
a
|
|
a$group2=((1:32-1)%% 4)
|
|
a
|
|
names(a)
|
|
head(a)
|
|
ddply(a,.(group,group2),sumc=sum(cyl))
|
|
library(tidyverse)
|
|
installed.packages("tidyverse")
|
|
install.package("tidyverse")
|
|
install.packages("tidyverse")
|
|
library(tidyverse)
|
|
head(a)
|
|
ddply(a,.(group,group2),sumc=sum(cyl))
|
|
library(dplyr)
|
|
ddply(a,.(group,group2),sumc=sum(cyl))
|
|
library(dplyr)
|
|
ddply(a,.(group,group2),sumc=sum(cyl))
|
|
ddplyr(a,.(group,group2),sumc=sum(cyl))
|
|
ddply
|
|
library(dplyr)
|
|
library(plyr)
|
|
install.packages("plyr")
|
|
library(plyr)
|
|
names(a)
|
|
ddply(a,.(group,group2),summarize,sumc=sum(cyl),paste(.group,.group2,col="",sep="_")=sum(cyl))
|
|
ddply(a,.(group,group2),summarize,sumc=sum(cyl),paste(.group,.group2,col="",sep="_")=sum(cyl))
|
|
starwars %>%
|
|
select(name, mass, species) %>%
|
|
mutate(mass_norm = mass / mean(mass, na.rm = TRUE))
|
|
head(a)
|
|
a %>% pivot_wider()
|
|
?pivot_wider
|
|
map(a$group,function(x){sprinft(x)})
|
|
map(a$group,function(x){sprinf(x)})
|
|
map(a$group,function(x){prinf(x)})
|
|
sprintf
|
|
map(a$group,prinf(x))
|
|
map(a$group,sprinf(x))
|
|
map(a$group,sprinfs(x))
|
|
help("paste")
|
|
map(a$group,paste(x))
|
|
map(a$group,paste(.x))
|
|
map(a$group,paste(x))
|
|
?map
|
|
map(a$group,x)
|
|
map(a$group,.x)
|
|
set_names(c("foo", "bar")) |> map_chr(paste0, ":suffix")
|
|
l1 <- list(list(a = 1L), list(a = NULL, b = 2L), list(b = 3L))
|
|
ll
|
|
l1
|
|
l1 |> map("a", .default = "???")
|
|
list(num = 1:3, letters[1:3])
|
|
1:10 |>
|
|
map(rnorm, n = 10)
|
|
1:10 |>
|
|
map(\(x) rnorm(10, x))
|
|
letters[1:10] |>
|
|
map(\(x) sprintf("wafer_%03d",x))
|
|
letters[1:10] |>
|
|
map(\(int(x)) sprintf("wafer_%03d",x))
|
|
letters[1:10] |>
|
|
map(int(x) sprintf("wafer_%03d",x))
|
|
letters[1:10] |>
|
|
map(.x, sprintf("wafer_%03d",x))
|
|
letters[1:10] |>
|
|
map(x, sprintf("wafer_%03d",x))
|
|
letters
|
|
letters[1:10]
|
|
letters[1:10] |>
|
|
map(\x, sprintf("wafer_%03d",x))
|
|
letters[1:10] |>
|
|
map(\(x), sprintf("wafer_%03d",x))
|
|
letters[1:10] |>
|
|
map(\x, sprintf("wafer_%03d",x))
|
|
letters[1:10] |>
|
|
map(x, sprintf("wafer_%03d",x))
|
|
[1:10] |>
|
|
1:10 |> map(x, sprintf("wafer_%03d",x))
|
|
1:10 |> map(x, sprintf("wafer_%03d", x))
|
|
1:10 |> map_chr(x, sprintf("wafer_%03d", x))
|
|
1:10 |> map_in5(x, sprintf("wafer_%03d", x))
|
|
1:10 |> map_int(x, sprintf("wafer_%03d", x))
|
|
1:10 |> map(x, sprintf("wafer_%03d", x))
|
|
l2 <- list(
|
|
list(num = 1:3, letters[1:3]),
|
|
list(num = 101:103, letters[4:6]),
|
|
list()
|
|
)
|
|
l2 |> map(c(2, 2))
|
|
l2 |> map(list("num", 3))
|
|
l2 |> map_int(list("num", 3), .default = NA)
|
|
paste(sprintf("wafer_%03d",1:10))
|
|
seq(paste(sprintf("wafer_%03d",1:10)),3)
|
|
paste(sprintf("wafer_%03d",seq(1:10,3))
|
|
)
|
|
paste(sprintf("wafer_%03d",seq(1:10,3))
|
|
)
|
|
seq(3,1:2)
|
|
seq(1:2,2)
|
|
seq(1:2,a:b)
|
|
seq(a,b)
|
|
seq(1,3)
|
|
R
|
|
which R
|
|
setwd("/Users/jackleene/2024-dash_v1")
|
|
setwd("/Users/jackleene/2024-dash_v1/data")
|
|
a=read_csv("spc_mod.csv")
|
|
library(readr)
|
|
a=read_csv("spc_mod.csv")
|
|
library(arrow)
|
|
install.packages("arrow")
|
|
install.packages("arrow")
|
|
install.packages("sparklyr")
|
|
install.packages("sparklyr")
|
|
install.packages("arrow")
|
|
table(a$timestamp)
|
|
install.packages("arrow")
|
|
names(a)
|
|
class(a)
|
|
lapply(a,class)
|
|
lapply(a,class)
|