initial commit
This commit is contained in:
290
data/.Rhistory
Normal file
290
data/.Rhistory
Normal file
@ -0,0 +1,290 @@
|
||||
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)
|
||||
Reference in New Issue
Block a user