All public logs
Jump to navigation
Jump to search
Combined display of all available logs of 太極. You can narrow down the view by selecting a log type, the username (case-sensitive), or the affected page (also case-sensitive).
- 20:06, 24 August 2024 Brb talk contribs created page File:R-squared.png
- 20:06, 24 August 2024 Brb talk contribs uploaded File:R-squared.png
- 14:54, 13 August 2024 Brb talk contribs created page File:Geom bar reorder.png (<syntaxhighlight lang='r'> library(ggplot2) library(forcats) data <- data.frame( category = c("A", "B", "C", "D"), value = c(3, 5, 2, 8) ) data$category <- fct_reorder(data$category, data$value) levels(data$category) # [1] "C" "A" "B" "D" ggplot(data, aes(x = category, y = value, fill = category)) + geom_bar(stat = "identity") + coord_flip() + labs(x = "Category", y = "Value") + theme_minimal() </syntaxhighlight>)
- 14:54, 13 August 2024 Brb talk contribs uploaded File:Geom bar reorder.png (<syntaxhighlight lang='r'> library(ggplot2) library(forcats) data <- data.frame( category = c("A", "B", "C", "D"), value = c(3, 5, 2, 8) ) data$category <- fct_reorder(data$category, data$value) levels(data$category) # [1] "C" "A" "B" "D" ggplot(data, aes(x = category, y = value, fill = category)) + geom_bar(stat = "identity") + coord_flip() + labs(x = "Category", y = "Value") + theme_minimal() </syntaxhighlight>)
- 14:47, 13 August 2024 Brb talk contribs created page File:Geom bar simple.png (<syntaxhighlight lang='r'> library(ggplot2) data <- data.frame( category = c("A", "B", "C", "D"), value = c(3, 5, 2, 8) ) ggplot(data, aes(x = category, y = value, fill = category)) + geom_bar(stat = "identity") + coord_flip() + labs(x = "Category", y = "Value") + # scale_fill_manual(values = c("A" = "red", "B" = "blue", "C" = "green", "D" = "purple")) theme_minimal() </syntaxhighlight>)
- 14:47, 13 August 2024 Brb talk contribs uploaded File:Geom bar simple.png (<syntaxhighlight lang='r'> library(ggplot2) data <- data.frame( category = c("A", "B", "C", "D"), value = c(3, 5, 2, 8) ) ggplot(data, aes(x = category, y = value, fill = category)) + geom_bar(stat = "identity") + coord_flip() + labs(x = "Category", y = "Value") + # scale_fill_manual(values = c("A" = "red", "B" = "blue", "C" = "green", "D" = "purple")) theme_minimal() </syntaxhighlight>)
- 12:44, 12 August 2024 Brb talk contribs created page File:Nomogram.png
- 12:44, 12 August 2024 Brb talk contribs uploaded File:Nomogram.png
- 14:56, 15 July 2024 Brb talk contribs created page File:GfortranMac.png
- 14:56, 15 July 2024 Brb talk contribs uploaded File:GfortranMac.png
- 07:24, 22 June 2024 Brb talk contribs created page File:Verizonont.jpg
- 07:24, 22 June 2024 Brb talk contribs uploaded File:Verizonont.jpg
- 12:38, 14 June 2024 Brb talk contribs created page File:CredoError.png
- 12:38, 14 June 2024 Brb talk contribs uploaded File:CredoError.png
- 13:31, 8 June 2024 Brb talk contribs created page File:Add camera.png
- 13:31, 8 June 2024 Brb talk contribs uploaded File:Add camera.png
- 14:12, 27 May 2024 Brb talk contribs created page File:Gganimation.gif (<syntaxhighlight lang='r'> library(gganimate) library(ggplot2) library(tidyverse) library(ggimage) data_link <- "https://raw.githubusercontent.com/goodekat/presentations/master/2019-isugg-gganimate-spooky/bat-data/bats-subset.csv" bats <- read.csv(data_link) %>% mutate(id = factor(id)) bat_image_link <- "https://upload.wikimedia.org/wikipedia/en/a/a9/MarioNSMBUDeluxe.png" animation <- bats %>% mutate(image = bat_image_link) %>% filter(id == 1) %>% ggplot(aes(x = longitude, y = la...)
- 14:12, 27 May 2024 Brb talk contribs uploaded File:Gganimation.gif (<syntaxhighlight lang='r'> library(gganimate) library(ggplot2) library(tidyverse) library(ggimage) data_link <- "https://raw.githubusercontent.com/goodekat/presentations/master/2019-isugg-gganimate-spooky/bat-data/bats-subset.csv" bats <- read.csv(data_link) %>% mutate(id = factor(id)) bat_image_link <- "https://upload.wikimedia.org/wikipedia/en/a/a9/MarioNSMBUDeluxe.png" animation <- bats %>% mutate(image = bat_image_link) %>% filter(id == 1) %>% ggplot(aes(x = longitude, y = la...)
- 08:58, 23 May 2024 Brb talk contribs created page File:Pca ggplot2.png (<syntaxhighlight lang='r'> df <- iris[, 1:4] # exclude "Species" column pca_res <- prcomp(df, scale = TRUE) ggplot(iris, aes(x = pca_res$x[,1], y = pca_res$x[,2], color = Species)) + geom_point() + stat_ellipse() </syntaxhighlight>)
- 08:58, 23 May 2024 Brb talk contribs uploaded File:Pca ggplot2.png (<syntaxhighlight lang='r'> df <- iris[, 1:4] # exclude "Species" column pca_res <- prcomp(df, scale = TRUE) ggplot(iris, aes(x = pca_res$x[,1], y = pca_res$x[,2], color = Species)) + geom_point() + stat_ellipse() </syntaxhighlight>)
- 14:18, 8 May 2024 Brb talk contribs created page File:Rtools44.png
- 14:18, 8 May 2024 Brb talk contribs uploaded File:Rtools44.png
- 16:31, 23 April 2024 Brb talk contribs created page File:Polygon.png (<syntaxhighlight lang='r'> plot(c(1, 9), 1:2, type = "n") polygon(1:9, c(2,1,2,1,NA,2,1,2,1), col = c("red", "blue"), border = c("green", "yellow"), lwd = 3, lty = c("dashed", "solid")) </syntaxhighlight>)
- 16:31, 23 April 2024 Brb talk contribs uploaded File:Polygon.png (<syntaxhighlight lang='r'> plot(c(1, 9), 1:2, type = "n") polygon(1:9, c(2,1,2,1,NA,2,1,2,1), col = c("red", "blue"), border = c("green", "yellow"), lwd = 3, lty = c("dashed", "solid")) </syntaxhighlight>)
- 13:49, 23 April 2024 Brb talk contribs created page File:Venn4.png (<syntaxhighlight lang='r'> library(venn) set.seed(12345) x <- list(First = 1:40, Second = 15:60, Third = sample(25:50, 25), Fourth=sample(15:65, 35)) venn(x, ilabels = "counts", zcolor = "style") </syntaxhighlight>)
- 13:49, 23 April 2024 Brb talk contribs uploaded File:Venn4.png (<syntaxhighlight lang='r'> library(venn) set.seed(12345) x <- list(First = 1:40, Second = 15:60, Third = sample(25:50, 25), Fourth=sample(15:65, 35)) venn(x, ilabels = "counts", zcolor = "style") </syntaxhighlight>)